VB判断QQ是否在线
2011-01-25 17:17
344 查看
Private Sub Command1_Click()
Dim strHtml$
strHtml = getHtmlStr("http://219.133.49.157/getonline?81597651:")
MsgBox IIf(InStr(strHtml, "1;") > 0, "在线", "不在线")
End Sub
Private 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
Dim strHtml$
strHtml = getHtmlStr("http://219.133.49.157/getonline?81597651:")
MsgBox IIf(InStr(strHtml, "1;") > 0, "在线", "不在线")
End Sub
Private 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
相关文章推荐
- 用程序判断一个QQ号码是否在线、是否存在(delphi调用webService)
- 判断QQ是否在线
- 自动判断QQ是否在线,并显示在线状态
- 判断QQ是否在线
- qq客服web打开和判断是否在线或离线
- Web判断QQ是否在线
- 用程序判断一个QQ号码是否在线、是否存在(delphi调用webService)
- JavaScript判断qq是否在线
- [VB.NET]我想判断光标是否在A控件上,在就触发一个事件,没在也触发一个事件,请各位高人想个办法,在线等待
- JavaScript判断qq是否在线
- 使用requests模块和xml模块判断QQ是否在线
- 判断QQ是否在线
- 判断QQ是否在线(JS代码)
- 判断任意qq是否在线的简单方法
- js 判断qq是否在线方法
- 判断QQ是否在线.txt
- 批量判断QQ是否在线,强迫聊天
- C#.NET判断qq在线状态 - 是否在线
- 判断QQ是否在线方法(接口)
- js判断QQ是否在线(一个很小的知识点)