|
|
发表于 2006-4-15 01:08:00
|
显示全部楼层
Re:请高手发个最基本的模拟鼠标和键盘的VB6源码!!!!!!!!!!!!!
虽然我是超级菜鸟 我可以帮你
代码如下
PRIVATE Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
PRIVATE Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
PRIVATE SUB COMMAND1——CLICK（）
CALL KEYB——EVENT（VBKEYCAPTITAL， 20 ，0，0）
CALL MOUSE——EVENT（MOUSEEVENTF——MOVE，13，33，0，0）
END SUB
事情OK了 是不是看到右上角的CAPLOCK亮了
|
|
楼主
