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 clientsocket As New TcpClient() 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 End Sub Public Function GetStream() As NetworkStream Dim tcpClient As New TcpClient() Dim netStream As NetworkStream = tcpClient.GetStream() Dim sendbytes As [Byte]() = Encoding.UTF8.GetBytes("test") Dim bytes(tcpClient.ReceiveBufferSize) As Byte netStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize)) Dim returndata As String = Encoding.ASCII.GetString(bytes) MsgBox(returndata) tcpClient.Close() netStream.Close() End Function End Class
dim clientsocket as tcpclient()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question