Решение

@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

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

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

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

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

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

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 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 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	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 1732 / 476 / 78 Регистрация: 24.09.2017 Сообщений: 2,573 Записей в блоге: 27
	08.10.2021, 18:25
	Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA. https://www.cyberforum.ru/blog... g7295.html 2

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