Bonsoir a tous ,
J'aurais donc comme le titre l'indique quelques questions concernant le protocole 1.29 , je vous explique mon problème , ayant décidé de me faire un petit bot sur la 1.29 ( officiel ) je bloque sur la réception d'un packet qui ne se fait pas du tout alors que le personnage est bien connecté en jeu, je ne recois pas le packet " ASK " qui contient l'inventaire , je vous joins ma fonction de connexion :
Les fonctions (Ecrire et Ecrire2 ) servent uniquement a afficher les packets envoyés et reçus , ma questions est donc la suivante : ma fonction est elle correct ? manque il des choses pour afficher le packet " ASK " ( inventaire )
Voici les logs actuels :
Merci d'avance pour le temps que vous m'accorderez 
J'aurais donc comme le titre l'indique quelques questions concernant le protocole 1.29 , je vous explique mon problème , ayant décidé de me faire un petit bot sur la 1.29 ( officiel ) je bloque sur la réception d'un packet qui ne se fait pas du tout alors que le personnage est bien connecté en jeu, je ne recois pas le packet " ASK " qui contient l'inventaire , je vous joins ma fonction de connexion :
Code:
Public Sub ThreadConnexion()
While (SocketClient.Connected)
Dim Bytes(95536) As Byte
Dim Recu As Integer
Try
Recu = SocketClient.Receive(Bytes)
Catch ex As Exception '
If IsDisposed Then
MsgBox("Erreur men")
End If
End Try
Message = Encoding.ASCII.GetString(Bytes)
Message = Message.Substring(0, Recu)
If (Message <> "") Then
Invoke(New dEcrire(AddressOf Ecrire), Message)
End If
If (Mid(Message, 1, 2) = "HC") Then
SocketClient.Send(Encoding.UTF8.GetBytes("1.29.1" & vbCrLf & TextBox1.Text & Chr(10) & PassEnc(MaskedTextBox1.Text, Mid(Message, 3)) & vbCrLf & "Af" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "1.29.1....LOGS..")
ElseIf (Mid(Message, 1, 4) = "AlEf") Then
MsgBox("[Erreur] Mauvais nom de compte ou mot de passe.")
ElseIf (Mid(Message, 1, 4) = "AlEf") Then
MsgBox("[Erreur] Mauvais nom de compte ou mot de passe.")
ElseIf (Mid(Message, 1, 4) = "AlEb") Then
MsgBox("[Erreur] Compte banni.")
ElseIf (Mid(Message, 1, 4) = "AlEk") Then
MsgBox("[Erreur]IP/Compte banni temporairement .")
ElseIf (Mid(Message, 1, 4) = "AlEv") Then
MsgBox("[Erreur] Mauvais version du jeu.")
ElseIf (Mid(Message, 1, 2) = "Ad") Then
SocketClient.Send(Encoding.UTF8.GetBytes("Ax" & vbCrLf))
ElseIf (Mid(Message, 1, 3) = "AxK") Then
SocketClient.Send(Encoding.UTF8.GetBytes("AX602" & vbCrLf)) 'Henual = AX602
Invoke(New dEcrire(AddressOf Ecrire2), "AX602")
ElseIf (Mid(Message, 1, 3) = "AXK") Then
idconnexion = Mid(Message, 15)
SocketClient = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Try
Dim MonEp As IPEndPoint = New IPEndPoint(IPAddress.Parse("80.239.173.168"), 443)
SocketClient.Connect(MonEp)
Catch ex As Exception 'En cas d'erreur.
RichTextBox1.Text = RichTextBox1.Text + " Erreur ip/port"
End Try
ElseIf (Mid(Message, 1, 2) = "HG") Then
SocketClient.Send(Encoding.UTF8.GetBytes("AT" & idconnexion & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "AT")
ElseIf (Mid(Message, 1, 3) = "ATK") Then
SocketClient.Send(Encoding.UTF8.GetBytes("Ak0" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "Ak0")
SocketClient.Send(Encoding.UTF8.GetBytes("AV" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "AV")
ElseIf (Mid(Message, 1, 3) = "AV0") Then
SocketClient.Send(Encoding.UTF8.GetBytes("Agfr" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "Agfr")
SocketClient.Send(Encoding.UTF8.GetBytes("AL" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "AL")
SocketClient.Send(Encoding.UTF8.GetBytes("Af" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "Af")
ElseIf (Mid(Message, 1, 3) = "ALK") Then
Dim sep1() = Split(Message, "|", 3)
Dim sep2() = Split(sep1(2), ";", 4)
Dim name As String
name = sep2(1)
nomperso = name
MsgBox(sep2(0))
Invoke(New DName(AddressOf Infoperso), name, "Nom")
Invoke(New DName(AddressOf Infoperso), sep2(2), "LVL")
SocketClient.Send(Encoding.UTF8.GetBytes("AS" & sep2(0) & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "AS" & sep2(0))
SocketClient.Send(Encoding.UTF8.GetBytes("Af" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "Af")
ElseIf (Mid(Message, 1, 3) = "ASK") Then
RecupéreInventaire = Message
SocketClient.Send(Encoding.UTF8.GetBytes("GC1" & vbCrLf))
ElseIf (Mid(Message, 1, 3) = "GCK") Then
'Invoke(New DInventaire(AddressOf AjoutInventaire))
ElseIf (Mid(Message, 1, 2) = "Aq") Then
wait(4000)
SocketClient.Send(Encoding.UTF8.GetBytes("AL" & vbCrLf))
Invoke(New dEcrire(AddressOf Ecrire2), "AL")
End If
End While
End SubVoici les logs actuels :
Code:
Debut de la connexion ...
[06:32:05][RECV]HCoiexnovakjnlyidtlolcbrjxmtatdtvk
[06:32:05][SEND]1.29.1....LOGS..
[06:32:05][RECV]Af1|2|0||-1
[06:32:05][RECV]Adbababapapa
[06:32:05][RECV]AxK1187639720|602,3|602,3|602,3
[06:32:05][SEND]AX602
[06:32:05][RECV]AXK50>?:=:8bwZ3986846
[06:32:05][RECV]HG
[06:32:05][SEND]AT
[06:32:05][RECV]ATK0
[06:32:05][SEND]Ak0
[06:32:05][SEND]AV
[06:32:05][RECV]BN
[06:32:05][RECV]AV0
[06:32:05][SEND]Agfr
[06:32:05][SEND]AL
[06:32:05][SEND]Af
[06:32:05][RECV]BN
[06:32:05][RECV]BN
[06:32:05][RECV]Aq1
[06:32:09][SEND]AL
[06:32:09][RECV]ALK1187635185|3|603509;efcfr;114;80;ffffff;0;0;b4,2412~16~2,2411~17~20,,;0;602;;;|623598;crfcrf;1;61;-1;-1;-1;,,,,;0;602;;;|620894;crfcfr;1;70;-1;-1;-1;,,,,;0;602;;;
[06:32:11][SEND]AS603509
[06:32:11][SEND]Af
[06:32:11][RECV]BN
[06:32:11][RECV]Rx0
[06:32:11][RECV]7;1|447;0|226;0|496;0|5;1|275;2|54;1|324;0|103;1|152;1|201;0|471;2|250;0|29;1|299;0|78;0|127;0|446;0|225;0|495;0|4;1|274;0|53;2|323;0|102;1|151;0|200;0|470;0|249;0|28;1|298;0|77;0|126;0|175;0|445;0|224;0|494;0|3;1|273;0|322;0|101;0|150;0|469;2|248;0|27;1|297;0|76;2|125;0|174;0|444;0|223;0|493;0|2;1|272;0|51;1|321;0|100;0|149;0|468;1|247;0|26;0|296;0|75;2|124;0|173;0|443;0|222;0|492;1|1;1|271;0|50;1|320;0|99;0|148;0|467;1|246;0|25;2|295;0|74;1|123;1|442;0|221;0|491;0|0;0
[06:32:16][RECV]TT32
Dernière édition:
