SOCKE tcp 通讯求解

Imports System.Text
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class Form1
Public Delegate Sub X1(strnew As String)
Dim bytes(1024) As Byte, ss As Socket, svr As New IPEndPoint(IPAddress.Parse("118.145.29.88"), 710), thrd As Thread
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ss = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
ss.Connect(svr)
Me.Text = ss.Connected
thrd = New Thread(AddressOf getstr)
thrd.Start()
End Sub
Public Sub getstr()
While True
ss.Receive(bytes)
'cgtxt(Encoding.ASCII.GetString(bytes) & vbCrLf)
'If Me.IsHandleCreated Then t1.Invoke(New X1(AddressOf cgtxt), Encoding.ASCII.GetString(bytes))
'If Me.IsHandleCreated Then t1.Invoke(New X1(AddressOf cgtxt), Encoding.ASCII.GetString(bytes) & vbCrLf)
MsgBox(Encoding.ASCII.GetString(bytes))
End While
thrd.Abort()
End Sub Public Sub cgtxt(xxx As String)
t1.AppendText(xxx)
End Sub
End Class

这个 只能说你找一套信息格式或者自己定义一套信息格式以支持通用。另外用tcp

回访
我最后还是用的socket。winsock问题太多了。