VB的Call调用

Dim a As New clsASM

Dim hwd As Long

Dim pid As Long

Dim hProcess As Long

Dim address As Long

 

address = GetProcAddress(GetModuleHandle("user32.dll"), "FindWindowA")

 

 

a.Pushad

 

a.Push Val(Text1.Text)

a.Push Val(Text2.Text)

a.Mov_EAX address

a.Call_EAX

a.Popad

a.Ret

a.Run_ASM hProcess

 

Text3 = Hex(GetProcAddress(GetModuleHandle("user32.dll"), "FindWindowA"))