躲避了np的扫描现在就可以模拟了！
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要vb api函数：
keybd_event ←函数模拟了键盘行动
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关api声明：
keybd_event
private declare sub keybd_event lib "user32" (byval bvkbyte, byval sbyte, byval dwflagslong, byval dwextrainfolong)
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
private declare sub keybd_event lib "user32" (byval bvkbyte, byval sbyte, byval dwflagslong, byval dwextrainfolong)
private sub timer1_timer
call keybd_event(82, 0, 0, 0) '模拟按下"r"键
end sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它模拟：
方法一：
appactivate stitle
sendkeys "5"
方法二：
appactivate stitle
sendkeys vbkey5
方法三：
sendmessage hwnd, wm_keydown, vbkey5, 0&
sendmessage hwnd, wm_keyup, vbkey5, 0&
方法四：
appactivate stitle
keybd_event 53, 0, 0, 0
keybd_event 53, 0, keyeventf_keyup, 0
方法五：
postmessage lhwnd, wm_keydown, vbkey5, 0&
postmessage lhwnd, wm_keyup, vbkey5, 0&</p>