GUICreate("My Program", 250, 260)
GUISetState ()
Do
Until GUIGetMsg() = -3

MsgBox(0, 'Сообщение', 'Привет')

GUICreate("My Program", 250, 260)
$Button=GUICtrlCreateButton('Кнопка', 10, 10, 120, 22)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button
MsgBox(0, 'Сообщение', 'Привет')
Case $msg = -3
Exit
EndSelect
WEnd

GUICreate("My Program", 250, 260)
$Button1=GUICtrlCreateButton('Кнопка', 10, 10, 120, 22)
$Button2=GUICtrlCreateButton('Ещё Кнопка', 10, 40, 120, 22)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button1
MsgBox(0, 'Сообщение', 'Привет')
Case $msg = $Button2
GUICtrlSetData($Button2,'Текст изменён')
Beep(500, 1000)
Case $msg = -3
Exit
EndSelect
WEnd

HotKeySet('{ESC}', '_funcname')

While 1
Sleep(1000)
WEnd

Func _funcname()
MouseMove(10, 10, 100)
EndFunc

LeXorBuStErD
Риторический вопрос?

Ну что, будем геймеров подключать
Можно применить скрипт в играх. К примеру есть стратегия, в которой нужно кликнуть по объекту при появлении. Допустим объект имеет цвет, отличающийся от фона. Можно зациклить функцию проверки цвета (или диапазона) пиксела по воображаемой сетке монитора взависимости от размера обекта. Скорость срабатывания зависит от частоты цикла и количества проверяемых пикселов экрана. Как только объект появляется срабатывает условие проверки и выполняется эмуляция клика мыши по координатам объекта или эмуляция горячей клавиши.
Можно на горячую клавишу "повесить" выполнение нескольких комбинаций сэмулированных нажатий горячих клавиш игры.

Пример 5
а)HotKeySet('{ESC}', '_funcname') - установка горячей клавиши ESC на вызов функции _funcname (имя любое)
б)While - открываем бесконечный цикл с паузой в секунду - Sleep(1000), далее WEnd конец цикла
в)Func _funcname() - функция, которая вызывается горячей клавишей, все что внутри неё будет выполнятся при вызове. В данном случае MouseMove(10, 10, 100) - эмуляция перемещения мыши в координаты 10х10 со скроростью 100.
Итого

Имеем скрипт, который по горячей клавише ESC перемещает мышь. Горячих клавиш, как и функций можно добавлять сколько угодно и выполнение команд в функции также на любой выбор в любом количестве.

МАЛАДЕЦ а потом полочешьшь пожизненный перманентный бан в игрухе за ботоводство:)

LeXorBuStErD

Не обманывай людей с которыми играешь и не получишь бан.

GUICreate("Калькулятор", 250, 70)
$Input=GUICtrlCreateInput('', 10, 10, 225, 22)
$Button=GUICtrlCreateButton('Вычислить', 170, 40, 70, 22)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button
$input0=GUICtrlRead($input)
$input1=Execute($input0)
GUICtrlSetData($Input, $input1)
Case $msg = -3
Exit
EndSelect
WEnd

LeXorBuStErD
Любой программист понимает, что возможно написать скрипт на игру, всё зависит от человека. А не программист найдёт ботов в инете. Так что проблема человека, а не программирования. Скрипт не обязательно использовать в сетевых играх. Собирать ресурсы - тупое накопительство - отсутствие игрового процесса. Может к лучшему, что забанили, всё равно это уже была не игра. Если сам скрипт написал, то с пользой, научился программировать и избавился от тупизма накопителства в игре. Когда с друзьями играешь, так не вижу смысла в нечестной игре. А если слишком часто выигрываешь, то противник теряет интерес. Всё относительно, всё по ситуации.

Не обращай внимания на провокации, он просто геймер, к программированию отношения не имеет.

;1. Старт программы
Run('calc.exe')

;2. Завершить процесс (убить)
ProcessClose('calc.exe')

;3. Копировать файл
FileCopy('C:\boot.txt', 'D:\Temp\', 9)

;4. Удалить файл
FileDelete('C:\WINDOWS\*.log')

;5. Пинг хоста
Ping('178.50.76.4', 250)

;6. Завершить работу (2 - перезагрузить)
Shutdown(0)

;7. Выдвинуть или задвинуть лоток CD,DVD-привода.
CDTray('E:', 'open')
CDTray('E:', 'closed')

;8. Удалить каталог
DirRemove("C:\Temp", 1)

;9. Очистить корзину
FileRecycleEmpty()

;1. Открываем файл для чтения
$file = FileOpen('file.txt', 0)
;2. Читаем файл как обычный текст в переменную $text
$text = FileRead($file)
;3. Закрываем файл
FileClose($file)

;4. Выполняем замену текста, содержащегося в переменной $text и результат возвращаем в переменную $text.
$text=StringReplace($text, 'очепятка', 'опечатка')

;5. Сохраняем исправленный текст
;Открываем новый файл (можно в старый сохранить) с ключом 2, т.е. перезаписать
$file = FileOpen('file_New.txt',2)
;6. Записываем в файл текст из переменной $text
FileWrite($file, $text)
;7. Закрываем файл.
FileClose($file)

; Включаем пользовательские функции из File.au3
#include <File.au3>

; Вызываем диалог открытия папки и полученный им путь сохраняется в переменной $Path
$Path = FileSelectFolder ( 'Открыть','','',@WorkingDir)

; Если в диалоге выбрана "Отмена", то возвращается код ошибки и выполняется выход
If @error Then Exit

; Вызывается пользовательскай функция из включенной библиотеки File.au3, возвращающая список файлов
$FileList=_FileListToArray($Path,'*', 1)

; При ошибке или отсутствии файлов выдаётся сообщение и выполняется выход
If @Error Then
MsgBox (0,"","Файлов не найдено.")
Exit
EndIf

; При успешном выполнении предыдущих условий выполняем переименование файлов методом
; перемещения с присваиванием нового имени, без перезаписи.
For $i = 1 to $FileList[0]
FileMove($Path&'\'&$FileList[$i], $Path&'\New_'&$FileList[$i])
Next

#include <FTPEx.au3> ; подключаем библиотеку ФТП функций
#include <Array.au3> ; подключаем библиотеку по работе массивов

$Path='Driver\Driver для ноутбука' ; путь на сервере ФТП
$server = '10.80.31.182' ; имя домена или IP
$username = 'anonymous' ; логин
$pass = 'ru@mail.ru' ; пароль

$Open = _FTP_Open('MyFTP') ; открываем сессию
$Conn = _FTP_Connect($Open, $server, $username, $pass) ; подключаемся к серверу
_FTP_DirSetCurrent($Conn, $Path) ; устанавливаем указанный каталог текущим
$aFile = _FTP_ListToArray($Conn, 2) ; получаем имена файлов
$Ftpc = _FTP_Close($Open) ; закрываем открытую сессию
_ArrayDisplay($aFile, 'Файлы') ; показываем список