PDA

Показать полную графическую версию : Авторизация на форуме


Elbek
08-05-2009, 21:45
Помогите пожалуйста. Ни как не могу справиться с авторизацией на этом форуме и форумах типа этого (где инпуты такого вида)_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

Elbek
08-05-2009, 22:50
Нашел решение этой проблемы.
#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

Помогите пожалуйста.




© OSzone.net 2001-2012