Что нового

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

voler

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

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

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

Arei

Скриптер
Сообщения
938
Репутация
115
Код:
#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

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
Arei
Даже интересно, Вы то же искали через поиск или открыли мою ссылки и скопировали?
...хммм.. ;)
 

Arei

Скриптер
Сообщения
938
Репутация
115
я немного научился поиском :smile:
 
Автор
V

voler

Новичок
Сообщения
3
Репутация
0
Arei сказал(а):
я немного научился поиском :smile:
Спасибо, но поиском я пользовался.
На vkontakte.ru мне не дал нужного поиск.
Прошу прощения.

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


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

`p r o x y

«Улыбайтесь, господа!»
Команда форума
Глобальный модератор
Сообщения
596
Репутация
157
voler [?]
Для того, что бы запустить текущий пример, необходимо открыть любой редактор, вставить туда код примера, сохранить в файла с расширением AU3, и его запускать. Подробнее в справке и тут.
 

Yuri

AutoIT Гуру
Сообщения
737
Репутация
282
Еще один примерчик.
Код:
$Login = "[email protected]" ; Ваш логин
$Pass = "qwerty" ;Ваш пароль
ShellExecute("http://vkontakte.ru/login.php?m=1&email="&$Login&"&pass="&$Pass) ;вход на сайт
 
Автор
V

voler

Новичок
Сообщения
3
Репутация
0
Для того, что бы запустить текущий пример, необходимо открыть любой редактор, вставить туда код примера, сохранить в файла с расширением 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

Новичок
Сообщения
9
Репутация
0
$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

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Meridi
Создайте свою тему.
 

Meridi

Новичок
Сообщения
9
Репутация
0
Дак вы же мне её закроете по причине того что такая или подобная тема уже есть :smile: мол за незнания правил форума. Или нет?
 
Верх