Imports System.Net Imports System.Net.Sockets Imports System.Text Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click MonSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) MsgBox("Socket créé.") MonSocket.Connect("LocalHost", "445") MsgBox("Connexion établie du serveur sur lui même.") End Sub Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click MonSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) MsgBox("Socket créé.") MonSocket.Connect("192.168.1.5", "445") MsgBox("Connexion établie du client sur le serveur.") End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim msg As Byte() = Encoding.UTF8.GetBytes("This is a test") Dim NombreDeBytes As Integer = MonSocket.Send(msg, 0, msg.Length, SocketFlags.None) MsgBox("Données envoyées : " & NombreDeBytes) End Sub Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click MonSocket.ReceiveTimeout = 5000 Dim MesBytes(255) As Byte Dim NombreDeBytes As Integer = MonSocket.Receive(MesBytes, 0, MonSocket.Available, SocketFlags.None) MsgBox("Données reçues : " & NombreDeBytes) Dim Result As String = Encoding.UTF8.GetString(MesBytes) MsgBox(Result) End Sub Private Sub Form1_DoubleClick(sender As Object, e As System.EventArgs) Handles Me.DoubleClick MsgBox(MonSocket.Connected) End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question