Что нового

Получить данные со страницы с логином и паролем

maxd2007

Новичок
Сообщения
89
Репутация
0
Здравствуйте, подскажите пожалуйста что я делаю не так: есть страница http://nuvi.ru/private/ мне нужно получить ее содержимое вбив логин и пароль, пробовал так:
Код:
#include <IE.au3>
#include <Timers.au3>

$username = "login"
$password = "password"
$Text = InetGet("http://" & $username & ":" & $password  & "nuvi.ru/private/", 1)
FileWriteLine ("1.txt",$Text)

Логин и пароль я естественно вбиваю рабочие.
PS
И еще 1 вопрос: когда у меня сохраняется фаил "1.txt" то у меня появляется 2 фаила "1.txt" и просто "1" без расширения, почему?
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
maxd2007 сказал(а):
мне нужно получить ее содержимое вбив логин и пароль, пробовал так:
1.
Код:
#include <IE.au3>
_IELoadWaitTimeout(10000)
Global $oIE = _IECreate("http://nuvi.ru/private/", 0, 0)
Global $oLogin = _IEGetObjByName($oIE, "USER_LOGIN"), $oPassword = _IEGetObjByName($oIE, "USER_PASSWORD"), $oCheckbox = _IEGetObjByName($oIE, "USER_REMEMBER"), $oSubmitButton = _IEGetObjByName($oIE, "Login")
Global $username = "login", $password = "password"
If IsObj($oLogin) And IsObj($oPassword) And IsObj($oCheckbox) And IsObj($oSubmitButton) Then
	_IEFormElementSetValue($oLogin, $username)
	_IEFormElementSetValue($oPassword, $password)
	$oCheckbox.checked = "true"
	_IEAction($oSubmitButton, "click")
EndIf
Global $sText = _IEDocReadHTML($oIE)
Global $hFile = FileOpen(@ScriptDir & "\1.txt", 2)
FileWriteLine($hFile, $sText)
FileClose($hFile)
_IEQuit($oIE)


И не путайте HTTP аутентификацию и авторизацию через форму, это разные вещи...
когда у меня сохраняется фаил "1.txt" то у меня появляется 2 фаила "1.txt" и просто "1" без расширения, почему?
2. Потому, что InetGet сама создаёт файл, скачивает в него данные и ей FileWrite* не нужна.
 
Верх