JC网络工作室

写了个局域网聊天器-----vb.net写的。

下面是虚拟机上一端的测试

用的是socket.netwok的类

服务端的代码如下：

PublicSub WaitData()

        s = NewSockets.Socket(AddressFamily.InterNetwork,SocketType.Stream, ProtocolType.Tcp)'使

        DimlocalEndPoint AsNewIPEndPoint(IPAddress.Parse(GetInsideIP()),2024)  

        s.Bind(localEndPoint)

        s.Listen(100)

        '

        While (True)

            DimOneBytes(1024) AsByte

            Dim ss As Sockets.Socket= s.Accept()

            ss.Receive(OneBytes)

            ListBox1.Items.Add("时间：" & Now())

            ListBox1.Items.Add("   接收消息来自：" & Encoding.Unicode.GetString(OneBytes))

        EndWhile

    EndSub

客户端的代码如下：

PrivateSub Client_send(ByVal ip1 AsString, ByValdatatext AsString)

        Dimbytes(1024) AsByte

        'ShowMessage(datatext)

        Dim OneSocket = NewSocket(AddressFamily.InterNetwork,SocketType.Stream, ProtocolType.Tcp)

        DimMyEndPoint AsNewIPEndPoint(IPAddress.Parse(ip1),2024)

        OneSocket.Connect(MyEndPoint)

        OneSocket.Send(Encoding.Unicode.GetBytes(Trim(ComboBox1.Text)& " ：êo" & Trim(datatext)))

        ListBox1.Items.Add("时间：" & Now())

        ListBox1.Items.Add("   接收消息来自：" & Trim(datatext))

        OneSocket.Close()

    EndSub

采用了一个线程等待来监听是否有消息

很简单的一个程序 

微信：15312167779（系统交流学习）

邮箱：149824844@qq.com

更多我的学习技术文章：

https://boysky123.lofter.com

https://user.qzone.qq.com/149824844