1 Тема от delimer

  • delimer
  • Участник
  • Неактивен

Тема: VBScript: Не получается сохранить страницу

Set LiRu = CreateObject("WinHTTP.WinHttpRequest.5.1")
query = "http://www.liveinternet.ru/stat/"
data = "url=xxxxxxxx&password=xxxxxx"
LiRu.Open "POST", query, false
LiRu.Send data
answer = LiRu.ResponseText
Set fso = CreateObject("Scripting.FileSystemObject")
Set text = fso.OpenTextFile("D:\4server\scripts\ETL\testliru.txt", 8, 1)
text.WriteLine(answer)
text.Close

Ошибка: Недопустимый вызов или аргумент процедуры
Код: 800A0005
Строка: 9

Если вместо text.WriteLine(answer) сделать WScript.Echo answer, то без проблем показывает код страницы.

2 Ответ от Евген

  • Евген
  • Разработчик
  • Неактивен

Re: VBScript: Не получается сохранить страницу

delimer пишет:

Если вместо text.WriteLine(answer) сделать WScript.Echo answer, то без проблем показывает код страницы.

А разницу в присутствии и отсутствии скобок не замечаешь ?

Времени не хватает... :-(

3 Ответ от delimer

  • delimer
  • Участник
  • Неактивен

Re: VBScript: Не получается сохранить страницу

Со скобками не понял.
WScript.Echo answer попробовал со скобками и без - выводит всегда
text.WriteLine answer - со скобками и без - всегда та же ошибка (((

4 Ответ от Spy00000

  • Spy00000
  • Участник
  • Неактивен

Re: VBScript: Не получается сохранить страницу

delimer пишет:

Со скобками не понял.
WScript.Echo answer попробовал со скобками и без - выводит всегда
text.WriteLine answer - со скобками и без - всегда та же ошибка (((

Может Вам в LiRu.ResponseText ответ в Unicode приходит?

Попробуйте открывать файл так:

Set text = fso.OpenTextFile("D:\4server\scripts\ETL\testliru.txt", 8, True , True )

5 Ответ от Евген

  • Евген
  • Разработчик
  • Неактивен

Re: VBScript: Не получается сохранить страницу

Ну тогда велосипед изобретать не надо...
http://forum.script-coding.com/viewtopic.php?pid=54#p54

Времени не хватает... :-(