上一篇
下一篇
VBS查询QQ在线状态
作者:刚子 日期:2010-05-24
VBS查询QQ在线状态的源码网上以前就有，但是我看了一下是利用internetexplorer.application实现的，不是很完美。所以自己动手做了一个，接口用的是大部分人都不知道的“http://webpresence.qq.com/getonline?Type=1&QQ号:”接口，这个接口比wpa.qq.com的优点是不用跳转到图片就能查询了。
PS：我打算利用这个功能做一个制定QQ上线手机短信提醒的功能，原理也很简单，利用本页代码+移动139邮箱的免费手机短信提醒即可实现。有需要的朋友可以留言。
程序代码
PS：我打算利用这个功能做一个制定QQ上线手机短信提醒的功能，原理也很简单，利用本页代码+移动139邮箱的免费手机短信提醒即可实现。有需要的朋友可以留言。
程序代码Function zhuanghuan(wen)
For i = 1 To LenB(wen)
text = AscB(MidB(wen,i,1))
If text < &H80 Then
body = body & Chr(text)
Else
file = AscB(MidB(wen,i+1,1))
body = body & Chr(CLng(text) * &H100 + CInt(file))
i = i + 1
End If
Next
zhuanghuan = body
End Function
set h=createobject("Microsoft.XMLHTTP")
qq= inputbox("请在下方输入QQ号码"&chr(13)&chr(10)&"By www.gangzi.org","查询在线状态","20016964")
if qq<>"" then
url="http://webpresence.qq.com/getonline?Type=1&"&qq&":"
h.open "get",url,false
h.send
yuan = zhuanghuan(h.responsebody)
yuan=Replace(yuan,"online[0]=","")
yuan=Replace(yuan,";","")
if yuan=1 then
msgbox ""&qq&"在线"
else
msgbox ""&qq&"离线或隐身"
end if
end if
For i = 1 To LenB(wen)
text = AscB(MidB(wen,i,1))
If text < &H80 Then
body = body & Chr(text)
Else
file = AscB(MidB(wen,i+1,1))
body = body & Chr(CLng(text) * &H100 + CInt(file))
i = i + 1
End If
Next
zhuanghuan = body
End Function
set h=createobject("Microsoft.XMLHTTP")
qq= inputbox("请在下方输入QQ号码"&chr(13)&chr(10)&"By www.gangzi.org","查询在线状态","20016964")
if qq<>"" then
url="http://webpresence.qq.com/getonline?Type=1&"&qq&":"
h.open "get",url,false
h.send
yuan = zhuanghuan(h.responsebody)
yuan=Replace(yuan,"online[0]=","")
yuan=Replace(yuan,";","")
if yuan=1 then
msgbox ""&qq&"在线"
else
msgbox ""&qq&"离线或隐身"
end if
end if
文章来自: 
引用通告: 
Tags: 评论: 0 | 引用: 0 | 查看次数: -
发表评论