Vb.net visualbasic tcp如何逐行写入

Vb.net visualbasic tcp如何逐行写入,vb.net,tcp,Vb.net,Tcp,我想制作一个程序,让其他用户可以向pc发送数据。 我需要一个用户名和密码,但问题是我找不到接受2个tcp数据的代码 我有变量password和username,但是当我启动时,所有文本都被读入username变量。我需要把它分开 这是我的密码 Imports System.Net.Sockets Imports System.Net Imports MySql.Data.MySqlClient Public Class Form1 Dim mysyqlcon As MySqlConne

我想制作一个程序,让其他用户可以向pc发送数据。 我需要一个用户名和密码,但问题是我找不到接受2个tcp数据的代码

我有变量
password
username
,但是当我启动时,所有文本都被读入
username
变量。我需要把它分开

这是我的密码

Imports System.Net.Sockets
Imports System.Net
Imports MySql.Data.MySqlClient

Public Class Form1
    Dim mysyqlcon As MySqlConnection
    Dim COMMAND As MySqlCommand
    Dim TCPServer As Socket
    Dim TCPListenerz As TcpListener
    Dim username As String
    Dim password As String

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Try
            Dim rcvbytes(TCPServer.ReceiveBufferSize) As Byte
            TCPServer.Receive(rcvbytes)
            username = System.Text.Encoding.ASCII.GetString(rcvbytes)
        Catch ex As Exception
        End Try
        System.Threading.Thread.Sleep(3000)
        Try
            Dim rcvbytes2(TCPServer.ReceiveBufferSize) As Byte
            TCPServer.Receive(rcvbytes2)
            password = System.Text.Encoding.ASCII.GetString(rcvbytes2)
        Catch ex As Exception
        End Try
        Label1.Text = username
        Label2.Text = password
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TCPListenerz = New TcpListener(IPAddress.Any, 1000)
        TCPListenerz.Start()
        TCPServer = TCPListenerz.AcceptSocket()
        TCPServer.Blocking = False
        Timer1.Enabled = True
    End Sub
End Class

TCP保证填充到流一端的字节将以相同的顺序从另一端散出,并且不会丢失或重复。不需要更多,当然不支持大于一个字节的实体。您需要使用返回的值来确定接收到的字节数,从传入的字节中汇编有用的消息,并提供一些将用户名与密码分开的方法。改进了语法和拼写。添加相关标签,删除不相关标签。