vb.net 怎样用UDP 协议 写一个聊天程序啊？如图

'xiansr.2014/2/7 vb.net2010 调试通过

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim udpClient As New UdpClient(11000)

        Try

            udpClient.Connect("127.0.0.1", 11000)

            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(RichTextBox1.Text)

            udpClient.Send(sendBytes, sendBytes.Length)

            Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)

            Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)

            Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)

            RichTextBox2.Text = "接收到： " + returnData.ToString()

            'Debug.Print(("This message was sent from " + RemoteIpEndPoint.Address.ToString() + " on their port number " + RemoteIpEndPoint.Port.ToString()))

            udpClient.Close()

        Catch ex As Exception

            stop

        End Try

    End Sub

End Class

ASP.NET

做一个最简单的聊天室，逻辑清晰简单，能帮你了解

Application

的用法。

第一步我们先构想我们需要的页面，应该也就是两个吧，第一个登陆页面

Login.aspx

，第二个聊

天室主页面

default.aspx

。

哦对了我们还需要加一个全局变量文件

Global.asax

。用来初始化我们要用到的

Application

对象。

这样做，在

Application_Start

和

Application_End

事件里添加如下代码：

void Application_Start(object sender, EventArgs e)

{

//

在应用程序启动时运行的代码

//

建立用户列表

string user = ""//

用户列表

Application["user"] = user

Application["userNum"] = 0

string chats = ""//

聊天记录

Application["chats"] = chats

//

当前的聊天记录数

Application["current"] = 0

}

void Application_End(object sender, EventArgs e)

{

//

在应用程序关闭时运行的代码

Application["user"] = ""

Application["chats"] = ""

}

现在我们先做个登陆页面，不用复杂，一个

TextBox

，我们把它的

id

设为

nameTextBox

，用来输

入昵称，一个

Button

按钮，用来登录。好吧就这么简单。

1

中文：一个C#的语音聊天程序

英文：A Voice Chat Application in C#

来自：Codeproject

2.

中文：C#，socket网络，音频，网络流

英文：Voice Chat,Audio Streaming &socket

来自：MSDN Forum

3.

中文：点对点语音聊天源代码

英文：Peer-to-peer voice chat source

来自：VCX

4.

中文：怎样进行语音聊天传输

英文：how to perform voice chat ?

来自：Experts-Exchange

感兴趣的话百度HI我，我整理后发给你