- 注册时间
- 2011-3-10
- 最后登录
- 1970-1-1
该用户从未签到
|
HotKeySet("{F6}","StartJ")
HotKeySet("{F7}","PausedJ")
HotKeySet("{F8}","ExitJ")
;主体脚本
$WM_KEYDOWN=0x0100
$WM_KEYUP=0x0101
$WM_CHAR=0x0102
MainLoop()
Exit
;等待事件触发
Func MainLoop()
while 1
sleep(100)
WEnd
EndFunc
;开始脚本
Func StartJ()
$Jhandle=WinGetHandle("classname=Notepad")
sleep(1000)
SendKey($Jhandle,Asc("10"))
sleep(2000)
EndFunc
;暂停脚本
Func PausedJ()
while 1
sleep(100)
WEnd
EndFunc
;退出脚本
Func ExitJ()
Exit
EndFunc
Func SendKey($aHandle,$Key)
SendKeyDown($aHandle,$Key)
Sleep(10)
SendKeyUp($aHandle,$Key)
EndFunc
Func SendKeyDown($aHandle,$Key)
DllCall("user32.dll","int","SendMessage","hwnd",$aHandle,"int",$WM_KEYDOWN,"int",$Key,"long",1)
EndFunc
Func SendKeyUp($aHandle,$Key)
DllCall("user32.dll", "int", "SendMessage","hwnd",$aHandle,"int",$WM_KEYUP,"int",$Key,"long",1)
EndFunc |
|