Что нового

[Сеть, интернет] Автоматическая регистрация.

Gzzk

Новичок
Сообщения
104
Репутация
1
Версия AutoIt: v3.3.6.1

Описание:
Программа должна зайти по реферальной ссылке,нажать на кнопку регистрация.Заполнить формы.Нажать зарегистрироваться.После того,как регистрация произошла - программа должна очистить куки.Сменить прокси.
Сайт:websurf.ru.
Что надо заполнить:
3559baabc995.jpg

Всё.
Примечания:
Пароли,имена,прокси и e-mail'ы программа должна брать из .txt файла.
Кусок кода,который может помочь:
Код:
#RequireAdmin
#include <file.au3>
#include <array.au3>
#include <ie.au3>

OnAutoItExitRegister("_Exit")
_Save()

;загружаем прокси
Dim $aProxies
If Not _FileReadToArray(@ScriptDir & "\replacement.txt", $aProxies) Then
   MsgBox(4096,"Error", " Error reading log to Array     error:" & @error)
   Exit
EndIf

;загружаем сайты
Dim $aSites[3] = ["ya.ru", "google.com", "mail.ru"]

;создаем объект $oIE
$oIE = _IECreate ()

For $i = 1 To $aProxies[0]
    _ProxyChange($aProxies[$i])
    For $j = 0 To UBound($aSites) - 1
        $sURL = $aSites[$j]
        _IENavigate($oIE, $sURL, 1)
        MsgBox(0,0,'')
    Next
Next

Exit



;Меняем прокси
Func _ProxyChange($sProxy = '')
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxy)
EndFunc

;Сохраняем значения прокси
Func _Save()
    Global $sProxyEnable = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable")
    Global $sProxyServer = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer")
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", 1)
EndFunc

;Загружаем значения прокси
Func _Load()
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", $sProxyEnable)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $sProxyServer)
EndFunc

;По выходу загружаем сохраненные настройки прокси
Func _Exit()
    _Load()
    MsgBox (0,0, "Вышли из программы")
    Exit
EndFunc
 
Верх