能加暂停按钮？再继续按钮吗？，有奖帮助，绝不忽悠. 谢谢（已解决）

creativewwz

能加暂停按钮？再继续按钮吗？

如果不好加，弄个热键退出也行啊

$timer = timerinit()
while 1
MouseClick("left",798,491,1)
Sleep(1500)
wend

guang19831217

偶菜鸟，脚本暂停了，应该就不再运行了吧。应该在暂停前加判断。

creativewwz

偶菜鸟，脚本暂停了，应该就不再运行了吧。应该在暂停前加判断。
guang19831217 发表于 2011-4-8 12:39

    谢谢你，等高手

kadingxiaodi

等待高手,学习一下,判断让他暂停不可以吗

wgboy

 #Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\WINDOWS\system32\SHELL32.dll|-190
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ACN_String.au3> 
#include <IE.au3>
$oIE = _IECreate ("http://www.baidu.com/",0,1,1,0)
WinSetState("百度一下，你就知道 - Windows Internet Explorer", "", @SW_MAXIMIZE)
Sleep(1000)
Send("autoit")
Sleep(1000)
Send("AutoIt 目前最新是v3版本，这是一个使用类似BASIC脚本语言的免费软件")
;;;; 这里是程序主体 ;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

把最后的话放在前面不就可以执行了吗？没能看明白你设计脚本是做什么用的。Send("AutoIt 目前最新是v3版本，这是一个使用类似BASIC脚本语言的免费软件")，这句最好不要用Send，因为输入法的不同。输入会出错。换个ControlCommand试试

guland

回复 1# creativewwz


    代码比较乱.......  不是拿你的代码改的,主要是给你看看原理

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)  ;使用事件模式
Global $Stop = True, $s = 0  ;设置变量,$Stop = True时开始循环,$Stop = False时停止循环
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 175, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "stop") ;注册窗口关闭事件
$Progress1 = GUICtrlCreateProgress(8, 8, 597, 21)
$Button1 = GUICtrlCreateButton("开始", 226, 70, 179, 65)
GUICtrlSetOnEvent($Button1, "stop") ;注册按钮点击事件
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
        If $Stop = True Then
                If $s = 100 Then $s = 0
                Sleep(200)
                $s += 5
                GUICtrlSetData($Progress1, $s)
        ElseIf $Stop = False Then

        EndIf
WEnd
Func stop()
        If @GUI_CtrlId = $Button1 Then ;按钮点击事件
                If $Stop = True Then
                        GUICtrlSetData($Button1, "开始")
                        $Stop = False
                Else
                        GUICtrlSetData($Button1, "停止")
                        $Stop = True
                EndIf
        EndIf
        If @GUI_CtrlId = $GUI_EVENT_CLOSE Then Exit
EndFunc   ;==>stop

haijie1223

楼主  不知道是不是这样的
Pause暂停/运行
Esc退出

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$timer = timerinit()

while 1
MouseClick("left",798,491,1)
Sleep(1500)
wend

Func Terminate()
    Exit 0
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('脚本被暂停了！',0,0) ;注意提示框的位置
    WEnd
    ToolTip("")
EndFunc

creativewwz

楼主  不知道是不是这样的
Pause暂停/运行
Esc退出
haijie1223 发表于 2011-4-8 18:30

    太好啦，就是这个效果，太谢谢啦！！！高手高手

dengweiqi

本帖最后由 haijie1223 于 2011-4-8 18:33 编辑

   xiexie

w55554

每看明白 是什么意思

ollydbg

不错，学习了啊。