13问答网 > 刚找到一段VB代码好像可以获取qq在线的状态，本人新手，这段代码看不懂，求详解~如何使用这个代码啊？

刚找到一段VB代码好像可以获取qq在线的状态，本人新手，这段代码看不懂，求详解~如何使用这个代码啊？

2025-02-28 19:22:20

推荐回答（1个）

回答1：

'只要在任意一个按钮上加上以下代码即可：
GetQQOnLine("10086") '10086是你要查的QQ号



Public Function GetQQOnLine(ByVal qqNo As String) As Boolean 
Dim req As HttpWebRequest = WebRequest.Create("http://wpa.qq.com/pa?p=1:" & qqNo & ":3") 
req.Timeout = 30000 
req.Headers.Set("Pragma", "no-cache") 
Dim rep As WebResponse = req.GetResponse() 
Return rep.ResponseUri.PathAndQuery.EndsWith("rtx_online.gif") 
End Function'传入QQ号作为参数即可，但是无法检测到隐身用户