VB/VB.Net Traduction dll de bloodwolf

A

Anonymous

Invité
#2
Désolé, je ne parle pas français translate.google.com :oops:
Code:
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:
 

Sparkdaemon

Staff
Membre du personnel
Inscrit
7 Avril 2009
Messages
556
Reactions
3
#3
I'm not sure but, i think the dll have been created for french server..
 
A

Anonymous

Invité
#4
sparkdaemon a dit:
I'm not sure but, i think the dll have been created for french server..
false, but for the problem , you need to learn about the protocol
 
A

Anonymous

Invité
#5
your DLL is super all of the id are there ... it's really lot easy to make a bot like this :p
thnx
 
Haut Bas