Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Авторизация на форуме

Ответить
Настройки темы
Авторизация на форуме

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


Сообщения: 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

 

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


Сообщения: 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Авторизация на форуме

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Доступ - Авторизация Неадекват 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




 
Переход