有能发现qq隐身的工具吗？

Question

ipman(吃饭是为了能继续战斗下去)：　如何用？？？？

Answer 1

有得是MONEY哦
这里不是有一个程序吗？

Answer 2

to：vbFly(CSDN是垃圾)　
人家说的是手机！！！！！
不是计算机！！！！！！！
你看清楚没有！！！！！！
不要费心思了，那样子的程序现在没法作的，除非你和小马哥（腾讯老总马化腾）交情深厚，说不定他可以给你开个后门！！

Answer 3

老大是我不清楚还是你没看
“有能发现qq隐身的工具吗？
mailto:[email protected]”
这是原文，请问怎么看出他是问的手机？

Answer 4

http://www.csdn.net/expert/topic/181/181799.shtm
拜托大家帮我顶一顶，谢了

Answer 5

to：vbFly(CSDN是垃圾)　
呵呵，sorry，我不是说你误解原文，而是你上次回复的：
“有得是MONEY哦
这里不是有一个程序吗？ ”你认为有计算机程序可以实现……是不是？

Answer 6

to：ipman(工作已经没有挑战性)　
呵呵，你竟然借用人家的帖子做广告～～～～～
你要那个功能干什么？做教学cai吗？

Answer 7

YES！
'请先 "引用" -> "浏览" -> "Windows 目录\SYSTEM\MSWINSCK.OCX"
'部分代码:
Option Explicit
Dim sResponse As String
Dim WithEvents WinsockX As MSWinsockLib.Winsock
Dim WithEvents WinsockListenX As MSWinsockLib.Winsock
Private Sub Check1_Click()
Text2.Enabled = VBA.IIf(Check1.Value = vbChecked, True, False)
Text3.Enabled = Text2.Enabled
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
  Text4.Enabled = False
  WinsockListenX.Protocol = sckTCPProtocol
  WinsockListenX.LocalPort = CInt(Text4.Text)
  WinsockListenX.Listen
Else
  Text4.Enabled = True
  If WinsockX.State <> sckClosed Then
      WinsockX.Close
  End If
  If WinsockListenX.State <> sckClosed Then
      WinsockListenX.Close
  End If
End If
End Sub
Private Sub Command1_Click()
sResponse = ""
Command1.Enabled = False
Me.MousePointer = vbHourglass
Dim i As Long
If WinsockX.State <> sckClosed Then
  WinsockX.Close
End If
WinsockX.Protocol = sckTCPProtocol
If Check1.Value = vbChecked Then
  WinsockX.Connect Trim(Text2.Text), CInt(Text3.Text)
Else
  WinsockX.Connect "search.tencent.com", 80
End If
Do Until WinsockX.State = sckConnected
  DoEvents
  i = i + 1
  If i > 50000 Then
      If VBA.MsgBox("TimeOut,Retry?", vbQuestion + vbYesNo) = vbYes Then
        i = 0
      Else
        Command1.Enabled = True
        Me.MousePointer = vbDefault
        Exit Sub
      End If
  End If
Loop
WinsockX.SendData "POST " & VBA.IIf(Check1.Value = vbChecked, "HTTP://search.tencent.com", "") & "/cgi-bin/friend/oicq_find HTTP/1.1" & vbCrLf _
                & "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, */*" & vbCrLf _
                & "Accept -Language: zh -cn" & vbCrLf _
                & "Content-Type: application/x-www-form-urlencoded" & vbCrLf _
                & "Accept -Encoding: gzip , deflate" & vbCrLf _
                & "User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)" & vbCrLf _
                & "Host: " & WinsockX.RemoteHost & vbCrLf _
                & "Content-Length: " & VBA.Len(VBA.Trim("oicq_no=" & VBA.Trim(Text1.Text) & "&mov=0&begnum=0")) & vbCrLf _
                & "Connection: close" & vbCrLf _
                & "Cookie: 3wave=1" & vbCrLf & vbCrLf _
                & "oicq_no=" & VBA.Trim(Text1.Text) & "&mov=0&begnum=0"
End Sub
Private Sub Form_Load()
Text1.Text = "6881818"
Text2.Text = "192.168.0.1"
Text3.Text = "8080"
Text4.Text = "80"
Set WinsockX = New MSWinsockLib.Winsock
Set WinsockListenX = New MSWinsockLib.Winsock
Check1_Click
Check2_Click
End Sub
Private Sub WinsockListenX_ConnectionRequest(ByVal requestID As Long)
If WinsockX.State <> sckClosed Then
  WinsockX.Close
End If
WinsockX.Accept requestID
End Sub
Private Sub WinsockX_Close()
Command1.Enabled = True
Me.MousePointer = vbDefault
If sResponse Like "*http://img.tencent.com/face/*-3.gif*" Then
  MsgBox "Off line!"
ElseIf sResponse Like "*http://img.tencent.com/face/*-2.gif*" Then
  MsgBox "On line!"
ElseIf sResponse Like "*http://img.tencent.com/face/*-1.gif*" Then
  MsgBox "Hide!"
End If
End Sub
Private Sub WinsockX_DataArrival(ByVal bytesTotal As Long)
Dim s As String
WinsockX.GetData s, vbString
If Check2.Value = vbChecked Then
  MsgBox s
End If
sResponse = sResponse & s
End Sub

Answer 8

to:vbFly(CSDN是垃圾)　
你那个代码现在已经行不通了！！
我说过“以前可以，现在不行”，就是说这个问题。
这些代码现在只能够判断在线，不能区分隐身和下线！

Answer 9

因为原来Oicq刚刚有隐身功能时，腾讯网页的搜索页面存在漏洞
你搜索一个人时，返回的图标有1.gif、2.gif、3.gif
1表示隐藏、2表示在线，3表示下线但是后来腾讯小马哥隐身聊天时给她老婆抓住了，罚洗完3个月，痛定思痛，小马哥决定把所有可以查找隐身的漏洞全部堵住，结果就…………呵呵～～～～～～～
（以上事件纯属虚构）

Answer 10

to:jisheng(古朴的狼)  你从哪搞的小道消息，不会是你想出来的吧！！呵呵~~~

Answer 11

用手机给你想要知道的QQ发短消息，若是隐身，则消息可以发到QQ，否则返回“此用户不在线”。

Answer 12

大家好，我叫离奇。
QQ号码 24752161 我经常隐身。 
我是一名数据库程序员，最爱Delphi编程语言。
很希望认识大家，你能和我聊天，这对于我来说很重要。
谢谢。 
 
  

Answer 13

有的，我用过。
输入OICQ号，可以知道她是否在线，不管隐不隐身!
名字我忘了!
我找找再说!

Answer 14

to 'zxxsoft',
just now i tested ,
but it is no use..

Answer 15

不是吧,Sanjiang的方法不好用的，有的时候网络状况不好的话，发给在线好友的消息也同样是通过服务器中转的啊...

Answer 16

sanjiang()　的方法行不通，我上网一直隐身，发给我的消息全通过服务器中转……哈哈。

Answer 17

我有一个查IP的软件，是覆盖了oicq.exe的，如果一个人不在线上，那么他的IP是空的，如果他隐身了，IP也会显示出来，我通过这个来判断

Answer 18

移动oicq是能够发现，不过要钱0.1元/条，更方便，而且那个查IP的oicq经常在线没隐身的人ip也显示不出来。

Answer 19

ipman
QQ号码是多少啊？好像你在线啊，让我们聊聊吧

Answer 20

yinxingshu(银杏树)..
give me a copy...
[email protected]

Answer 21

好想有问题..
<h5>www</h5>