QQ在线状态查看 - 中国DOS联盟论坛 - 中国DOS联盟之联合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, "状态"

第1楼　qinchun36	发表于 2010-02-08 18:40
高级用户　发帖 400　积分 609
QQ在线状态查看网上有很多所谓的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, "状态"

第2楼　wudq	发表于 2010-02-09 09:02
新手上路　发帖 4　积分 5
这个意义不大，上QQ就知，真正意义的查看没有办法看到，可以学习学习。