Решение

@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

Новые блоги и статьи Все статьи Все блоги /
[golang] Insert Delete GetRandom O(1) (Leetcode: 380) alhaos 16.06.2026 Insert Delete GetRandom O(1) Сложность: Medium Источник: LeetCode 380 Задача Реализовать структуру данных RandomizedSet, которая поддерживает следующие операции за O(1) в среднем:	Свет в конце тоннеля kumehtar 16.06.2026 Поймал себя на одной мысли. Раньше мне всегда казалось неправильным жить без чёткого понимания, куда всё идёт. Будто я иду по дороге судьбы, но не знаю, куда она ведёт. А раз не знаю — значит,. . .	[golang] Реализация стека с поддержкой получения минимального элемента за O(1) alhaos 16.06.2026 Min Stack Сложность: Medium Источник: LeetCode 155 Задача: Реализовать стек который поддерживает push, pop, top и получение минимального элемента за O(1). Методы:	[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .
[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .	[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .

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

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

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

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

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 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 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	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 1446 / 463 / 78 Регистрация: 24.09.2017 Сообщений: 2,542 Записей в блоге: 24
	08.10.2021, 18:25
	Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA. https://www.cyberforum.ru/blog... g7295.html 2

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