Завершение цикла в скрипте

[trizorka]

Доброго времени суток.
Прошу прощение за название темы. Нужно завершить один цикл в скрипте но не останавливая весь скрипт. При нажатии ctrl+q завершить цикл 2, но что бы продолжал работать цикл 1.

Dim $iStepX = 60
Dim $iStepY = 30
$iWindow = окно
GUICreate("ы", 530, $iStepY-4)
$button1 = GUICtrlCreateButton("go", 7*$iStepX, 0*$iStepY, $iWidth)

$Input = GUICtrlCreateInput("", 0*$iStepX, 0*$iStepY+2, 300, 21)
GUISetState()

While True ;~ 1
Global  $msg = GUIGetMsg()
If $msg =-3 Then Exit

if $msg = $button1 Then
TradeBot()
EndIf
Sleep(100)
WEnd

Func TradeBot()
If $iWindow = False Then Exit
WinActivate($iWindow) 
WinWaitActive($iWindow)
While True ;~ 2
$iRandom = Random(15*1000, 1.5*15*1000, 1)
Sleep(10)
Send("{F1}")
Sleep(10)
Send("^v")
Send("{ENTER}")
Sleep($iRandom)
WEnd

 

[rusreg79]

Стрелки показывают что я добавил

Спойлер

HotKeySet("^q", "_Ctrl_Q");	<==========
Func _Ctrl_Q();	<==========
	$ExitLoop = False;	<==========
EndFunc ;	<==========



Dim $iStepX = 60
Dim $iStepY = 30
$iWindow = 'окно'
GUICreate("ы", 530, $iStepY - 4)
$button1 = GUICtrlCreateButton("go", 7 * $iStepX, 0 * $iStepY, $iWidth)

$Input = GUICtrlCreateInput("", 0 * $iStepX, 0 * $iStepY + 2, 300, 21)
GUISetState()

While True ;~ 1
	Global  $msg = GUIGetMsg()
	If $msg = -3 Then Exit

	If $msg = $button1 Then
		$ExitLoop = True;	<==========
		TradeBot()
	EndIf
 	Sleep(100)
WEnd

Func TradeBot()
	If $iWindow = False Then Exit
	WinActivate($iWindow)
	WinWaitActive($iWindow)
	While $ExitLoop ;   <==========
		$iRandom = Random(15 * 1000, 1.5 * 15 * 1000, 1)
		Sleep(10)
		Send("{F1}")
		Sleep(10)
		Send("^v")
		Send("{ENTER}")
		Sleep($iRandom)
	WEnd
EndFunc

 

[trizorka]

спасибо, помогло.