VB从零开始编外挂(三)

核心提示：躲避了NP的扫描现在就可以模拟了！需要VBAPI函数：keybd_event←函数模拟了键盘行动相关API声明：keybd_event↓PRivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlag

躲避了NP的扫描现在就可以模拟了！
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VBAPI函数：
keybd_event←函数模拟了键盘行动
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
keybd_event
↓
PRivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：Timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
PrivateDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
PrivateSubTimer1_Timer()
Callkeybd_event(82,0,0,0)'模拟按下"R"键
EndSub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它模拟：
方法一：
AppActivatesTitle
SendKeys"5"
方法二：
AppActivatesTitle
SendKeysvbKey5
方法三：
SendMessageHwnd,WM_KEYDOWN,vbKey5,0&
SendMessageHwnd,WM_KEYUP,vbKey5,0&
方法四：
AppActivatesTitle
keybd_event53,0,0,0
keybd_event53,0,KEYEVENTF_KEYUP,0
方法五：
PostMessagelHwnd,WM_KEYDOWN,vbKey5,0&
PostMessagelHwnd,WM_KEYUP,vbKey5,0&->