Решение

@fever brain · 14.04.2020, 15:44

Студворк — интернет-сервис помощи студентам

Комбинаторика - методы перестановки элементов массива
Программа XComb и несколько алгоритмов на VB

Ссылка на блог

@The trick · 15.04.2020, 19:39

Super Mario World Maker

https://github.com/DirectY1996... WorldMaker

Dragokas · 11.05.2020, 18:09 **[ТС]**

Нормализация строки с HTML сущностями в ASCII.

HTML Entity => ASCII

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Sample()
 
    Dim s$: s = "&quot;this &amp; that&quot;"
    
    Debug.Print HtmlDeEscape(s) ' return = "this & that"
End Sub
 
' Convert HTML entity to ASCII
'
' @param s      input buffer (Read only)
'
' @noerror
' @return       converted string
'
Function HtmlDeEscape(ByVal s As String) As String 'https://ascii.cl/htmlcodes.htm
    
    Static af(), at(), bInit As Boolean
    
    If Not bInit Then
        bInit = True
 
        af = Array("&quot;", "&amp;", "&lt;", "&gt;", "&nbsp;", "&iexcl;", "&cent;", "&pound;", "&curren;", "&yen;", "&brvbar;", "&sect;", _
            "&uml;", "&copy;", "&ordf;", "&laquo;", "&not;", "­", "&reg;", "&macr;", "&deg;", "&plusmn;", "&sup2;", "&sup3;", "&acute;", _
            "&micro;", "&para;", "&middot;", "&cedil;", "&sup1;", "&ordm;", "&raquo;", "&frac14;", "&frac12;", "&frac34;", "&iquest;", "&Agrave;", _
            "&Aacute;", "&Acirc;", "&Atilde;", "&Auml;", "&Aring;", "&AElig;", "&Ccedil;", "&Egrave;", "&Eacute;", "&Ecirc;", "&Euml;", "&Igrave;", _
            "&Iacute;", "&Icirc;", "&Iuml;", "&ETH;", "&Ntilde;", "&Ograve;", "&Oacute;", "&Ocirc;", "&Otilde;", "&Ouml;", "&times;", "&Oslash;", _
            "&Ugrave;", "&Uacute;", "&Ucirc;", "&Uuml;", "&Yacute;", "&THORN;", "&szlig;", "&agrave;", "&aacute;", "&acirc;", "&atilde;", "&auml;", _
            "&aring;", "&aelig;", "&ccedil;", "&egrave;", "&eacute;", "&ecirc;", "&euml;", "&igrave;", "&iacute;", "&icirc;", "&iuml;", "&eth;", _
            "&ntilde;", "&ograve;", "&oacute;", "&ocirc;", "&otilde;", "&ouml;", "&divide;", "&oslash;", "&ugrave;", "&uacute;", "&ucirc;", "&uuml;", _
            "&yacute;", "&thorn;", "&yuml;", "&euro;")
            
        at = Array(34, 38, 60, 62, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, _
            182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, _
            209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, _
            236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255, 136)
    End If
    
    Dim i&: For i = 0 To UBound(at): s = Replace$(s, af(i), Chr$(at(i))): Next
    HtmlDeEscape = s
 End Function

Создано из таблицы: https://ascii.cl/htmlcodes.htm
Оптимизация скорости не выполнялась.
От стандарта отошел только на символе "Евро", где вместо юникодного символа вставил его аналог, код 136.

@CharlyChaplin · 07.08.2020, 10:30

Закрытие кредита или ипотеки за счёт дивидендов от акций

Написал для себя небольшую программу для упрощения рассчётов.
Выкладываю, если кому пригодится.

Двойной клик на процентах изменяет их. В txt-файле есть методика рассчёта.

@Pro_grammer · 27.08.2020, 20:08

Сборник различных кодов на VB с сайта planetsourcecode.com за 2002 год.
Сам сайт к сожалению на данный момент не работает. Жалко, если всё богатое наследие пропадёт.
У кого есть все диски, но нет доступа к содержимому по какой либо причине, (у меня не запускается оболочка даже в ДЕМО режиме, ошибки в OCX) можно использовать мой метод.
Конвертировать из всей базы PscEnc.mdb одну таблицу Submission в Submission.xlsx.
Применить к ней код, который я выкладываю, плюс программу конвертер из .psc в .zip.

