Что нового

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

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
Пишет ошибку.
errors.png


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

`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,320
Meridi
Создайте свою тему.
 

Meridi

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