Vb.net visualbasic tcp如何逐行写入
我想制作一个程序,让其他用户可以向pc发送数据。 我需要一个用户名和密码,但问题是我找不到接受2个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
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保证填充到流一端的字节将以相同的顺序从另一端散出,并且不会丢失或重复。不需要更多,当然不支持大于一个字节的实体。您需要使用返回的值来确定接收到的字节数,从传入的字节中汇编有用的消息,并提供一些将用户名与密码分开的方法。改进了语法和拼写。添加相关标签,删除不相关标签。