valdur2000
Знающий
- Сообщения
- 155
- Репутация
- 7
Код:
While 1
Sleep(100)
WEnd
Не раз видел, что некоторые скрипты начинаются с такого цикла While. Зачем?
While 1
Sleep(100)
WEnd
While 1
Sleep(100)
WEnd
MsgBox (0,"","")
HotKeySet("{Esc}", "_Exit")
HotKeySet("{NUMPAD0}", "_NUMPAD0")
HotKeySet("{NUMPAD1}", "_NUMPAD1")
HotKeySet("{NUMPAD2}", "_NUMPAD2")
HotKeySet("{NUMPAD3}", "_NUMPAD3")
HotKeySet("{NUMPAD4}", "_NUMPAD4")
HotKeySet("{NUMPAD5}", "_NUMPAD5")
HotKeySet("{NUMPAD6}", "_NUMPAD6")
HotKeySet("{NUMPAD7}", "_NUMPAD7")
HotKeySet("{NUMPAD8}", "_NUMPAD8")
HotKeySet("{NUMPAD9}", "_NUMPAD9")
While 1
Sleep(100)
WEnd
Func _Exit()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "Escape" на цифровой клавиатуре' & @CRLF & @CRLF & "Выход из программы...", 10)
Exit
EndFunc
Func _NUMPAD0()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "0" на цифровой клавиатуре')
EndFunc
Func _NUMPAD1()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "1" на цифровой клавиатуре')
EndFunc
Func _NUMPAD2()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "2" на цифровой клавиатуре')
EndFunc
Func _NUMPAD3()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "3" на цифровой клавиатуре')
EndFunc
Func _NUMPAD4()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "4" на цифровой клавиатуре')
EndFunc
Func _NUMPAD5()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "5" на цифровой клавиатуре')
EndFunc
Func _NUMPAD6()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "6" на цифровой клавиатуре')
EndFunc
Func _NUMPAD7()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "7" на цифровой клавиатуре')
EndFunc
Func _NUMPAD8()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "8" на цифровой клавиатуре')
EndFunc
Func _NUMPAD9()
MsgBox(64, "Нажатие клавиши", 'Вы нажали "9" на цифровой клавиатуре')
EndFunc
$i = 0
While $i <= 10
MsgBox(0, "Value of $i is:", $i)
$i = $i + 1
WEnd
#include <GUIConstantsEx.au3>
$hGUI = GUICreate("Test Script", 300, 200)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd