Авторизация на форуме - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - Авторизация на форуме (http://forum.oszone.net/showthread.php?t=139643)

Авторизация на форуме

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

$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

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