VbScript:使用"Adodb.Stream“获取服务器状态

Question

如何使用VbScript从Shoutcast流化服务器获得状态？我离得越近：

Dim xHttp: Set xHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "http://www.partyvibe.com:8010", False
xHttp.Send
with bStrm
    .type = 1 'binary
    .open
    msgbox xHttp.responseBody
    msgbox .state
end with

但它实际上不工作，因为流永远不会完成‘开放’，它是一个连续的无线电流。

我只想检索流的前几个字节来了解服务器响应。(服务器关闭，服务器运行正常，超时，.)

http://www.partyvibe.com:8010

它也可能不是Shoutcast服务器。

Answer 1

以下是解决办法：

Const TIMEOUT = 5000
Dim xHttp: Set xHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
Dim url: url = "http://www.partyvibe.com:8010"

xHttp.Open "GET", url, True
xHttp.setRequestHeader "User-Agent", "Winamp/5.x"
xHttp.Send

WScript.sleep TIMEOUT


If (xHttp.readyState<>3) then
    msgbox "Stream server is not responding!"
end if

.readyState参考文献：http://msdn.microsoft.com/en-us/library/ms761388%28v=vs.85%29.aspx

• (1)负荷
• (4)如果服务器仍在流动，则不应完成已完成的