Question

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

Answer 1

我在网上找到了这个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

Answer 2

他们都是信使错误的小黑客，他们比较不同的东西，找出隐形用户和离线用户之间的区别。最好的方法是代码relima发布的方式，但这是另一个，写一个脚本来检查：http://opi.yahoo.com/online?u=[username] 然后读取图像，离线和隐藏的图像是相同的，但如果您在代码中读取它们则不相同。

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

2 个答案: