A3fan 发表于 2012-8-29 09:42:36

是否能探测隐身状态

xyhqqaa 发表于 2012-8-29 09:51:05

嘻嘻。。看看。。学习下

绿色风 发表于 2012-8-29 09:51:09

回复 13# 747957181
回复 17# A3fan
回复 16# airen007

这个结口只有两种状态,在线与不在线. 反馈的是: 0与1

wbcm 发表于 2012-8-29 11:29:55

是显示自己已经登陆的qq号?

ooxxgod 发表于 2012-8-29 15:57:35

试试怎么样哈哈

hanz_200 发表于 2012-8-29 18:41:52

下来 see see 。。。。。。

lxzan 发表于 2012-8-30 08:30:23

什么好东西?

lxzan 发表于 2012-8-30 08:37:14

能检测隐身就好了.

lsssdtc 发表于 2012-8-30 12:48:03

感谢分享~~~~~~

suiyefeng 发表于 2012-8-30 12:58:21

我也写过这个软件..不过看界面就发现我的界面上的功夫差远了..

绿色风 发表于 2012-8-30 16:07:03

回复 26# suiyefeng


    http://www.autoitx.com/forum.php?mod=viewthread&tid=32915&highlight=    界面用的这个模板

lanfengc 发表于 2012-8-30 16:41:42

看看是什么原理

lanfengc 发表于 2012-8-30 17:06:11

回复 15# 楼上风云


    回复 9# 魔导


    回复 1# 绿色风


    这就是QQ在线状态检测的原理。

        ;~原理是调用QQ的在线API,然后通过返回的数据长度来判断。 http://wpa.qq.com/pa?p=1:348251229:41
        Local $host="wpa.qq.com"
        Local $qqnumber=InputBox("QQ号","请输入你要检测的QQ号","14958306",'',200,80)

        $sData='GET /pa?p=1:'&$qqnumber&':41 HTTP/1.1'&@crlf&'Accept: */*'&@crlf&'Host: wpa.qq.com'&@crlf&@crlf                ;这是要发送的数据
        TCPStartup()                ;启动TCP
    $sIp = TCPNameToIP($host)        ;将域名转为IP
    $sSocket = TCPConnect ($sIp, 80)        ;打开80端口
    TCPSend ($sSocket, $sData)        ;发送http头
    Do       
      $sRecvHeader = TCPRecv($sSocket, 1)
    Until $sRecvHeader <> ""        ;接收数据,指导数据不为空
    Do   ;头部结束后,有2个换行符
      $sRecvHeader &= TCPRecv($sSocket, 1)
    Until StringInStr($sRecvHeader, @Crlf & @Crlf);接收返回头

        $sRecvBin = TCPRecv($sSocket,2048) ;接收返回数据
        If StringLen($sRecvBin)=2506 Then        ;如果返回数据长度是2506则认为不在线
                MsgBox(64,"提示","你检测的帐号"&$qqnumber&"不在线!")
        Else                        ;否则认为在线。
                MsgBox(64,"提示","你检测的帐号"&$qqnumber&"在线!")
        EndIf
        TCPCloseSocket($sSocket)
        TCPShutdown()
       

iamwonvy 发表于 2012-8-30 17:07:51

{:face (427):}明白啦 谢谢回复 29# lanfengc

虫子樱桃 发表于 2012-8-30 17:26:54

回复 1# 绿色风


    风哥真是风一样的男子
页: 1 [2] 3 4 5 6 7 8 9 10 11
查看完整版本: QQ在线状态批量检测 [好久没发东西玩的了]【UDF现在奉上】