# Вставка ассемблерных процедур в код Visual Basic: миф или реальность?

> Введение Подготовка ассемблерного кода Добавление ассемблерных процедур в код на Visual Basic 6.0

Canonical HTML: <https://www.dotfix.net/doc/Asm2VB.htm>

**Автор:** **Чубченко Сергей**. **Дата публикации:** 13.05.2004

## Вставка ассемблерных процедур в код Visual Basic: миф или реальность?

- Введение

- Подготовка ассемблерного кода

- Добавление ассемблерных процедур в код на Visual Basic 6.0

**Введение**

Знатоки таких языков высокого уровня, как Delphi и C++, сейчас скажут, что только данные языки способны воспринимать низкоуровневые конструкции, причем ключевого слова Asm вполне достаточно. Частично с этим утверждением можно согласиться – в Visual Basic 6.0 так просто встроить ассемблерный код нельзя, но поверьте, прочитав данную статью для Вас это будет также просто сделать и на Visual Basic.

Для начала рассмотрим методику вставки. Для вызова ассемблерного кода используется API функция "CallWindowProc", содержащаяся в библиотеке "user32.dll", которая входит в поставку Windows. Она имеет 1 основной и 4 дополнительных параметра. В первый мы будем передавать адрес первой ячейки массива, содержащего массив байт (откомпилированную ассемблерную процедуру), а в остальные – параметры, необходимые для работы ассемблерной функции.

Для начала создадим новый проект и объявим эту функцию:

Private Declare Sub CallWindowProc Lib "user32" Alias "CallWindowProcA" _
(ByVal ptrMC As Long, ByRef P1 As Long, ByVal P2 As Long, ByVal P3 As Long, ByVal P4 As Long)

Теперь создадим функцию, которая преобразует HEX строку машинных кодов в байтовый массив и возвратит адрес первой ячейки массива:

Private Bytes() As Byte

Private Function LoadAsmFunction(CodeString As String) As Long
Dim i As Long
If Len(CodeString) = 0 Then Exit Sub
ReDim Bytes(Len(CodeString) \ 2 - 1)
For i = 0 To Len(CodeString) \ 2 - 1
Bytes(i) = CByte("&H" & Mid(CodeString, i * 2 + 1, 2))
Next i
LoadAsmFunction = VarPtr(Bytes(0))
End Function

И наконец перейдем непосредственно к созданию ассемблерной функции.

**Подготовка ассемблерного кода**

При создании новой функции будем использовать следующий шаблон:

[BITS 32] ;Делаем процедуру 32 битной

; Считываем данные из стека
push ebp
mov  ebp, esp
push ebx
push esi
push edi
; Код нашей процедуры
; Если в процедуру передавалось два параметра
mov  eax, [ebp+8]  ; Считываем первый
mov  ebx, [ebp+12] ; Считываем второй
xor  eax, ebx      ; Производим операцию над параметрами
; Регистр EAX всегда должен содержать то, что возвращает функция
; Записываем данные в стек
pop edi
pop esi
pop ebx
mov esp,ebp
pop ebp
ret

Комментарий: первый параметр, передаваемый функции всегда находится по адресу ebp+8, остальные в зависимости от их длины расположены дальше по стеку. Строки передавать в функцию не стоит, так как они в Unicode и потребуется масса дополнительного кода для их обработки. Также компилятор nasmw не понимает команды db, поэтому работать с переменными, созданными в этой функции вам пока не получится. Использование API, а также создание переменных рассмотрено во [второй части](https://www.dotfix.net/doc/asmtovb2.htm) статьи. При вызове более 2-х параметров в конце функции необходимо корректировать стек и вместо ret ставить ret 8 при использовании 3-х параметров и ret 8+<длина параметра(чаще всего 4)>  при использовании 4-х параметров.

Теперь у Вас возникнет вопрос: "Как это все теперь перевести в HEX строку, которую мы будем передавать ранее написанной функции?". Резонный вопрос. Для начала необходимо перевести этот ассемблерный код в BIN файл, содержащий машинные коды, для чего можно использовать nasmw – компилятор ассемблера (командная строка: nasmw.exe -f bin YouProgram.asm -o YouProgram.bin), а затем написать небольшую программку для перевода BIN файла в HEX строку. Я же рекомендую не геморроиться и использовать написанную мной утилиту [Asm to VB](https://www.dotfix.net/soft/asmtovb.rar), которая без проблем переведет код, написанный по вышеприведенному шаблону в BIN файл или HEX строку. В Asm to VB я уже встроил компилятор nasmw, поэтому кроме этой программы для написания ассемблерных функций Вам ничего не потребуется.

**Добавление ассемблерных процедур в код на Visual Basic 6.0**

У нас есть Hex строка и функция, передавая в которую Hex строку создается массив машинных инструкций и возвращается ссылка на первую ячейку массива. Поверьте этого достаточно.

Теперь запустим функцию с параметрами (если в функцию передаётся не 4, а меньше параметров, то остальные параметры забиваются нулями, если этого не сделать, функция не будет работать!), предварительно присвоив переменной sHex Hex строку, которую мы получили в предыдущем шаге:

sRetVal = CallWindowProc(LoadAsmFunction(sHex),0,0,0,0)

Теперь в переменной sRetVal результат работы функции.

Вот так вот все просто. Желаю удачи!