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