liangzz 发表于 2024-3-3 15:42:52

按键精灵界面mouseclick和send失效

请问各位大神，我搞个小程序一键启动按键精灵的【调试】（快捷键F5）和【启动】（快捷键F10），用send函数发送无效。又试着用mouseclick点击，居然也不行，愁死个人


快捷键版

WinActivate("", "")
If WinExists("", "") The
    WinActivate("", "")
        SendKeepActive ("", "")
    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+8, $Locate+8)
                Sleep(1000)
mouseclick("left")

        EndIf
EndFunc


afan 发表于 2024-3-3 16:31:09

CLASS:Afx:400000:8:10003:0:81053 <- 这种不会变吗？
另外 WinActivate 激活后最好 WinWaitActive，而不是 WinExists 及再次 WinActivate...

liangzz 发表于 2024-3-4 09:04:53

afan 发表于 2024-3-3 16:31
CLASS:Afx:400000:8:10003:0:81053

都一样，你说的都不是问题所在
页: [1]
查看完整版本: 按键精灵界面mouseclick和send失效