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
#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