雅虎怎么样！ Messenger 状态检测器有效吗？

Question

yDetector.com 等服务如何区分隐形用户和离线用户？

Answer 1

它们都是聊天软件漏洞中的小技巧，它们通过比较不同的东西来找出隐形用户和离线用户之间的区别。
最好的方法是 relima 发布的代码的工作方式，但这是另一种方法，编写一个脚本来检查：http://opi.yahoo.com/online?u=[username]
然后读取图像，离线和不可见的图像是相同的，但如果你在代码中读取它们，它们并不相同。

Answer 2

我在网上找到了这个 VB 脚本，它可能会帮助您了解如何完成此类检查：

"CHECK CODE"
Private Sub Command1_Click()
ID = Text1.Text
Password = Text2.Text
Winsock1.Close
Pause (1)
Winsock1.Connect "scsd.msg.yahoo.com", 5050 'Server And Port
End Sub

Private Sub Command2_Click()
Winsock1.Close ' Exit Connection
Pause (1)
Label1.Caption = "Status:Disconnected"
End Sub

Private Sub Command3_Click()
On Error Resume Next
LOL.Text = "FYahoo"
Label1.Caption = "Status: Checking..."
Pause (1)
Winsock1.SendData Packet.check(Text1.Text, Text3.Text) 'Send Check Packet And Deciphered Victim Is Online Or Offline (Text1 = Your Bot) (Text3=Your Friend)
End Sub

Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
Winsock1.Close
End Sub

Private Sub Winsock1_Connect()
Label1.Caption = "Status:Connecting..."
Winsock1.SendData Data(ID)
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data
Debug.Print Data
If Mid(Data, 12, 1) = ChrW$(87) Then
ChallengeString = Mid(Data, 30 + Len(ID), Len(Data) - 29)
ChallengeString = Replace(ChallengeString, "Ŕ€13Ŕ€1Ŕ€", "")
Call GetStrings(ID, Password, ChallengeString, Crypt(0), Crypt(1), 1)
Winsock1.SendData Login(ID)
ElseIf Mid(Data, 12, 1) = ChrW$(84) Then
Label1.Caption = "Status:Wrong ID Or Pw"
Winsock1.Close
ElseIf Mid(Data, 12, 1) = ChrW$(85) Then
Sessionkey = Mid(Data, 17, 4)
Label1.Caption = "Status:Connected"
End If
'Here is The Checker for Online Or Offline
If LOL.Text = "FYahoo" Then
If InStr(1, Data, ChrW$(255) + ChrW$(255) + ChrW$(255) + ChrW$(255)) Then
Label1.Caption = "Status: Is Offline"
Image1.Visible = False
Image2.Visible = True
Else
Label1.Caption = "Status: Is Online": Beep
Image2.Visible = False
Image1.Visible = True
End If
End If
End Sub