中国DOS联盟

网上有很多所谓的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, "状态"

这个意义不大，上QQ就知，真正意义的查看没有办法看到，可以学习学习。