Merci pour ta réponse, c'st un bot MITM,
J'essais de faire ça Lolodu92 et je vous informe si cela marche.
EDIT: Fonctionne pas ^^'
EDIT2: En effet, j'aimerai recevoir le Packet 4 et pouvoir mettre "Login" qui est dans la class IdentificationMessage
dans une de mes Label (la 2).
Public Function initIdentificationMessage(ByVal param1 As Types.Version.Version, ByVal param2 As String, ByVal param3 As String, ByVal param4 As List(Of Integer), ByVal param5 As Integer, ByVal param6 As Boolean, ByVal param7 As Boolean, ByVal param8 As Boolean) As IdentificationMessage
Me.version = param1
Me.lang = param2
Me.login = param3
Me.credentials = param4
Me.serverId = param5
Me.autoconnect = param6
Me.useCertificate = param7
Me.useLoginToken = param8
Me._isInitialized = True
Return Me
End Function
EDIT3: J'ai regardé avec la fenêtre de sortie que To0ns ma mit sur Visual Studio
et j'ai cherché "recu id 4", j'ai rien trouvé.
Je crois aussi que j'ai pas le Packet à envoyé.
En fait, je sais pas vraiment comment trouvé le packet à envoyé car j'utilise le "sniffeur" de Tifoux et il donne juste la Case 4.
Case 4
ID_Message = New Messages.Connection.IdentificationMessage
ID_Message.Deserialize(PacketData)
Dim Log As UInteger
Log = ID_Message.login
Form1.Label2 = ID_Message.login
Form1.Label2.Invoke(idlog_, "Login : " & Log & " ")
D0fus.D0fusMessage.Send(377) '11 & 54
Delegate Sub Logs(ByVal x As String)
Sub myidmapproc(ByVal x As String)
Form1.Label2.Text = (x)
End Sub
Dim idlog_ As New Logs(AddressOf myidmapproc)
Delegate Sub _Label(ByVal Label As Label, ByVal a As String)
Sub Set_Label(ByVal Label As Label, ByVal a As String)
Label.Text = a
End Sub