Что нового

Задействовать API функцию для работы с сервисом antigate.com

maxim_porsche

Новичок
Сообщения
25
Репутация
0
Версия AutoIt:3.3.12.0

Описание:
Имеется вот такой вот скрипт.
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $iCount = 0
Global $aLinks[3] = ["http://vk.cc/2UuDK1", "http://vk.cc/2VazKW", "http://vk.cc/2UuECW"]
; Простой пример: Встраивание объекта Internet Explorer внутри AutoIt GUI
;
; Смотрите также: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
; и функцию _IECreateEmbedded

Local $oIE, $GUIActiveX, $iBtn_Back, $iBtn_Forward, $iBtn_Refresh

$oIE = ObjCreate("Shell.Explorer.2")

; Создаёт простое GUI-окно для вывода
GUICreate("Test Browser", 640, 480, -1, -1, _
        BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN), $WS_EX_COMPOSITED)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 405)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
Opt("GUIResizeMode", 2 + 64 + 256 + 512) ; Для кнопок
$iBtn_Back = GUICtrlCreateButton("Назад", 10, 420, 60, 30)
$iBtn_Forward = GUICtrlCreateButton("Вперёд", 80, 420, 60, 30)
$iBtn_Refresh = GUICtrlCreateButton("Обновить", 290, 420, 60, 30)

GUISetState() ; показывает созданное окно

$oIE.navigate($aLinks[$iCount])
GUICtrlSetState($GUIActiveX, 256);focus
$oIE.document.body.focus()

; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $iBtn_Back
            $iCount -= 1
            If $iCount < 0 Then $iCount = UBound($aLinks) - 1
            If $iCount > (UBound($aLinks) - 1) Then $iCount = 0
            $oIE.navigate($aLinks[$iCount])
            GUICtrlSetState($GUIActiveX, 256);focus
            $oIE.document.body.focus()
        Case $iBtn_Forward
            $iCount += 1
            If $iCount < 0 Then $iCount = UBound($aLinks) - 1
            If $iCount > (UBound($aLinks) - 1) Then $iCount = 0
            $oIE.navigate($aLinks[$iCount])
            GUICtrlSetState($GUIActiveX, 256);focus
            $oIE.document.body.focus()
        Case $iBtn_Refresh
            $oIE.document.execCommand("Refresh")
            GUICtrlSetState($GUIActiveX, 256);focus
            $oIE.document.body.focus()
    EndSwitch
WEnd

который ходит по списку ссылок при нажатии на кнопки "Вперед"/"Назад".
Примечания:
Имеется API функция http://autoit-script.ru/index.php?topic=14109.0 , которую нужно задействовать в скрипте.
Что необходимо сделать: При запуске программы необходимо окошко для ввода ключа Antigate и вывод баланса рядом с кнопкой "Обновить" ,если не введен,то прекратить задействование функции и продолжить работу программы.Затем необходим цикл (в случае задействования API функции) --> после загрузки страницы найти каптчу,сохранить её,отправить на сервер распознавания,получить статус каптчи,получить ответ,ввести ответ в окошко каптчи и нажать на кнопку ввода каптчи,затем проверить баланс,вывести его,после чего пойти дальше по списку ссылок.

P.S. Если не трудно, объясните что делает $DEBUG в API функции,а то что-то не догнал :(
 
Верх