QQ在线状态代码如何使用?
发布网友
发布时间:2022-04-22 10:40
我来回答
共1个回答
热心网友
时间:2023-11-11 07:58
'只要在任意一个按钮上加上以下代码即可:
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号作为参数即可,但是无法检测到隐身用户