Читаем данные с сайта....

[DarckSol]

Добрый день, нужна читалка с сайта...
Для примера, сайт: http://forum.oszone.net/index.php
Нужно прочитать и сохранить в файл или в переменную последний визит....
ПС: Можно ток читалку, дальше сам докручу....

[Kazun]

PowerShell:

$login = "MyUser"
$pass = "Password"
$url = "http://forum.oszone.net"
$ie = New-Object -ComObject InternetExplorer.Application
$ie.Navigate($url)
while($ie.Busy) { Start-Sleep -Milliseconds 100 }
$ie.Visible = $true

$ie.Document.getElementsByName("vb_login_username") | Foreach {$_.Value = $login}
$ie.Document.getElementsByName("vb_login_password") | Foreach {$_.Value = $pass}
$ie.Document.getElementsByName("cookieuser") | Foreach {$_.Value = 0}

$ie.Document.getElementsByTagName("input") | ? {$_.Value -eq "Войти"} | Foreach {$_.Click()}
Start-Sleep -Sec 3
$result = $ie.Document.Body.OuterText.Split("`r`n") -match "Ваш последний визит"
if($result) {
$result | Out-File C:\log\result.txt
}
$ie.Quit()

[DarckSol]

На WinXP и на Win 7_x64 не отработало.....
Ошибка строке 1 символ 1 ....

http://s21.postimg.org/n4zbjnkpx/image.jpg

[Iska]

DarckSol, это не VBScript, а:
PowerShell: »
Кроме того, на Windows XP он не идёт в комплекте, а устанавливается отдельно.

[DarckSol]

мм... Нужен vbs... PS(PowerShell) на ХП без предварительной установки не отработает..(((

[DarckSol]

Вопрос еще не нашёл ответа.....

[Iska]

DarckSol, давно бы уже подняли PowerShell для XP или перевели на VBScript, если лень устанавливать.