能加暂停按钮？再继续按钮吗？，有奖帮助，绝不忽悠. 谢谢（已解决）
本帖最后由 creativewwz 于 2011-4-8 18:38 编辑能加暂停按钮？再继续按钮吗？
如果不好加，弄个热键退出也行啊
$timer = timerinit()
while 1
MouseClick("left",798,491,1)
Sleep(1500)
wend 偶菜鸟，脚本暂停了，应该就不再运行了吧。应该在暂停前加判断。 偶菜鸟，脚本暂停了，应该就不再运行了吧。应该在暂停前加判断。
guang19831217 发表于 2011-4-8 12:39 http://www.autoitx.com/images/common/back.gif
谢谢你，等高手 等待高手,学习一下,判断让他暂停不可以吗 #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试试 回复 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 于 2011-4-8 18:33 编辑
楼主不知道是不是这样的
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
楼主不知道是不是这样的
Pause暂停/运行
Esc退出
haijie1223 发表于 2011-4-8 18:30 http://www.autoitx.com/images/common/back.gif
太好啦，就是这个效果，太谢谢啦！！！高手高手 本帖最后由 haijie1223 于 2011-4-8 18:33 编辑
xiexie 每看明白 是什么意思 不错，学习了啊。
页:
[1]