Désolé, je ne parle pas français translate.google.com :oops:
Imports Bot_Dof
Imports Bot_Dof.Network.messages
Imports Bot_Dof.Network.types
Public Partial Class MainForm
Private Con As New Connect()
Public Sub New()
Me.InitializeComponent()
End Sub
Sub Button1Click(sender As Object, e As EventArgs)
Con.StartReception(AddressOf ReCiV)
End Sub
Sub Button2Click(sender As Object, e As EventArgs)
Con.StopReception()
End Sub
Private Sub ReCiV(ByVal Id As Integer,ByVal Content As DataReader,ByVal CompteNo As Integer)
Select Case Id
Case HelloConnectMessage.ProtocolID
Dim Hcm As New HelloConnectMessage()
Hcm.Deserialize(Content)
Dim Im As New IdentificationMessage()
Im.version.major = 2
Im.version.minor = 5
Im.version.release = 3
Im.login = textBox1.Text
Im.credentials = New CryptPass().Crypt_Pass(Hcm.Salt & textBox2.Text, hcm.Key)
Im.autoconnect = True
Im.lang = "en"
Con.SendMessage(Im)
Case SelectedServerDataMessage.ProtocolID
Dim Ssdm As New SelectedServerDataMessage()
Ssdm.Deserialize(Content)
Con.RestartReception(Ssdm.address, Ssdm.port)
Dim Atm As New AuthenticationTicketMessage()
Atm.lang = "en"
Atm.ticket = Ssdm.ticket
Con.SendMessage(Atm)
End Select
End Sub
End Class
(using SharpDevelop)
How do i connect character?
anyone know?
And log messages ?
Sorry i am a newbie :cry: