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

[KlouS]

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

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

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

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

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

Приступим:

1. Используем приложение Вконтакте "Черная молния"
   Для начала я выложу запрос, с которым будем работать
   

   http://blackflash.ext.terrhq.ru/php/setevent.php

   uid=наш айди&auth_key=наш ауз код&target=120713538&value=0&event=duel_groupe&zip=1

2. Открываем Koda Form Designer , и создаем форму для нашего бота. Примерно она будет такая.
   
   
   Я добавил:

   Input1
   Input2
   Input3
   Button1
   Button2
   Label1
   Label2

3. Нажимаем F9 и копируем данный код
   
   
4. Создаем на рабочем столе AutoIt v3 Script (ПКМ - Создать - AutoIt v3 Script). Можете переименовать файл как хотите!
   
   
   
5. Отлично, теперь нажимаем на созданный нами AutoIt v3 Script (ПКМ - Edit Script), вставляем скопированный нами текс в пункте 2.
   
   
   
6. И так, мы уже знаем какой код отправляет запросы на сервер:
   

   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

7. При вводе данных в нужно сделать так, чтобы они заменялись в запросе и сохранялись в конфиг:
   

   $sINI = @ScriptDir & '\config.ini'
   $sInput1 = IniRead($sINI, "Config", "Auth", "")
   $sInput2 = IniRead($sINI, "Config", "id", "")

   
   Это все добовляем поверх $Form1
   
   
8. В
   $Input1
   $Input2
   Прописываем вот такое:
   

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

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

   $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)

   Отлично, вот скрин:
   
   
10. Приступим к следующему шагу:
    Будем присвоивать значения, вот так:
    

    $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

    Уже с готовым запросом будет выглядит так:
    
    
11. Ну что ж, на последок, присвоим Буттон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)))

12. Вот и наш весь скрипт:
    
    
    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 

    

P.S. Надеюсь этот гайд будет вам полезен.
С уважением KlouS

[solya]

Окэй.
А для другого приложения?

Добавлено через 23 минуты
как создать форму7 по подробней!

[bawjke]

Спасибо, жду 3-ей части

[cunt85]

Цитата: Сообщение от solya Окэй. как создать форму7 по подробней!

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

[Mr.Azish]

Беда не выходит когда нажимаю правую кнопку