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

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

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

Elbek

Новый участник

Сообщения: 6
Благодарности: 0

Профиль | Отправить 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

Elbek

Новый участник

Сообщения: 6
Благодарности: 0

Профиль | Отправить 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