Imports System.Net.Sockets.TcpListener Imports System.Net Imports System.Net.Sockets Imports System.Text Public Class Form1 Dim serversocket As New TcpListener(IPAddress.Parse("192.168.1.10"), 4000) Dim clientsocket As TcpClient Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load coClient.RunWorkerAsync() End Sub Private Sub coclient_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles coClient.DoWork Dim counter As Integer = 0 serversocket.Start() While (True) counter += 1 clientsocket = serversocket.AcceptTcpClient MsgBox("clientsocket n°" + Convert.ToString(counter) + "-- connexion") End While clientsocket.Close() serversocket.Stop() End Sub Public Function GetStream() As NetworkStream Dim netStream As NetworkStream = clientsocket.GetStream() Dim sendbytes As [Byte]() = Encoding.UTF8.GetBytes("test") netStream.Write(sendbytes, 0, sendbytes.Length) clientsocket.Close() netStream.Close() End Function Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click GetStream() End Sub End Class
Imports System.Net.Sockets.TcpClient Imports System.Net Imports System.Net.Sockets Imports System.Text Class Form1 Dim clientsocket = New TcpClient("192.168.1.10", 4000) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load getstream End Sub Public Function GetStream() As NetworkStream Dim netStream As NetworkStream = clientsocket.GetStream() Dim bytes(clientsocket.ReceiveBufferSize) As Byte If netStream.CanRead Then netStream.Read(bytes, 0, CInt(clientsocket.ReceiveBufferSize)) Dim returndata As String = Encoding.ASCII.GetString(bytes) MsgBox(returndata) clientsocket.Close() netStream.Close() End If End Function End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.Net Imports System.Net.Sockets Class Form1 Dim clientsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim hostip As IPAddress = IPAddress.Parse("192.168.1.10") Dim hostport As Integer = 4000 clientsocket.Connect(New IPEndPoint(hostip, hostport)) End Sub End Class
Imports System.Net Imports System.Net.Sockets Public Class Form1 Dim listensocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim hostip As IPAddress = IPAddress.Parse("192.168.1.10") Dim hostport As Integer = 4000 listensocket.Bind(New IPEndPoint(hostip, hostport)) listensocket.Listen(3) listensocket.BeginAccept(AddressOf connexioncallback, listensocket) End Sub Private Sub connexioncallback(ByVal asyncresult As IAsyncResult) MsgBox("Connexion etablie") End Sub End Class
Imports System.Net.Sockets.TcpListener Imports System.Net Imports System.Net.Sockets Public Class Form1 Dim serversocket As New TcpListener(IPAddress.Parse("192.168.1.10"), 4000) Dim clientsocket As TcpClient Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim counter As Integer = 0 serversocket.Start() While (True) counter += 1 clientsocket = serversocket.AcceptTcpClient MsgBox("clientsocket n°" + Convert.ToString(counter) + "-- connexion") End While clientsocket.Close() serversocket.Stop() End Sub End Class
Imports System.Net.Sockets.TcpListener Imports System.Net Imports System.Net.Sockets Public Class Form1 Dim serversocket As New TcpListener(IPAddress.Parse("192.168.1.10"), 4000) Dim clientsocket As TcpClient Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load coclient.RunWorkerAsync() End Sub Private Sub coclient_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles coclient.DoWork Dim counter As Integer = 0 serversocket.Start() While (True) counter += 1 clientsocket = serversocket.AcceptTcpClient MsgBox("clientsocket n°" + Convert.ToString(counter) + "-- connexion") End While clientsocket.Close() serversocket.Stop() End Sub End Class
Imports System.Net.Sockets.TcpClient Imports System.Net Imports System.Net.Sockets Class Form1 Dim clientsocket = New TcpClient("192.168.1.10", 4000) Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub End Class
Public Function ReceiveFrom() End Function