Bonjours, avancent dans mon bot de type MITM, je voudrais donc gérer la connexion.
Lorsque que la personne lance dofus, donc j'injecte la dll, je me connecte, mon bot détecte bien la connexion mais la plus rien, l’écran reste figé sur la connexion .
Je précise que je débute donc je me suis aider de plusieurs chose sur le forum.
Lorsque que la personne lance dofus, donc j'injecte la dll, je me connecte, mon bot détecte bien la connexion mais la plus rien, l’écran reste figé sur la connexion .
Code:
Imports System.Net.Sockets
Imports MITMBOT.Client.BazSocket
Imports MITMBOT._Interface.Logger
Namespace Client
Public Class SockManager
Public WithEvents LoginSock As New BazSocket.BazSocket
Public WithEvents GameSock As New BazSocket.BazSocket
Private MyLog As _Interface.Logger.LogConsole
Private Main As MainForm
Sub New(ByVal _MyLog As _Interface.Logger.LogConsole, ByVal _Main As MainForm)
MyLog = _MyLog
Main = _Main
End Sub
''############ Serveur ############
Public Sub InitializeLoginSock()
LoginSock = New BazSocket.BazSocket(Main)
LoginSock.Listen("127.0.0.1", 5555)
End Sub
Private Sub Client_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles LoginSock.Accepted
Dim LoginSock As New Login.LoginSock
Dim AcceptSock As New BazSocket.BazSocket(New Form, Request)
AcceptSock.AlwaysRaiseClose = True
AcceptSock.AsyncEvent = True
Dim NewIP As String = AcceptSock.RemoteEP.Address.ToString
Dim NewPort As String = AcceptSock.RemoteEP.Port.ToString
MyLog.WriteLog("Nouveau client sur le socket de connexion : " & NewIP & ":" & NewPort)
LoginSock.MySock = AcceptSock
LoginSock.MyLog = MyLog
LoginSock.Main = Main
Main.ClientLogin.Add(LoginSock)
LoginSock.Initialize()
End Sub
Private Sub LoginSock_Listen(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginSock.Listening
MyLog.WriteLog("Jeu en écoute ... (Connexion)")
End Sub
Private Sub LoginSock_ListenFailed(ByVal sender As Object, ByVal ex As System.Exception) Handles LoginSock.ListenFailed
MyLog.WriteError("Impossible d'écouter le jeu (Connexion) !")
End Sub
'############### Jeu ###############
Public Sub InitializeGameSock()
GameSock = New BazSocket.BazSocket(Main)
GameSock.Listen("127.0.0.1", 443)
End Sub
Private Sub Player_Accepted(ByVal sender As System.Object, ByVal Request As AcceptRequest) Handles GameSock.Accepted
Dim _FormBot As New FormBot
Dim AcceptSock As New BazSocket.BazSocket(_FormBot, Request)
AcceptSock.AlwaysRaiseClose = True
AcceptSock.AsyncEvent = True
Dim NewIP As String = AcceptSock.RemoteEP.Address.ToString
Dim NewPort As String = AcceptSock.RemoteEP.Port.ToString
MyLog.WriteLog("Nouveau client sur le socket de jeu : " & NewIP & ":" & NewPort)
Dim GameSock As New Game.GameSock
GameSock.MySock = AcceptSock
GameSock.MyLog = New LogBot(_FormBot)
GameSock.Main = Main
GameSock.ConsoleLog = MyLog
GameSock.FormBot = _FormBot
GameSock.Initialize(Main.GameIp, Main.GamePort)
Main.ClientGame.Add(GameSock)
_FormBot.GameSock = GameSock
_FormBot.MdiParent = Main
_FormBot.Show()
End Sub
Private Sub GameSock_Listen(ByVal sender As Object, ByVal e As System.EventArgs) Handles GameSock.Listening
MyLog.WriteLog("Jeu en écoute ... (Game)")
End Sub
Private Sub GameSock_ListenFailed(ByVal sender As Object, ByVal ex As System.Exception) Handles GameSock.ListenFailed
MyLog.WriteError("Impossible d'écouter le jeu (Game) !")
End Sub
End Class
End Namespace