[@trowas]

суть скрипта: перебирать пароли к комнате.
1 заходим на офф сайт аутоита
2 качаем\устанавливаем
3 создаем файл с расширением "au3"
4 пишем такое:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;создаем кнопки.форму итп

$Form1 = GUICreate("BrutЁ", 117, 150, -1, -1);название окна брута
GUISetBkColor(0x000000)
$Input1 = GUICtrlCreateInput("0000", 0, 47, 113, 21);(1)начинать брутить от
$Input2 = GUICtrlCreateInput("9999", 0, 72, 113, 21);(2)до
$Input3 = GUICtrlCreateInput("200", 0, 96, 113, 21);(3)задежка
$Label1 = GUICtrlCreateLabel("Point Blank", 0, 0, 97, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel("Room Brute", 16, 19, 97, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("By warl0ck", 24, 120, 91, 27)
GUICtrlSetFont(-1, 14, 400, 0, "Old English Text MT")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
Global $start = 0, $i ;переменные
;-------гор клавиши
HotKeySet("{f5}", "start") ;старт
HotKeySet("{f6}", "stop") ;стоп
;-------- "тело" скрипта

While 1
;------------настройка крестика(Х-закрытие программы)
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
;---------------------------------------------------
    If $start = 1 Then ;если ф5 зажата тогда-
        If WinActive('Point Blank') Then ;если окно игры октрыто тогда -
            AutoItSetOption('SendKeyDownDelay', GUICtrlRead($Input3)) ;задержка
            If GUICtrlRead($Input1) < GUICtrlRead($Input2) Then ;если значение в (1) меньше чем во (2)м тогда
                Send(GUICtrlRead($Input1)) ;пишем число
                Send("{ENTER}") ;жмем ентер
                Sleep(GUICtrlRead($Input3)) ;задержка
                GUICtrlSetData($Input1, StringFormat("%04d", Number(GUICtrlRead($Input1)) + 1)) ;добавляем к 1му числу +1
            EndIf
        EndIf
    EndIf
WEnd

Func start() ; функция включения
    $start = 1
EndFunc   ;==>start

Func stop() ; функция выключения
    $start = 0
EndFunc   ;==>stop

включать ф5
отключать ф6
за макросы не банят

взято с жука

[/HIDE]