[已解决]如何中断运行中的命令?-已解决问题区-AUTOIT CN

afan 发表于 2023-9-2 16:46:35

邪恶海盗发表于 2023-9-2 16:42
你这是在打击我学习的积极性么???

因为 WM_COMMAND 例子实在是太多了，我首先也是给你说的这个~ :face (24):

邪恶海盗 发表于 2023-9-2 17:07:38

afan 发表于 2023-9-2 16:46
因为 WM_COMMAND 例子实在是太多了，我首先也是给你说的这个~

送佛要送到西的道理都不懂么?:face (25):

afan 发表于 2023-9-2 17:17:38

邪恶海盗发表于 2023-9-2 17:07
送佛要送到西的道理都不懂么?

For $n = 1 To 10
If $StopCode = 1 Then ExitLoop
$ts = TimerInit()
Do
If GUIGetMsg() = -3 Then Exit
Sleep(10)
Until TimerDiff($ts) > 500
GUICtrlSetData($Input1, $n)
Next

邪恶海盗 发表于 2023-9-2 17:53:58

本帖最后由邪恶海盗于 2023-9-2 17:55 编辑

afan 发表于 2023-9-2 17:17
X,原来只加一条判断消息就OK了,捣鼓许久觉得还是GUIOnEventMode好用一些,就是不知道CheckBox这个写得对不对...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form11.kxf
Opt('GUIOnEventMode', 1)
$Form1 = GUICreate("Form1", 500, 200)
GUISetOnEvent(-3, '_Close')
$Input1 = GUICtrlCreateInput("Input1", 56, 32, 225, 21)
$Input2 = GUICtrlCreateInput("Input2", 56, 132, 225, 21)
$Button1 = GUICtrlCreateButton("开始", 312, 24, 65, 33)
GUICtrlSetOnEvent(-1, '_Start')
$Button2 = GUICtrlCreateButton("停止", 400, 24, 73, 33)
$Checkbox = GUICtrlCreateCheckbox("Checkbox1", 300, 132)
GUICtrlSetOnEvent(-1, '_Chkbox')
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

While 1
Sleep(1000)
WEnd

Func _Start()
Opt('GUIOnEventMode', 0)
GUICtrlSetData($Button1, '正在运行')
GUICtrlSetState($Button1, $GUI_DISABLE)
GUICtrlSetState($Input1, $GUI_DISABLE)

For $n = 1 To 10
$ts = TimerInit()
Do
Switch GUIGetMsg()
Case -3
_Close()
Case $Button2
ExitLoop 2
Case $Checkbox
_Chkbox()
EndSwitch
GUICtrlSetData($Input1, $n)
Until TimerDiff($ts) > 500
Next
GUICtrlSetData($Button1, '开始')
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Input1, $GUI_ENABLE)
Opt('GUIOnEventMode', 1)
EndFunc ;==>_Start
Func _Chkbox()

If GUICtrlRead($Checkbox) = $GUI_CHECKED Then
GUICtrlSetData($Input2, 1)
Else
GUICtrlSetData($Input2, 0)
EndIf

EndFunc ;==>_Chkbox

Func _Close()
Exit
EndFunc ;==>_Close

邪恶海盗 发表于 2023-9-2 18:04:10

不是小灵通发表于 2023-9-2 15:40
关闭按钮无效，应该是程序暂时执念在for循环内不能自拔吧
是不是可以考虑个办法在循环体内弄个检测点击关 ...
就do后面加 If GUIGetMsg() = -3 Then Exit检测就行了,比如这样:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form11.kxf
Global $StopCode
$Form1 = GUICreate("Form1", 500, 200)
$Input1 = GUICtrlCreateInput("Input1", 56, 32, 225, 21)
$Button1 = GUICtrlCreateButton("Button1", 312, 24, 65, 33)
$Button2 = GUICtrlCreateButton("Button2", 400, 24, 73, 33)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
            Case $GUI_EVENT_CLOSE
                     Exit
            Case $Button1
                     $StopCode = 0
                     GUICtrlSetData($Button1, '开始')
                     GUICtrlSetData($Button1, '正在运行')
                     GUICtrlSetState($Button1, $GUI_DISABLE)
                     GUICtrlSetState($Input1, $GUI_DISABLE)
                     For $n = 1 To 10
                           If $StopCode = 1 Then ExitLoop
                           $ts = TimerInit()
                           Do
                                    If GUIGetMsg() = -3 Then Exit
                                    GUICtrlSetData($Input1, $n)
                           Until TimerDiff($ts) > 500
                     Next
                     GUICtrlSetData($Button1, '开始')
                     GUICtrlSetState($Button1, $GUI_ENABLE)
                     GUICtrlSetState($Input1, $GUI_ENABLE)
   EndSwitch
WEnd

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
   Local $hWndFrom, $iIDFrom, $iCode, $iIDFrom1
   Switch BitAND(0xffff, $wParam)
            Case $Button2
                     $StopCode = 1
   EndSwitch
EndFunc ;==>WM_COMMAND
Func _exit()
   Exit
EndFunc ;==>_exit

邪恶海盗 发表于 2023-9-3 10:48:43

afan 发表于 2023-9-2 17:17