Готовые решения и полезные коды на Visual Basic 6.0

У кого нет дисков, то можете скачать примерно 479 МБ (1 диск)из облака, там 5,8 тысяч архивов различных программ.

Тут только исходник на VB6 в папке submission, программа управления и конвертации + Submission.xlsx. Их надо положить в одну папку с папками Pictures, Zips.

@The trick · 27.08.2020, 22:36

Pro_grammer, Тут 7 дисков (спасибо Argus19).
Комментарий пользователя Bobbles с vbforums который собрал данный архив:

DETAILS OF 7 PSC CDs
1 Start - 2002
2 2002 - 2004
3 2004 - 2005
4 2005 - 2006
5 2007 - 2008
6 2008 - 2009
7 2009 - 2012

I don't know if Google drive gets huffy, with too many downloads.
If you know that it won't then go for it.

There ere two threads in vbforums.
In the other one, I raised suggestion of members offering to donate something to get Ian, to help one of our members host the real PSC Stuff.
Can you get your friends to help fan the flames ?
Don't donate, but get them to post that they would be interested in donating

@CharlyChaplin · 29.08.2020, 17:31

Фракталы из хаоса

Результат моего небольшого увлечения фракталами их хаоса случайностей. :-) В качестве развлечения.

@The trick · 05.11.2020, 09:25

DirectX 11 for VB6 1.0 Type Library

https://github.com/wqweto/VBD3D11

@Pro_grammer · 05.11.2020, 11:14

Сообщение от The trick

DirectX 11 for VB6 1.0 Type Library

У кого примеры не заработали, но они постеснялись спросить!
The trick подсказал, что нужно исправить
#Const DebugBuild = True
на
#Const DebugBuild = False

@The trick · 12.01.2021, 00:34

Библиотека secp256k1 для VB6 - генерация ключей сети Bitcoin.

Репозиторий содержит исходники и скомпилированную библиотеку secp256k1 адаптированную для VB6. Также там содержится маленькая библиотека для хеширования (RIPEMD-160/SHA256). В качестве маленького примера использования приведены исходные коды генератора ключей и соответствующих адресов сети Bitcoin.

Ссылка.

@The trick · 02.02.2021, 03:36

Add-in для работы с CDECL функциями.

Моя попытка исправить баг в VB6 из-за которого при использование CDECL функций объявленных в tlb происходит вылет среды. Тестировался только в "тепличных" условиях, поэтому скорее всего будут баги. О них пишите либо здесь либо на гитхабе.

Добавлен фикс ключевого слова CDecl - теперь CDecl функции можно вызывать через Declare.

https://github.com/thetrik/VBCDeclFix

Обновление.

Добавлена поддержка слова CDecl в пользовательские функции. Теперь можно полноценно использовать callback-функции из C-библиотек.

Добавлены примеры:

qsort - использование C-функции qsort с пользовательской callback функцией;
cairo - использование оригинальной cairo.dll;
sqlite - использование оригинальной sqlite3.dll

Тест Add-in производил только на 2-х версиях vba6.dll поэтому если у вас что-то не работает, сообщайте мне я обновлю сигнатуры.

@Argus19 · 18.02.2021, 01:14

Цвет пикселя, на который указывает курсор.
Когда-то написал программу, но благополучно её потерял.
Программа предназначена для начинающих, чтобы понять суть функции RGB. После запуска программа отображает позицию курсора по координатам X и Y, цвет пикселя, на который указывает курсор (визуально в Shape, в шестнадцатеричном виде и в формате RGB). В архиве полно прокомментированный исходный код, сама программа, скриншот и текстовый файл с пояснениями.

@Pro_grammer · 18.02.2021, 10:57

Сообщение от Argus19

визуально в Shape, в шестнадцатеричном виде и в формате RGB)

Такой функционал встречается часто. А как часто вы видели программы, которые не только в цифровом формате отображают цвет, но и в текстовом? Думаю многим будет интересно. Дополнил Ваш код, теперь цвет пишется ещё и текстом.

@Argus19 · 27.06.2021, 00:52

Практика показывает, что сайты иногда пропадают. Занялся изучением работы с файлами Word в VB 6.0. Нашёл и сохранил лекции. Часть оказалась на старом сайте: http://old.intuit.ru. Надеюсь, на этом форуме файлы не пропадут

