vbs xmlhttp responseText усеченный? - PullRequest
Новая
       17

vbs xmlhttp responseText усеченный?

0 голосов
/ 23 февраля 2012

Привет всем, у меня есть простой скрипт VBS, который захватывает URL (со значениями, используя GET), и мне нужно проанализировать текст. Однако текст ответа, который я получаю, не является полным ответом. я получаю строку длиной 1000, но я знаю, что ответ должен быть больше похож на 5000. 

Function getServer(server_hostname)
    Set objHTTP = CreateObject("msxml2.xmlhttp.3.0")
    objHTTP.open "GET", "http://someurl/ServerInfo.asp", False
    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send "B1=GO!!&Server=" + server_hostname 

    getServer = objHTTP.responseText
End Function

serverStr = getServer(server_hostname)
msgbox(Len(serverStr))

Есть ли ограничение на сумму, которую можно вернуть? Спасибо за вашу помощь.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%

Так что я изменил свою функцию на: 

Function getServer(server_hostname)
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    objHTTP.open "GET", "http://someurl/ServerInfo.asp?B1=GO!!&Server=" + server_hostname , False
    'objHTTP.setRequestHeader "Content-Type", "text/html"
    'objHTTP.send "B1=GO!!&Server=" + server_hostname 
    objHTTP.send

    getServer = objHTTP.responseText
End Function

А теперь это работает ... понятия не имею, почему.

1 Ответ

0 голосов
/ 23 февраля 2012

Максимальная длина MsgBox составляет 1024 символа.

Ссылка: http://www.w3schools.com/vbscript/func_msgbox.asp

...