山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

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

楼主duguran（独孤然）2001-07-04 18:55:11 在 VB / 基础类提问

有能发现qq隐身的工具吗？
mailto:bigbuddha@sina.com 问题点数：20、回复次数：50Top

1 楼jisheng（古朴的狼）回复于 2001-07-04 18:56:53 得分 20

没有！
以前有，现在没有了，要那个东西干嘛，如果人家不愿意露面，你又何必……Top

2 楼ipman（.NET）回复于 2001-07-04 19:32:51 得分 0

有，我百试不爽，移动qq，即用手机看是否在线Top

3 楼vbFly（思想决定一切）回复于 2001-07-04 19:41:33 得分 0

楼上的在哪啊？Top

4 楼ipman（.NET）回复于 2001-07-04 20:20:32 得分 0

北京啊，不过求老兄改个口号行吗？人在屋檐下，不得不求人啊！Top

5 楼dreamwang（王者之梦）回复于 2001-07-04 20:28:02 得分 0

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

6 楼ipman（.NET）回复于 2001-07-04 20:31:47 得分 0

发短信息，假设你的qq是：123456 密码是：7890输入：
63 123456 7890
电话号码 1700
几分钟后，哪些偷偷上qq的人的名单都到你的手机中了，呵呵，我就是这样监督我的gf的，害得她qq前先call我一下看我是否已关机，然后再qTop

7 楼vbFly（思想决定一切）回复于 2001-07-04 20:36:33 得分 0

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

8 楼ipman（.NET）回复于 2001-07-04 20:40:41 得分 0

什么程序？Top

9 楼jisheng（古朴的狼）回复于 2001-07-04 20:41:05 得分 0

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

10 楼vbFly（思想决定一切）回复于 2001-07-04 20:43:44 得分 0

老大是我不清楚还是你没看
“有能发现qq隐身的工具吗？
mailto:bigbuddha@sina.com”
这是原文，请问怎么看出他是问的手机？
Top

11 楼ipman（.NET）回复于 2001-07-04 20:46:29 得分 0

别吵了，都是藤旬惹的祸，好好的来什么隐身？害得我……Top

12 楼ipman（.NET）回复于 2001-07-04 20:47:27 得分 0

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

13 楼jisheng（古朴的狼）回复于 2001-07-04 20:49:55 得分 0

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

你认为有计算机程序可以实现……是不是？Top

14 楼zht_ok（葬月）回复于 2001-07-04 20:51:03 得分 0

关注Top

15 楼jisheng（古朴的狼）回复于 2001-07-04 20:51:13 得分 0

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

16 楼vbFly（思想决定一切）回复于 2001-07-04 20:51:13 得分 0

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
Top

17 楼jisheng（古朴的狼）回复于 2001-07-04 20:53:37 得分 0

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

18 楼ipman（.NET）回复于 2001-07-04 21:00:26 得分 0

对，我试了，怎么也测不出来？Top

19 楼jisheng（古朴的狼）回复于 2001-07-04 21:05:29 得分 0

因为原来Oicq刚刚有隐身功能时，腾讯网页的搜索页面存在漏洞
你搜索一个人时，返回的图标有1.gif、2.gif、3.gif
1表示隐藏、2表示在线，3表示下线

但是后来腾讯小马哥隐身聊天时给她老婆抓住了，罚洗完3个月，痛定思痛，小马哥决定把所有可以查找隐身的漏洞全部堵住，结果就…………呵呵～～～～～～～
（以上事件纯属虚构）Top

20 楼zht_ok（葬月）回复于 2001-07-04 21:17:51 得分 0

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

21 楼vbFly（思想决定一切）回复于 2001-07-04 21:20:15 得分 0

呵呵，佩服佩服Top

22 楼jisheng（古朴的狼）回复于 2001-07-04 21:21:41 得分 0

呵呵，小马哥在家里的地位不怎么样，夫人比较强悍，
他事业成功的同时却得了“妻管严”，心里寂寞孤独，
所以隐身泡MM去了，没想到天有不测风云……
唉～～～～～～～～～～～～～～～～～～：）
（纯属虚构）Top

23 楼ipman（.NET）回复于 2001-07-04 23:24:29 得分 0

还有别的办法吗？Top

24 楼wby（江南笑）回复于 2001-07-05 11:56:00 得分 0

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

25 楼jisheng（古朴的狼）回复于 2001-07-05 12:14:37 得分 0

除了手机外，没有办法了，除非……混进去腾讯公司做高级内奸：）Top

26 楼lili1（离奇）回复于 2001-07-05 14:30:09 得分 0

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

Top

27 楼zxxsoft（普小迅）回复于 2001-07-05 15:06:52 得分 0

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

28 楼dreamcast（梦工厂）回复于 2001-07-05 15:36:16 得分 0

叫天眼，上一期电脑报上有地址，我忘了Top

29 楼wywq（幸福如猪）回复于 2001-07-05 15:48:43 得分 0

gzTop

30 楼javaservlet（學Java）回复于 2001-07-05 15:52:15 得分 0

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

31 楼sanjiang（）回复于 2001-07-05 16:32:54 得分 0

好办。发一个消息给他，如果消息没有通过服务器中转，则表明他是隐身的。Top

32 楼sanjiang（）回复于 2001-07-05 16:34:04 得分 0

看看发送记录就知道消息是直接发送还是中转发送。Top

33 楼uptrends（夜咖啡）回复于 2001-07-05 17:16:56 得分 0

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

34 楼Nyquist（Nyquist）回复于 2001-07-05 18:11:46 得分 0

这是必要不充分条件呀！
Top

35 楼Nyquist（Nyquist）回复于 2001-07-05 18:11:56 得分 0

:)Top

36 楼joeking（只是喜欢动手罢了）回复于 2001-07-05 23:11:28 得分 0

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

37 楼yinxingshu（银杏树）回复于 2001-07-06 09:23:48 得分 0

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

38 楼yinxingshu（银杏树）回复于 2001-07-06 09:25:34 得分 0

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

39 楼ipman（.NET）回复于 2001-07-06 09:34:55 得分 0

upTop

40 楼yinxingshu（银杏树）回复于 2001-07-06 09:58:30 得分 0

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

41 楼ipman（.NET）回复于 2001-07-06 10:03:25 得分 0

25222966Top

42 楼javaservlet（學Java）回复于 2001-07-06 14:58:56 得分 0

yinxingshu(银杏树)..
give me a copy...
javaservlet@china.comTop

43 楼javaservlet（學Java）回复于 2001-07-06 14:59:22 得分 0

thanks..Top

44 楼joeking（只是喜欢动手罢了）回复于 2001-07-06 15:20:55 得分 0

哈哈，你收吧，我也用这个东东，怎么没有想到呢？呵呵。Top

45 楼dreamcast（梦工厂）回复于 2001-07-06 16:00:31 得分 0

在线可看ip，隐身看不见啊？Top

46 楼javaservlet（學Java）回复于 2001-07-06 16:17:07 得分 0

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

47 楼javaservlet（學Java）回复于 2001-07-06 16:22:37 得分 0

好象不行啊..
Top

48 楼jxd_2001（可凡）回复于 2001-07-07 15:02:08 得分 0

有这样的一种情况，不知大家在q时是否注意到，当你的陌生人里的任何你说话时，即使他是隐身的，你也能看到他在线上。Top

49 楼meifen（meifen）回复于 2001-07-07 23:28:07 得分 0

okTop

50 楼joeking（只是喜欢动手罢了）回复于 2001-07-08 00:35:36 得分 0

东东发给你了！还没有试吗？哈哈。Top