.

@Argus19 · 27.06.2021, 22:19

Смена курсора
В Windows7, вместо курсора в виде песочных часов, крутится непонятный синий круг. Если в программе требуется длительное выполнение каких-либо действий, лучше заменить курсор в стиле WindowsXP.
Я скопировал файл из WindowsXP с:\WINDOWS\Cursors\hourglas.ani (во вложении) в папку с приложением. И написал вот такой код для смены курсора. При запуске приложения курсор меняется на анимированные песочные часы и после завершения работы программы курсор меняется обратно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Option Explicit
Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Integer) As Integer
Private Declare Function GetCursor Lib "user32" () As Integer
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Integer
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Integer, ByVal id As Integer) As Integer
 
Private Const OCR_NORMAL = 32512
Dim hCursor As Long, hOldCursor As Long
Dim lRet As Long
 
Dim lRet As Long
'укажите правильную директорию для курсора
hCursor = LoadCursorFromFile(App.Path & "\hourglas.ani")
If hCursor Then
lRet = GetCursor()
hOldCursor = CopyCursor(lRet)
'Новый курсор
lRet = SetSystemCursor(hCursor, OCR_NORMAL)
End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
'Востановить системный курсор
lRet = SetSystemCursor(hOldCursor, OCR_NORMAL)
End Sub

@The trick · 05.07.2021, 17:12

Внедрение DLL и подключение к ресурсам EXE.

Данный пример содержит модуль инжекта ActiveX DLL в нужный поток процесса, а также показывает как подсоединится к работающему EXE и получить доступ к его VB.Global объекту. Это позволяет к примеру вызывать методы открытых форм/контролов/App и т.д.

Модуль инжекта позволяет создавать объекты в других потоках и получать отмаршаленую ссылку - методы можно вызывать прямо из IDE. В примере запускается EXE и вызываются методы его формы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    If CreateProcess(StrPtr(App.Path & "\..\dummy\dummy.exe"), 0, ByVal 0&, ByVal 0&, 0, 0, ByVal 0&, 0, tSI, tPI) = 0 Then
        MsgBox "CreateProcess failed"
        Exit Sub
    End If
   
   . . .
   
    Set cVBGetGlobal = CreateVBObjectInThread(tPI.dwThreadId, App.Path & "\..\dll\GetVBGlobal.dll", "CExtractor")
    Set cForms = cVBGetGlobal.Forms
   
    Set frmMain = cForms(0)
   
    ' // Change back color of picturebox
    frmMain.Controls("picTest").BackColor = vbRed
   
    ' // Draw line on picturebox
    frmMain.Controls("picTest").Line (0, 0)-Step(100, 50), vbGreen, BF
    frmMain.Caption = "Test"

Сам код доступа к объекту VB.Global находится в ActiveX DLL, которая внедряется в процесс с помощью модуля инжекта. Вообще доработав логику можно еще дополнительно поизвлекать переменные и в модулях.

Ссылка.

@Argus19 · 24.07.2021, 19:17

Работа с библиотекой Dxva2.dll
Получение параметров монитора. Кроме этого, можно получить и изменить значения контрастности и цветности.
Описание здесь:
https://www.cyberforum.ru/blog... g7189.html

Добавлено через 1 минуту
Определение количества строк и столбцов листов книги Excel
Два варианта проектов для этой задачи.
Описание и коды здесь:
https://www.cyberforum.ru/blog... g7204.html

@Argus19 · 08.10.2021, 18:25

Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA.
https://www.cyberforum.ru/blog... g7295.html

Dragokas · 04.11.2021, 18:47 **[ТС]**

Typer - эмуляция ввода текста

Полезен для копирования текста в окно, где недоступен буфер обмена - путем низкоуровневой эмуляции ввода с клавиатуры.
Поддерживаются все символы, кроме юникодных, русский и английский языки.

Использование:
- вставить текст в окно программы
- перейти в нужное окно
- нажать Ctrl + Enter.

Настройки доп. задержек ввода / на кол-во символов предназначены для предотвращения переполнения буфера на принимающей стороне.

