Bonjour tout le monde. Depuis quelques jours, j'ai commencé les Sockets. J'ai donc réalisé un systeme de connection (certains diront RAT mais ce n'est pas le cas c'est juste pour apprendre et je ne l'utiliserai jamais sur d'autres personnes que moi). Mais, quand je le génère mon serveur et mon client, je les lance et que j'effectue une commande, j'obtiens une erreur :
Pourtant, quand je le lance sur vb, il fonctionne bien.
Mon code :
Serveur :
Client :
Voila merci à vous si vous avez lu jusqu'au bout. En esperant avoir des réponses rapidement. A bientôt
System.Runtime.InteropServices.COMException (0x800A9C46): Exception de HRESULT : 0x800A9C46
à MSWinsockLib.IMSWinsockControl.SendData(Object data)
à AxMSWinsockLib.AxWinsock.SendData(Object data)
à Socket_Client.Form1.Button1_Click(Object sender, EventArgs e) dans C:\Users\HENRI\Documents\Visual Studio 2010\Projects\Socket Client\Socket Client\Form1.vb:ligne 20
à System.Windows.Forms.Control.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.ButtonBase.WndProc(Message& m)
à System.Windows.Forms.Button.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Pourtant, quand je le lance sur vb, il fonctionne bien.
Mon code :
Serveur :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWinsock1.Close()
AxWinsock1.LocalPort = 1604
AxWinsock1.Listen()
End Sub
Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
AxWinsock1.Close()
AxWinsock1.Accept(e.requestID)
Me.Text = "Connecter"
End Sub
Dim data As String = String.Empty
AxWinsock1.GetData(data)
If data = "hamachi" Then
Process.Start("C:\Program Files (x86)\LogMeIn Hamachi\hamachi-2-ui.exe")
End If
Client :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Entrez une IP et un port", MsgBoxStyle.Critical)
Else
Form1.Show()
Form1.AxWinsock1.Close()
Form1.AxWinsock1.Connect(TextBox1.Text, NumericUpDown1.Value)
Me.Visible = False
End If
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWinsock1.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWinsock1.SendData(TextBox1.Text)
TextBox1.Clear()
End Sub
Voila merci à vous si vous avez lu jusqu'au bout. En esperant avoir des réponses rapidement. A bientôt
Last edited: