网上有很多所谓的QQ在线状态查看软件，据说是能查状态，强制聊天等等，我去下了一些来测试之后发现都不行，只有人家真正在线的时候才正确，如果隐身的话就判断为下线了，所以想不花钱就拥有“QQ千里眼”的功能是不现实的。
看了一下那些方法，我捡了一个比较好弄的地址写了个脚本，可以简单的判断一下，至少比那些几兆的软件值得用，不用开QQ的，保存为VBS文件。
On Error Resume Next
QQ = InputBox("输入QQ号码(数字):", "输入")
Set x = CreateObject("Msxml2.XMLHTTP")
If Err.Number <> 0 Then
Set x = CreateObject("Microsoft.XMLHTTP")
Err.Clear
End If
x.Open "GET", "http://webpresence.qq.com/getonline?Type=1&" & QQ & ":", False
x.Send
r = x.responseText
r = r & "0=0"
r = Left(Split(r, "=")(1), 1)
If isNumeric(r) And r <> 0 Then
r = "在线"
Else
r = "隐身或者不在线"
End If
MsgBox "QQ " & QQ & " " & r, 4160, "状态"
