Создание бота в AutoIt Часть 2

**KlouS** · 12.02.2011, 01:52

Создание бота в AutoIt Часть 2

В данном Уроке продолжим изучать азы програмирования в AutoIt.
Мы сегодня рассмотрим:

Сделаем сохранение данных(при вводе в программу)
Добавим строку состояния
Ну и по новому россмотрим авторизацию в боте

Для создания бота, нам понадобиться:

[Ссылки могут видеть только зарегистрированные пользователи. ]
Программа для создания интерфейса - [Ссылки могут видеть только зарегистрированные пользователи. ]
Программа которая переделывает скрипт в .exe + можно выбрать иконку бота - [Ссылки могут видеть только зарегистрированные пользователи. ]

Приступим:

Используем приложение Вконтакте "Черная молния"
Для начала я выложу запрос, с которым будем работать
Код:
```
http://blackflash.ext.terrhq.ru/php/setevent.php
```
Код:
```
uid=наш айди&auth_key=наш ауз код&target=120713538&value=0&event=duel_groupe&zip=1
```
Открываем Koda Form Designer , и создаем форму для нашего бота. Примерно она будет такая.

Я добавил:
Input1
Input2
Input3
Button1
Button2
Label1
Label2
Нажимаем F9 и копируем данный код
Создаем на рабочем столе AutoIt v3 Script (ПКМ - Создать - AutoIt v3 Script). Можете переименовать файл как хотите!
Отлично, теперь нажимаем на созданный нами AutoIt v3 Script (ПКМ - Edit Script), вставляем скопированный нами текс в пункте 2.

И так, мы уже знаем какой код отправляет запросы на сервер:

Код:

Case $Button1 
            $URL = "Тут прописываем URL запроса"
            $PostData = "Тут прописываем параметры запроса"
            $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
            $oHTTP.Open("POST", $URL)
            $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
            $oHTTP.Send($PostData)
            $oHTTP.WaitForResponse
            $Response = $oHTTP.ResponseText

При вводе данных в нужно сделать так, чтобы они заменялись в запросе и сохранялись в конфиг:
Код:
```
$sINI = @ScriptDir & '\config.ini'
$sInput1 = IniRead($sINI, "Config", "Auth", "")
$sInput2 = IniRead($sINI, "Config", "id", "")
```
Это все добовляем поверх $Form1

В
$Input1
$Input2
Прописываем вот такое:

Код:

$Input1 = GUICtrlCreateInput($sInput1, 16, 16, 209, 21)
$Input2 = GUICtrlCreateInput($sInput2, 16, 48, 121, 21)

У нас есть такой код:

Код:

$Label1 = GUICtrlCreateLabel("Состояние:", 8, 80, 61, 17)
$Label2 = GUICtrlCreateLabel("Label2", 72, 80, 52, 17)

$Label2 - заменяем на $Label1 Вот так:

Код:

$Label1 = GUICtrlCreateLabel("Состояние:", 8, 80, 61, 17)
$Label1 = GUICtrlCreateLabel("", 72, 80, 52, 17)

Отлично, вот скрин:

Приступим к следующему шагу:
Будем присвоивать значения, вот так:
Код:
```
$auth = GUICtrlRead($Input1)
			$myid = GUICtrlRead($Input2)
			$my_i = GUICtrlRead($Input3)
			if $my_i = "Количество" then $my_i = 1
			For $i = 0 to $my_i Step 1
```
Уже с готовым запросом будет выглядит так:

Ну что ж, на последок, присвоим Буттон1 сохранение в конфиг

Код:

Case $Button1
            $sINI = @ScriptDir & '\config.ini'
            $Auth = IniWrite($sINI, "Config", "Auth", GUICtrlRead(StringStripWS($Input1, 3)))
            $sUser = IniWrite($sINI, "Config", "id", GUICtrlRead(StringStripWS($Input2, 3)))

Вот и наш весь скрипт:

PHP код:

#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $sINI = @ScriptDir & '\config.ini' $sInput1 = IniRead($sINI, "Config", "Auth", "") $sInput2 = IniRead($sINI, "Config", "id", "") $Form1 = GUICreate("Черная Молния", 221, 125, 386, 338) $Input1 = GUICtrlCreateInput($sInput1, 8, 8, 201, 21) $Input2 = GUICtrlCreateInput($sInput2, 8, 40, 97, 21) $Button1 = GUICtrlCreateButton("Save", 136, 96, 73, 25) $Button2 = GUICtrlCreateButton("Go-Go-Go", 112, 40, 97, 49) $Label1 = GUICtrlCreateLabel("Состояние:", 8, 104, 61, 17) $Label1 = GUICtrlCreateLabel("", 72, 104, 52, 17) $Input3 = GUICtrlCreateInput("Количество", 8, 72, 97, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 $auth = GUICtrlRead($Input1) $myid = GUICtrlRead($Input2) $my_i = GUICtrlRead($Input3) if $my_i = "Количество" then $my_i = 1 For $i = 0 to $my_i Step 1 GUICtrlSetData ($Label1, $i&" из "&$my_i) $URL = "http://blackflash.ext.terrhq.ru/php/setevent.php" $PostData = "uid="& $myid &"&auth_key="& $auth &"&target=120713538&value=0&event=duel_groupe&zip=1" $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1") $oHTTP.Open("POST", $URL) $oHTTP.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") $oHTTP.Send($PostData) $oHTTP.WaitForResponse $Response = $oHTTP.ResponseText sleep(1000) Next MsgBox(0, "^_^", "Гонки завершены") Case $Button1 $sINI = @ScriptDir & '\config.ini' $Auth = IniWrite($sINI, "Config", "Auth", GUICtrlRead(StringStripWS($Input1, 3))) $sUser = IniWrite($sINI, "Config", "id", GUICtrlRead(StringStripWS($Input2, 3))) EndSwitch WEnd