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号作为参数即可，但是无法检测到隐身用户
