批量验证QQ在线离线代码

Question

批量验证QQ在线离线代码
1、批量导入QQ
2、批量验证QQ在线离线情况
3、请教达人，用VB怎么写代码？

Answer 1

沒處理過。不過應該是可以的。
QQ號碼從10000開始咯。有現在的QQ碼都9 10位的了。

Answer 2

你一个一个循环？网上有个验证是否在线的webservices

Answer 3

终于翻到了。
http://topic.csdn.net/u/20100619/19/8DE308CC-7E52-44BC-BD09-63474CD9A7C2.html#r_66384530

Answer 4

顺便贴上吧。
Private Sub Command1_Click()
    Dim strHtml$
    strHtml = getHtmlStr("http://219.133.49.157/getonline?867281:")
    MsgBox IIf(InStr(strHtml, "1;") > 0, "在线", "不在线")
End SubPrivate Function getHtmlStr$(strUrl$)
    Dim XmlHttp
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "GET", strUrl, False
    XmlHttp.send
    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function此代码不知过多久会失效。