程序启动快捷键后窗口无法退出！

那片叶子 · 发表于 2009-10-29 00:31:02

本帖最后由那片叶子于 2009-10-29 00:52 编辑

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Paused
$Form1 = GUICreate("测试窗口", 232, 88, 192, 114)
$Button1 = GUICtrlCreateButton("测  试 按 钮", 56, 32, 113, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        HotKeySet("{F1}", "qidong");启动鼠标连点
                        HotKeySet("{End}", "zhanting");暂停鼠标连点

        EndSwitch
WEnd

Func zhanting()
        $Paused = True
        TogglePause()
EndFunc
        
Func TogglePause()
        While $Paused
                Sleep(100)
                ToolTip('暂停鼠标连点', 0, 0)
        WEnd
EndFunc
        
Func qidong()
        ToolTip("")
        While 1
                MouseClick("left")
        WEnd
EndFunc

如上，我点击界面按钮后启动快捷键！未启动时，测试窗口可以关闭，按F1启动后，暂停，就无法关闭测试窗口，请各位帮忙看下！谢谢了!

131738 · 发表于 2009-10-29 00:41:51

While 除非调用 ExitLoop ,否则无限循环. 是不是这样啊??????????............

newx · 发表于 2009-10-29 00:42:10

本帖最后由 newx 于 2009-10-29 00:45 编辑

Func qidong()
      ToolTip("")
      While 1
            MouseClick("left")
      WEnd
EndFunc
这段代码（启动后），一直在循环MouseClick("left")，可没有退出循环的语句呀
解决：中间加个判断的语句，以执行退出循环
HotKeySet("{ESC}", ExitLoop)

那片叶子 · 发表于 2009-10-29 00:51:50

Func qidong()
      ToolTip("")
      While 1
            MouseClick("left")
      WEnd
EndFunc
这段代码（启动后），一直在循环MouseClick("left")，可没有退出循环的语句呀
解决：中间加个 ...
newx 发表于 2009-10-29 00:42

谢谢大大！！

newx · 发表于 2009-10-29 01:08:03

改了一下

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Paused
$Form1 = GUICreate("测试窗口", 232, 88, 192, 114)
$Button1 = GUICtrlCreateButton("测  试 按 钮", 56, 32, 113, 25, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        HotKeySet("{F1}", "qidong");启动鼠标连点
                        HotKeySet("{End}", "zhanting");暂停鼠标连点
                        HotKeySet("{ESC}", "nExit");暂停鼠标连点
        EndSwitch
WEnd

Func zhanting()
        $Paused = True
        TogglePause()
EndFunc
        
Func TogglePause()
        While $Paused
                Sleep(100)
                ToolTip('暂停鼠标连点', 0, 0)
        WEnd
EndFunc
        
Func qidong()
        ToolTip("")
        While 1
                MouseClick("left")
        WEnd
EndFunc

Func nExit()
        Exit
EndFunc

那片叶子 · 发表于 2009-10-29 01:23:01

貌似按了ESC就退出了！能否不让其退出！

那片叶子 · 发表于 2009-10-29 01:32:47

弄了个很笨的方法！
Func qidong()
      Global $P=0
      While $p=0
            MouseClick("left")
      WEnd
EndFunc

对while 负值，然后按下热键对其再次负值

Func zhanting()
  $p=1
EndFunc

While 表达式说明：若该表达式的值为true(真)则重复执行循环体语句(以WEnd为结束标志),否则循环结束.

newx · 发表于 2009-10-29 01:59:40

Func nExit()
Exit
EndFunc
改为：

Func nExit()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
                        HotKeySet("{F1}", "qidong");启动鼠标连点
                        HotKeySet("{End}", "zhanting");暂停鼠标连点
                        HotKeySet("{ESC}", "nExit");暂停鼠标连点
        EndSwitch
WEnd
EndFunc

		自动登录	找回密码
密码			加入

程序启动快捷键后窗口无法退出！

评分