|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Авторизация на форуме |
|
Авторизация на форуме
|
Новый участник Сообщения: 6 |
Профиль | Отправить PM | Цитировать Помогите пожалуйста. Ни как не могу справиться с авторизацией на этом форуме и форумах типа этого (где инпуты такого вида)_http://forum.gamer.uz/index.php?act=Login&CODE=01.
#include<IE.au3> vxod() Func vxod() _IELoadWaitTimeout(60000) While 1 $vxod = _IECreate('http://forum.gamer.uz/index.php?act=Login&CODE=01') Select Case @error = 0 $body = _IEBodyReadText($vxod) If StringInStr($body, 'Сейчас вы не авторизованы. Можете сделать это, используя форму ниже.') Then ExitLoop Else _IEAction($vxod, 'quit') TrayTip('Error in page', 'bad connection', 10, 2) Sleep(300000) EndIf Case @error = 6 _IEAction($vxod, 'quit') TrayTip('Time out', 'Try again...', 10, 1) EndSelect WEnd $form = _IEFormGetCollection($vxod, 0) $loginBox = _IEFormElementGetObjByName($form, "UserName") $passBox = _IEFormElementGetObjByName($form, "PassWord") _IEFormElementSetValue($loginBox, 'Logintext') _IEFormElementSetValue($passBox, 'Passtext') ;_IEFormSubmit($form, 0) sleep(10000) EndFunc |
|
Отправлено: 21:45, 08-05-2009 |
Новый участник Сообщения: 6
|
Профиль | Отправить PM | Цитировать Нашел решение этой проблемы.
#include<IE.au3> $login="" $pass="" _IECreate('http://forum.gamer.uz/index.php?" & $login & ";" & $pass & ";CODE=00") Начал писать програмку регистрации на сайте, сразу наткнулся на проблему вбивание инфы. (_http://www.torg.uz/registration.php) Пробовал использовать выше указанный скрипт с _IEFormGetCollection, не получается. #include<IE.au3> vxod() Func vxod() _IELoadWaitTimeout(60000) While 1 $vxod = _IECreate('http://www.torg.uz/registration.php') Select Case @error = 0 $body = _IEBodyReadText($vxod) If StringInStr($body, 'Поля, отмеченные звездочкой (*), обязательны для заполнения.') Then ExitLoop Else _IEAction($vxod, 'quit') TrayTip('Error in page', 'bad connection', 10, 2) Sleep(300000) EndIf Case @error = 6 _IEAction($vxod, 'quit') TrayTip('Time out', 'Try again...', 10, 1) EndSelect WEnd $form = _IEFormGetCollection($vxod, 0) $loginBox = _IEFormElementGetObjByName($form, "user[first_name]") $passBox = _IEFormElementGetObjByName($form, "user[last_name]") _IEFormElementSetValue($loginBox, 'Somename') _IEFormElementSetValue($passBox, 'Lastname') ;_IEFormSubmit($form, 0) sleep(10000) EndFunc |
Отправлено: 22:50, 08-05-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Доступ - Авторизация | Неадекват | Microsoft Windows 2000/XP | 0 | 29-10-2009 16:15 | |
Авторизация в домене | aleksejvasi | Microsoft Windows NT/2000/2003 | 4 | 06-08-2009 08:14 | |
авторизация | simon171078 | Вебмастеру | 1 | 09-11-2008 11:40 | |
Авторизация в ХР | JS | Microsoft Windows 2000/XP | 7 | 20-04-2004 20:03 | |
Авторизация..... | Maxximus | О сайте и форуме | 7 | 03-06-2002 22:48 |
|