Что нового

как закончить выполнение скрипта !!!

rusreg79

Продвинутый
Сообщения
159
Репутация
57
У тебя в скрипте уже есть подсказка как завершить скрипт.
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Сleanout", 203, 71, 668, 394)
$Label1 = GUICtrlCreateLabel("", 64, 8, 68, 17)
$Button1 = GUICtrlCreateButton("Включить", 8, 32, 97, 33)
$Button2 = GUICtrlCreateButton("Выключить", 112, 32, 81, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit; Завершение работы скрипта

		Case $Button1
			Sleep(2000)
			FileDelete("ppp.exe")
			Sleep(2000)
			FileDelete("ppp.exe")
			Sleep(2000)
			FileDelete("ppp.exe")
		Case $Button2
			Exit; Завершение работы скрипта

	EndSwitch
WEnd
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
rusreg79
Можно еще проще
Код:
;...
        Case $GUI_EVENT_CLOSE, $Button2
            Exit; Завершение работы скрипта
;...


jimh
Удалять можно так:
Код:
$sFile = @ScriptDir & '\ppp.exe' ;лучше указывать полный путь
;...
For $i = 1 To 5
	$j = FileDelete($sFile)
	If $j Then ExitLoop
Next
If Not $j Then
	MsgBox(16, 'Error', 'Файл "' & $sFile & '" не удален.')
EndIf
;...
 
Автор
J

jimh

Новичок
Сообщения
18
Репутация
0
неполучается
скрипт выполняется до бесконечности
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
jimh

{OverQuoteWarn}
 

rusreg79

Продвинутый
Сообщения
159
Репутация
57
OffTopic:
jimh обиделсо на критику ;D
 

WasonAl

Новичок
Сообщения
31
Репутация
1
Видимо топикастер несколько раз нажимал на Включить. А каждое такое нажатие заставляет скрипт выполняться минимум 6 секунд. Из-за этого возникает впечатление, что скрипт не реагирует на кнопку Выключить. На самом деле это не так.
 
Верх