VB的Call调用

原文链接：https://www.geek-share.com/detail/2563558880.html

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"))

转载于:https://www.cnblogs.com/xiaoyuyu/archive/2012/11/10/2764547.html