VB.net学习笔记之聊天工具Client端：System.Net.Sockets

新开一个博客，把以前学习的笔记整理整理，防止忘记

1.变量定义：

    Dim sender1 As New System.Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp) '用来处理发送和接收消息的Socket实例
    Dim bytes(1024) As Byte
    Dim msg As Byte()           '发送的消息
    Dim bytesRec As Integer     '接收到的数据的长度
    Dim sbytes(1024) As Byte    '接收到的数据流
    Dim data As String = Nothing '处理后的接收到的消息
    Dim t As System.Threading.Thread

2.请求连接服务端：

    '启动请求连接
        Control.CheckForIllegalCrossThreadCalls = False
        t = New Thread(AddressOf waitdata)
        t.Start()
    '设置并连接服务端IP地址
    Public Sub waitdata()
        On Error GoTo wrong
        bool = InputBox("Please input the IP address")
        Dim handler As New System.Net.IPEndPo