Question

大家好，我有一个简单的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

现在它有效......不知道为什么。

Answer 1

最大MsgBox长度为1024个字符。

参考：http://www.w3schools.com/vbscript/func_msgbox.asp

vbs xmlhttp responseText被截断了吗？

1 个答案: