|
请问各位大神,我搞个小程序一键启动按键精灵的【调试】(快捷键F5)和【启动】(快捷键F10),用send函数发送无效。又试着用mouseclick点击,居然也不行,愁死个人
快捷键版
WinActivate("[CLASS:Afx:400000:8:10003:0:81053]", "")
If WinExists("[CLASS:Afx:400000:8:10003:0:81053]", "") The
WinActivate("[CLASS:Afx:400000:8:10003:0:81053]", "")
SendKeepActive ("[CLASS:Afx:400000:8:10003:0:81053]", "")
Sleep(1000)
Send ("{F5}")
Sleep(500)
Send ("{F10}")
Else
MsgBox(4096, "", "按键精灵未启动")
EndIf
找图版
Global $Locate
Global $time1
Global $x = 1
Global $y = 1
Global $w = @DesktopWidth
Global $h = @DesktopHeight
Global $ColorTrans = ''
Global $mOnlyFirst = True
Sleep(10)
_ClickScr(@ScriptDir & "\调试.bmp")
Sleep(3000)
_ClickScr(@ScriptDir & "\调试2.bmp")
Sleep(3000)
_ClickScr(@ScriptDir & "\启动.bmp")
Func _ClickScr($ImageSearch)
$Locate = myImageSearch_Desktop($ImageSearch, $x, $y, $w, $h, $ColorTrans, $mOnlyFirst)
If @error Then
MouseMove ( $Locate[0]+8, $Locate[1]+8)
Sleep(1000)
mouseclick("left")
EndIf
EndFunc
|
|