۲۳-اسفند-۱۳۹۲, ۰۶:۳۱:۲۹
سلام
کسی میتونه این سورس رو درست کنه که بشه روبات رو آنلاین کرد؟
کسی میتونه این سورس رو درست کنه که بشه روبات رو آنلاین کرد؟
کد:
Option Explicit
Public Const YMSGVersion As Long = 18
Public YmsgID As String
Public Function GetData(DataLength As Integer, Sck As Winsock) As String
On Error GoTo 1
Sck.GetData GetData, , DataLength
Exit Function
1
GetData = ""
End Function
Public Function PeekData(DataLength As Integer, Sck As Winsock) As String
On Error GoTo 1
Sck.PeekData PeekData, , DataLength
Exit Function
1
PeekData = ""
End Function
Public Function PeekLength(Sck As Winsock) As Integer
On Error GoTo 1
Dim pData As String
Sck.PeekData pData, , 20
PeekLength = CLng(Asc(Mid(pData, 9, 1))) * 256# + CLng(Asc(Mid(pData, 10, 1))) + Int(20)
Exit Function
1
PeekLength = 0
End Function
Private Function YMSGPacket(YMSGPacketData As String, YMSGVendor As Long, YMSGStatus As String, YMSGKey As String, YMSGCommand As Long) As String
YMSGPacket = "YMSG" & Chr(Int(YMSGVersion / 256)) & Chr(Int(YMSGVersion Mod 256)) & Chr(Int(YMSGVendor / 256)) & Chr(Int(YMSGVendor Mod 256)) & Chr(Int(Len(YMSGPacketData) / 256)) & Chr(Int(Len(YMSGPacketData) Mod 256)) & Chr(Int(YMSGCommand / 256)) & Chr(Int(YMSGCommand Mod 256)) & Mid(YMSGStatus, 1, 4) & Mid(YMSGKey, 1, 4) & YMSGPacketData
End Function
Public Function Login(YID As String, Y_Mode As Long, Y_Hash As String, Y_Cookie As String, T_Cookie As String, B_Cookie As String, Optional Invisible As Boolean = False) As String
Dim InVTyp As String
If Invisible = True Then
InVTyp = Chr(&HC)
Else
InVTyp = Chr(0)
End If
Login = YMSGPacket("1" & YID & "0" & YID & "277" & Y_Cookie & "278" & T_Cookie & "307" & Y_Hash & "244" & Y_Mode & "2" & YID & "2159" & B_Cookie & "98us13510.0.0.1270", 0, String(3, 0) & InVTyp, YmsgID, 84)
End Function
Public Function PreLogin() As String
PreLogin = YMSGPacket("", 0, String(4, 0), String(4, 0), 76)
End Function
Public Function GetChallenge(YID As String) As String
GetChallenge = YMSGPacket("1À€" & YID & "À€", 0, String(4, 0), String(4, 0), 87)
End Function