Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для aesir

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


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

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
Как раз таки наоборт, опущенные детали и усложняют процесс попытки помощи - Я то не могу проверить скрипт как положенно, чтобы попытаться решить проблему... оригинальные логин и пароль не нужно конечно выкладывать, но можете залогинить нового юзера, тестера, и дать его данные (в скрипте) »
Сказано - сделано
Код: Выделить весь код
;log - autoittest
;pwd - oszone
Func LoginToSite($userName, $userPassword)
	_IENavigate($browser, "http://binural.ru/")
	_IELoadWait($browser)
	$name = _IEGetObjByName($browser, "login_name")
	$pwd = _IEGetObjByName($browser, "login_password")
	If ($_IEStatus_Success) Then
		_IEFormElementSetValue($name, $userName)
		_IEFormElementSetValue($pwd, $userPassword)
		$form = _IEFormGetCollection($browser, 0)
		_IEFormSubmit($form)
		_IELoadWait($browser)
	EndIf
	_IENavigate($browser, "http://www.binural.ru/addnews.html")
	_IELoadWait($browser)
EndFunc

Отправлено: 01:03, 02-05-2009 | #9