看起来使用WM_COMMAND也不麻烦,但好像点Button2后要等延时走完了才会传递函数,而使用GUIOnEventMode是即时响应的...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form11.kxf
Global $StopCode
$Form1 = GUICreate("Form1", 500, 200)
$Input1 = GUICtrlCreateInput("Input1", 56, 32, 225, 21)
$Input2 = GUICtrlCreateInput("Input2", 56, 132, 225, 21)
$Button1 = GUICtrlCreateButton("Button1", 312, 24, 65, 33)
$Button2 = GUICtrlCreateButton("Button2", 400, 24, 73, 33)
$Checkbox = GUICtrlCreateCheckbox("Checkbox", 300, 132)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
            Case $GUI_EVENT_CLOSE
                     Exit
            Case $Button1
                     $StopCode = 0
                     GUICtrlSetData($Button1, '正在运行')
                     GUICtrlSetState($Button1, $GUI_DISABLE)
                     GUICtrlSetState($Input1, $GUI_DISABLE)
                     For $n = 1 To 10
If $StopCode = 1 Then ExitLoop
$ts = TimerInit()
Do
                                    If GUIGetMsg() = -3 Then Exit
                                    GUICtrlSetData($Input1, $n)
                           Until TimerDiff($ts) > 500
                     Next
                     GUICtrlSetData($Button1, '开始')
                     GUICtrlSetState($Button1, $GUI_ENABLE)
                     GUICtrlSetState($Input1, $GUI_ENABLE)
   EndSwitch
WEnd

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
   Local $hWndFrom, $iIDFrom, $iCode, $iIDFrom1
   Switch BitAND(0xffff, $wParam)
            Case $Button2
                     $StopCode = 1
            Case $Checkbox
                     If GUICtrlRead($Checkbox) = $GUI_CHECKED Then
                           GUICtrlSetData($Input2, 1)
                     Else
                           GUICtrlSetData($Input2, 0)
                     EndIf
   EndSwitch
EndFunc ;==>WM_COMMAND
Func _exit()
   Exit
EndFunc ;==>_exit

邪恶海盗 发表于 2023-9-3 10:54:46

搞定了,原来很简单,把28行的If $StopCode = 1 Then ExitLoop删除,然后把29行改成Until TimerDiff($ts) > 500 Or $StopCode=1即可,看来大佬有时候也会带我们入坑的...

afan 发表于 2023-9-3 11:03:44

WM_COMMAND 与 GUIOnEventMode 没有相干性~ 不管用什么方式都能及时响应，关键是代码逻辑。

haijie1223 发表于 2023-9-3 17:59:27

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form11.kxf
$Form1 = GUICreate("Form1", 500, 200)
$Input1 = GUICtrlCreateInput("Input1", 56, 32, 225, 21)
$Button1 = GUICtrlCreateButton("Button1", 312, 24, 65, 33)
$Button2 = GUICtrlCreateButton("Button2", 400, 24, 73, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $stop = False
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
For $n = 1 To 100
If $stop Then ExitLoop
Sleep(500)
GUICtrlSetData($Input1, $n)
Next
$stop = False
Case $Button2
EndSwitch
WEnd
Func WM_COMMAND($hwnd, $msg, $wparam, $lparam)
Local $Code = BitShift($wparam, 16)
Local $CtrlId = BitAND($wparam, 0xffff)
Local $hCtrl = $lparam
Switch $CtrlId
Case $Button1
Case $Button2
$stop = True
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

邪恶海盗 发表于 2023-9-3 18:06:20

haijie1223 发表于 2023-9-3 17:59

这个好像也要等延时过了之后才响应exitloop的?

邪恶海盗 发表于 2023-9-3 21:44:30

afan 发表于 2023-9-3 11:03
WM_COMMAND 与 GUIOnEventMode 没有相干性~ 不管用什么方式都能及时响应，关键是代码逻辑。

又发现一个问题,假如说把StopCode放到Until后面,实际上触发之后for to还是在运行的,对于实际使用来说是否会有影响?

afan 发表于 2023-9-3 22:02:52

邪恶海盗发表于 2023-9-3 21:44
又发现一个问题,假如说把StopCode放到Until后面,实际上触发之后for to还是在运行的,对于实际使用来说是否 ...

当然是这样，因此跳出的时机及检测点的数量很重要。

邪恶海盗 发表于 2023-9-3 22:27:36

afan 发表于 2023-9-3 22:02
当然是这样，因此跳出的时机及检测点的数量很重要。

在这个例子里怎么设计比较好???

afan 发表于 2023-9-3 22:44:31

本帖最后由 afan 于 2023-9-3 22:47 编辑

邪恶海盗发表于 2023-9-3 22:27
在这个例子里怎么设计比较好???
以你21#的代码为例，简单修改 For...Next中的内容，检测点换个地方即可，顺便再次纠正一处影响效率的地方（这是第三次纠正，每次都被你改回错误的方式，这种情况我一般都懒得说了），另外Sleep可按需添加。
                     For $n = 1 To 10
                           $ts = TimerInit()
                           Do
                                    If GUIGetMsg() = -3 Then Exit
                                    If $StopCode = 1 Then ExitLoop 2
                           Until TimerDiff($ts) > 500
                           GUICtrlSetData($Input1, $n)
                     Next

邪恶海盗 发表于 2023-9-3 23:00:22

afan 发表于 2023-9-3 22:44
以你21#的代码为例，简单修改 For...Next中的内容，检测点换个地方即可，顺便再次纠正一处影响效率的地方 ...

+1,果然条条大路通罗马啊,对于从来没学过编程的来说,能东拼西凑出这些玩意算是不错了,传说中的"屎山"代码可能就是如此???

页: 1 [2]

AUTOIT CN's Archiver