Строка на выполнении

[ANDLL]

Что не так в этом коде?

Код: Выделить всё

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub SomeFunc()
    Beep
End Sub
Public Sub Main()
    Dim nBytes(5) As Byte
    nBytes(0) = &H9A 'call
    CopyMemory VarPtr(nBytes(0)) + 1, AddressOf SomeFunc, 4
    nBytes(5) = &HC3 'ret
    Call CallWindowProc(VarPtr(nBytes(0)), 0, 0, 0, 0)
    Stop
End Sub


[tyomitch]

То, что вместо C3 (ret) надо писать С2 10 00 (ret 10h)

[ANDLL]

А можно поинтересоваться, почему именно десять?

[tyomitch]

Передаётся четыре параметра, каждый длиной четыре байта. 4 * 4 = 10h

[ANDLL]

Не работает...

[ANDLL]

Кстати, tyomitch, stdcall-функция не знает наверняка сколько параметров ей передается и очищать стек - не ее забота. Или нет?

[tyomitch]

Не работает...

А, дак у тебя ещё и CALL далёкий
И ещё ты не адрес копировал в VarPtr(nBytes(0)) + 1, а первый DWORD своей функции
Делай так:

Код: Выделить всё

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Sub SomeFunc()
    Beep
End Sub
Public Sub Main()
    Dim nBytes(13) As Byte
    nBytes(0) = &HE8 'call
    nBytes(1) = 3
    nBytes(5) = &HC2 'ret
    nBytes(6) = &H10
    nBytes(8) = &H68 'push
    CopyMemory nBytes(9), AddressOf SomeFunc, 4
    nBytes(13) = &HC3 'ret
    Call CallWindowProc(VarPtr(nBytes(0)), 0, 0, 0, 0)
    Stop
End Sub


Причём работающий пример всего этого мной уже постился здесь: http://bbs.vbstreets.ru/viewtopic.php?p=77509#77509
Мог бы и сам сравнить

[tyomitch]

Кстати, tyomitch, stdcall-функция не знает наверняка сколько параметров ей передается и очищать стек - не ее забота. Или нет?

Наоборот, это cdecl не знает. А stdcall как раз знает, и сама чистит.