Решение

@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

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

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

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

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

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

@The trick Модератор 10048 / 3894 / 883 Регистрация: 22.02.2013 Сообщений: 5,847 Записей в блоге: 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 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22
	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 1427 / 444 / 78 Регистрация: 24.09.2017 Сообщений: 2,525 Записей в блоге: 22
	08.10.2021, 18:25
	Сделал некорректную, но очень простую демонстрацию анимированных GIF с помощью WIA. https://www.cyberforum.ru/blog... g7295.html 2

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