[Сеть, интернет] Запуск браузера, ввод логина и пароля. Работа на странице.

[voler]

Версия AutoIt: 3.Х

Описание:
Добрый день.
Есть ли реализация на AutiIt следующей задачи?
Запуск браузера ввод логина и пароля, для странички?
Страничка к примеру vkontakte.ru.
Браузер любой.
Примечания:
Сложность реализации?
Скрипт делится на три этапа:
1. Запсук браузера, осуществляется методом Run?
2. Переход на страницу, браузер поддерживают запуск с указанием страницы.
3. Передать логин и пароль.

Все больше не требуется, не чего.

 

[`p r o x y]

Надо учиться пользоваться поиском. Примеров автоматизации с этим сайтом на форуме полно. :search:

 

[Arei]

#include <IE.au3>

Opt('MustDeclareVars',      1)
Opt('TrayIconDebug',        1)

HotKeySet('{ESC}', '_Exit')

_VK_Login('e-mail', 'password')
If @error Then MsgBox(16, 'Авторизация', 'Ошибка авторизации: ' & @TAB & @error & @CRLF & 'Ошибка функции: ' & @TAB & @TAB & @extended)

Func _VK_Login($sEmail, $sPass, $iHide=1)
    Local $oIE, $oLoginForm, $oEmail, $oPass

    $oIE        = _IECreate('http://vkontakte.ru', 0, 0)
    If @error Then
        SetError(1, @error)
        Return 0
    EndIf

    $oLoginForm = _IEFormGetObjByName($oIE, 'login')
    If @error Then
        SetError(2, @error)
        Return 0
    EndIf

    $oEmail     = _IEFormElementGetObjByName($oLoginForm, 'email')
    If @error Then
        SetError(3, @error)
        Return 0
    EndIf

    $oPass      = _IEFormElementGetObjByName($oLoginForm, 'pass')
    If @error Then
        SetError(4, @error)
        Return 0
    EndIf

    _IEFormElementSetValue($oEmail, $sEmail)
    If @error Then
        SetError(5, @error)
        Return 0
    EndIf

    _IEFormElementSetValue($oPass, $sPass)
    If @error Then
        SetError(6, @error)
        Return 0
    EndIf

    _IEFormSubmit($oLoginForm)
    If @error Then
        SetError(5, @error)
        Return 0
    EndIf


    If $iHide Then _IEAction($oIE, 'visible')
    If @error Then
        SetError(6, @error)
        Return 0
    EndIf

    SetError(0, 0)
    Return 1
EndFunc

Func _Exit()
    Exit
EndFunc

вот код `p r o x y

 

[`p r o x y]

Arei
Даже интересно, Вы то же искали через поиск или открыли мою ссылки и скопировали?
...хммм.. ;)

 

[Arei]

я немного научился поиском

 

[voler]

я немного научился поиском

Спасибо, но поиском я пользовался.
На vkontakte.ru мне не дал нужного поиск.
Прошу прощения.

Запускаю так
AutoIt3.exe IE.au3
Пишет ошибку.

Мне нужно зайти на сайт и работать.

 

[`p r o x y]

voler [?]

AutoIt3.exe IE.au3

Для того, что бы запустить текущий пример, необходимо открыть любой редактор, вставить туда код примера, сохранить в файла с расширением AU3, и его запускать. Подробнее в справке и тут.

 

[Yuri]

Еще один примерчик.

$Login = "[email protected]" ; Ваш логин
$Pass = "qwerty" ;Ваш пароль
ShellExecute("http://vkontakte.ru/login.php?m=1&email="&$Login&"&pass="&$Pass) ;вход на сайт

 

[voler]

Для того, что бы запустить текущий пример, необходимо открыть любой редактор, вставить туда код примера, сохранить в файла с расширением AU3, и его запускать. Подробнее в справке и тут.

Отлично работает, отсалось откомпилировать скрипт в exe и все.
И из откомпелироанного извлечь парорль можно?

Еще вопросик?
Усложнить задачу так сказать, выбор браузера. Или вызов того браузера, который установлен в системе поумолчанию?
Но есть и минусы в работе скрипта, он запускается отрабатывает, но при выходе из IE, если на страничке не нажать выйти, то при повторном запуске выдает ошибку авторизации..

Вот может, не завершать действие скрипта? А ждать пока нажмут на кнопку закрытия IE и запускать чистку?

RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 4351

$Login = "[email protected]" ; Ваш логин
$Pass = "qwerty" ;Ваш пароль
ShellExecute("http://vkontakte.ru/login.php?m=1&email="&$Login&"&pass="&$Pass) ;вход на сайт

Данный пример работет шустрее, но есть проблема. Можно выловить логин и пароль.
В Первом примере, я в строке браузера не замечаю этих строк.

 

[Meridi]

$Login = "[email protected]" ; Ваш логин
$Pass = "qwerty" ;Ваш пароль
ShellExecute("http://vkontakte.ru/login.php?m=1&email="&$Login&"&pass="&$Pass) ;вход на сайт

А можно такой же скрипт сделать для сайта http://irkutsk.irr.ru/ мне просто для работы нужно!

скрипт должен сделать следующее в файер фокс:
1. Войти под логином на сайт
2. там же выбрать раздел "подать объявления"
3. выбрать нужные варианты из выпадающего меню

 

[madmasles]

Meridi
Создайте свою тему.

 

[Meridi]

Дак вы же мне её закроете по причине того что такая или подобная тема уже есть мол за незнания правил форума. Или нет?