Для эмуляции используется SendInput, которой передаётся структура INPUT со скан-кодами клавиш, полученные путём преобразования из виртуальных кодов, которые в свою очередь получены из ASCII кода символа с учётом раскладки клавиатуры у окна-получателя.
Перед началом ввода проверяется состояние модификаторов Ctrl, Alt, Shift. Если они зажаты, ввод отменяется.
Также, если включена CAPS LOCK, её состояние будет сброшено.
Каждый символ проверяется на принадлежность диапазону ASCII, и если он расширенный, то раскладка клавиатуры для этого символа переключается на русскую, и наоборот (для английского).
При необходимости ввода спецсимволов, дополнительно зажимается кнопка Shift.
Опционально, игнорируется ввод CR для предотвращения двойных переносов строки.
Также поддерживается вставка текста из Linux файлов.

В целом код можно оптимизировать, передавая более 1 структуры INPUT при вызове SendInput.

Спасибо The Trick за некоторые кусочки кода.

@Argus19 · 05.11.2021, 16:52

С помощью найденного в интернете модуля, способного загружать изображения в стандартных форматах, а при работе в Windows10, ещё и в формате .webp, написал простой конвертер изображений:
https://www.cyberforum.ru/blog... g7328.html

Новые блоги и статьи Все статьи Все блоги /
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	14.04.2020, 15:44
	Комбинаторика - методы перестановки элементов массива Программа XComb и несколько алгоритмов на VB Ссылка на блог 2

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	15.04.2020, 19:39
	Сообщение было отмечено Catstail как решение Решение Super Mario World Maker https://github.com/DirectY1996... WorldMaker 8

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	05.11.2020, 09:25
	DirectX 11 for VB6 1.0 Type Library https://github.com/wqweto/VBD3D11 3

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	12.01.2021, 00:34
	Библиотека secp256k1 для VB6 - генерация ключей сети Bitcoin. Репозиторий содержит исходники и скомпилированную библиотеку secp256k1 адаптированную для VB6. Также там содержится маленькая библиотека для хеширования (RIPEMD-160/SHA256). В качестве маленького примера использования приведены исходные коды генератора ключей и соответствующих адресов сети Bitcoin. Ссылка. 1

@The trick Модератор 10057 / 3902 / 884 Регистрация: 22.02.2013 Сообщений: 5,853 Записей в блоге: 79
	02.02.2021, 03:36
	Add-in для работы с CDECL функциями. Моя попытка исправить баг в VB6 из-за которого при использование CDECL функций объявленных в tlb происходит вылет среды. Тестировался только в "тепличных" условиях, поэтому скорее всего будут баги. О них пишите либо здесь либо на гитхабе. Добавлен фикс ключевого слова CDecl - теперь CDecl функции можно вызывать через Declare. https://github.com/thetrik/VBCDeclFix Обновление. Добавлена поддержка слова CDecl в пользовательские функции. Теперь можно полноценно использовать callback-функции из C-библиотек. Добавлены примеры: qsort - использование C-функции qsort с пользовательской callback функцией; cairo - использование оригинальной cairo.dll; sqlite - использование оригинальной sqlite3.dll Тест Add-in производил только на 2-х версиях vba6.dll поэтому если у вас что-то не работает, сообщайте мне я обновлю сигнатуры. 3

@Argus19 1433 / 450 / 78 Регистрация: 24.09.2017 Сообщений: 2,533 Записей в блоге: 23
	24.07.2021, 19:17
	Работа с библиотекой Dxva2.dll Получение параметров монитора. Кроме этого, можно получить и изменить значения контрастности и цветности. Описание здесь: https://www.cyberforum.ru/blog... g7189.html Добавлено через 1 минуту Определение количества строк и столбцов листов книги Excel Два варианта проектов для этой задачи. Описание и коды здесь: https://www.cyberforum.ru/blog... g7204.html 3

@Argus19 1433 / 450 / 78 Регистрация: 24.09.2017 Сообщений: 2,533 Записей в блоге: 23
	08.10.2021, 18:25
	Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA. https://www.cyberforum.ru/blog... g7295.html 2

@Argus19 1433 / 450 / 78 Регистрация: 24.09.2017 Сообщений: 2,533 Записей в блоге: 23
	05.11.2021, 16:52
	С помощью найденного в интернете модуля, способного загружать изображения в стандартных форматах, а при работе в Windows10, ещё и в формате .webp, написал простой конвертер изображений: https://www.cyberforum.ru/blog... g7328.html 0