高分回报，up一下也有回报。。。。。。。

[fkh21l]

在下什么也不多，就是分多了一点。有哪位兄台给点有关语音聊天或聊天室的方面的VB代码，一定给高分，不够再给。

[fkh21l]

我也想过，可能网上会有很多，可是在下不才就是没找到，能不能让几个仁兄，给一两个好的网址呢？？？不堪感激！！！

[scsun]

uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuP

[zhy525]

up,这样也能得分???

[sicainiao]

我已经没分提问了，你可一定要给我点分啊。。。：（
用WinSock设计Chat程序
摘要:随着Internet的蓬勃发展，网络界面的交流使我们能够即时收到各地所发生的各项信息。我们在使用各种Browser浏览各网点时，只要Server能提供Chat（闲聊）的服务项目，我们就可以通过Browser所提供的Chat程序与网络上的其他使用者即时对谈及交流心得。本篇文章通过Visual Basic 5.0所提供的WInSock control，设计一个 Chat应用程序。我们通过Client及Server之间的文件传输，可以了解Chat程序的工作原理。

WinSock control简介

WinSock是windows系统提供的一种网络文件传输协议。以往我们使用WinSock设计程序时，必须调用系统提供的API来完成；但是在Visual Basic中调用API，因涉及参数传递类型，用起来并不方便。Visual Basic 5.0 提供WinSock control简化我们的设计流程。它可以利用User Datagram Protocol(UDP)或Transmission Control Protocol(TCP)，来设计网络的Client-Server 程序。

TCP是一种Connection base的Protocol，在文件传输时会先行建立Link，通过Link 可确保文件传输的正确性；UDP则是一种Connectionless的Protocol，它在传输文件时不会确保传输端的文件能够正确无误的传送到接收端，所以当我们使用UDP protocol时，我们通常要自己作接收确认的工作。

UDP protocol看起来好像比较没效率，其实不然！UDP protocol有一个好处：当文件很小，或我们要做网络boardcast （广播）时，会比较有效率。 所以了！ 当我们利用WinSock设计程序时，首先要依自己的需要，决定使用那一种protocol。本文将分别教您使用TCP及UDP Protocol来设计Chat程序。

以TCP设计Chat程序

Step 1：找出Domain name及IP address

在“我的电脑”中选择“控制面板”。Double click“网络”选项，选择“标识” ，您将会发觉您的计算机名称、工作组名等信息。将它记录起来，我们稍后会用到。

Step 2：设计TCP Server程序

在File选项中选New Project建立一个新的工程，在屏幕上会看到许多选项，如 ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveXControl等，选Standard.EXE。

接着在Project下选择Property属性选项，在General选项下将ProjectName改为TCP-Server，并将Form名称及Caption更改为Server。在屏幕的Form上加入一个 WinSock control，取名为Tcps；加入两个TextBox control(Outtext、Intext)，并在两个TextBox前加入两个label，分别将caption改为Outtext、Intext。
〈TextBox〉

Name

------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

〈Label〉

Caption

----------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

在Form_Load()中加入以下程序代码，这个动作是设置好我们Local的传输端口，并到接收的状态：

Tcps.protocol=0-scktcp protocol

Tcps.LocalPort = 1002

Tcps.Listen

双击Tcps，在Tcps_ConnectionRequest(ByVal requestID As Long) 中加入以下程序代码，这表示winsock接受了连接请求：

Tcps.Accept requestID

双击Outtext到Outtext_change()，加入以下程序代码，当Outtext内容改变后，文件就会自动送出：

Tcps.SendData Outtext.text

在Tcps_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox中。

Dim S As StrIng

Tcps.GetData S

InText.Text = S

这样我们就完成了Server端的设计。

Step 3：设计TCP Client程序

在File选项中选择New Project建立一个新的工程，在屏幕上看到许多选项，如 ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control 等。选Standard.EXE。接着在 Project下，选择Property属性选项，在General选项下，将Project Name改为TCP-Client，并将FORM名称及Caption更改为Client。

在屏幕的Form上加入一个WinSock control，取名为 Tcpc，将protocol property设置成 0-scktcp protocol，加入两个TextBox control(Outtext、Intext)，并在两个TextBox前加入两个Label，分别将其Caption改为Outtext、Intext。接着放入一个Button(button1)并将Caption 改为Connect。

(TextBox)

Name

-----------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

(Label)

Caption

--------------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

〈Button〉

Name Caption

--------------------------------------------------------

Button1(执行建立session命令) Connect

在Form_Load()中加入以下程序代码，这个动作是设置好我们Remote所要连接的传输端口及其网络名称。我们要连接的计算机网络名称为DAVID：

Tcpc.RemoteHost ="David"

Tcpc.RemotePort=1002

双击Outtext到Outtext_change()加入以下程序代码，当Outtext内容改变后，文件会自动送出：

Tcpc.SendData Outtext.text

在Tcpc_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。

Dim S As StrIng

Tcpc.GetData S

InText.Text = S

这样就完成了Client端的设计。

Step 4：测试TCP Chat程序

分别执行Server及Client程序，这时在Client的屏幕上显示In及Out TextBox及一个Connect Button；在Server屏幕上显示In及Out TextBox。

我们按Client程序Connect button建立连接，连接建立成功后，我们可尝试在Client的Outbox 中输入一些字符串：Hello nice to meet you！我们将在Server端的Inbox看到这些字串。 接着我们在Server的Outbox也输入一些字符串：Nice to meet you, too！　我们将在Client 端的Inbox看到这些字符串。结果证明我们成功了！

用UDP设计Chat程序

Step 1：设计第一个UDP(UDP1)程序

在File选项中选择New Project建立一个新的工程，屏幕上会看到许多选项，如ActiveX Document.EXE、ActiveX Document.DLL、ActiveX.EXE、ActiveX Control 等，这时选Standard.EXE。接着在Project下选择Property属性选项，在General选项下将Project Name改为UDP1，将protocol property设置成0-udptcp protocol，并将Form名称及Caption更改为UDP1。

在屏幕的Form上加入一个WinSock control，取名为UDP1；加入两个TextBox control ( Outtext、Intext)，并于两个TextBox前加入两个Label control，分别将Caption改为 Outtext、　Intext。

(TextBox)

Name

-----------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

(Label)

Caption

-------------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

在Form_Load()中加入以下程序代码，这个动作是设置好我们要连接的远端输入端口为 1001，并将输入端口设为1002。

UDP1.RemoteHost = "DAVID"

UDP1.RemotePort = 1001

UDP1.Bind 1002

双击Outtext到Outtext_change()，加入以下程序代码，当Outtext 内容改变，文件会自动送出：

UDP1.SendData Outtext.text

在UDP1_DataArrival(ByVal bytesTotal As Long)中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。

Dim S As String

UDP1.GetData S

InText.Text = S

这样我们就完成了UDP1的设计。

Step 2：设计第二个UDP(UDP2)程序

在File选项中选New Project建立一个新的工程，屏幕上会看到许多选项，如ActiveX Document.EXE、 ActiveX Document.DLL、ActiveX.EXE、ActiveX Control等，这时要选Standard.EXE。接着在 Project下，选择Property属性选项，在 General选项下，将Project Name改为UDP2，将protocol property设置成0-udptcp protocol，并将Form名称及Caption更改为UDP2 。

在屏幕的Form上加入一个WinSock control取名为UDP2 ，加入两个TextBox control ( Outtext、Intext)，并在两个TextBox control前加入两个Label control，分别将Caption改为Outtext、Intext。
(TextBox)

Name

-----------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

(Label)

Caption

--------------------------------------------------------

Outtext(输出文件)

Intext(输入文件)

在Form_Load()中加入以下程序代码，这个动作是设置好我们要连接的远端输入端口，设置为1002，并将输入端口设置为1001。

UDP2.RemoteHost = "MARY"

UDP2.RemotePort = 1002

UDP2.Bind 1001

双击Outtext到Outtext_change()加入以下程序代码，当Outtext内容改变，文件就会自动送出：

UDP2.SendData Outtext.text

在UDP2_DataArrival(ByVal bytesTotal As Long) 中加入以下程序代码，这是用来把所接收的文件显示在Intext这个TextBox 中。

Dim S As StrIng

UDP2.GetData S

InText.Text = S

这样我们就完成了UDP2的设计。

Step 3：测试UDP Chat程序

分别执行UDP1及UDP2程序。这时UDP1的屏幕上显示In及Out
TextBox；UDP2屏幕也显示In及Out两个TextBox。我们在UDP1的Outbox中输入一些字符串 I want talk to Mary，我们将在UDP2端的Inbox看到这些字符串。接着我们在UDP2的Outbox也输入一些字符串This is Mary speaking!，我们将在UDP1端的Inbox看到这些字串。结果证明我们成功了！

[xiaomahui]

up

[iriscole]

up

[zhengxy6]

up

[lly923]

up

[smartluwei]

支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持
支持支持支持支持支持支持支持支持支持支持支持█████████持支持支持
支持支持支持支持支持支持支持支持支持███████████████持支持
支持支持支持支持支持支持支持支██████████████████持支持
支持支持支持支持支持支████████████████持支持支持支持支持
支持支持支持支持███████持███持支█████支持支持支持支持支持
支持支████████████持支持支持支████持支持支持支持支持支持
支██████████████持支持支持支████持支持支持支持支持支持
支████████████持支持支持支持███████████持支持支持
支████████████持支持支持支██████████████持支持
支持██████████支持支持支██████持支持███████持支持
支持支持支持支持████支持支持支████持支持支持支█████支持支持
支持支持支持支持████支持支持████支持██支持支█████支持支持
支持支持支持支持████支持支持████支持████支█████支持支持
支持支持支持支持████支持支持████支持████支█████支持支持
支持支持支持支持████支持支持████支持███持支█████支持支持
支持支持支持支持████支持支持████支持███持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持████支████持支█████支持支持
支持支持支持支持████支持支持███持支████持支█████支持支持
支持██支持支█████支持支持███持支███支持支█████支持支持
支持██████████支持支持支██持支██持支持支█████支持支持
支持支█████████支持支持支持支持███持支持支持████支持支持
支持支持支███████支持支持支持支持███持████支持支持支持支持
支持支持支持██████支持支持支持支████持支█████支持支持支持
支持支持支持支持支███支持支持支持█████持支持███████持支持
支持支持支持支持支持支持支持支持██████支持支持支██████持支持
支持支持支持支持支持支持支持支██████持支持支持支███████支持
支持支持支持支持支持支持支持█████持支持支持支持支持██████支持
支持支持支持支持支持支持支█████支持支持支持支持支持支████持支持
支持支持支持支持支持支持███持支持支持支持支持支持支持支持███持支持
支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持支持

[flyycyu]

up

[CounterKing]

up

[落伍者]

我自己写的你要不要，很简单一个局域网聊天软件。
在开始学习vb的时候写的。

[superdeming]

up

[lixingyuaaa]

up

[hfo38j58gt3hj]

我也UP

[gdiwgkqpp]

没搞头了 ```UP好了啦```

[chanet]

UP...

[laisiwei]

up

[Rozre]

up

[sbj325]

sicainiao(死菜鸟乐乐) 写得不错（可能是capy)
楼主你一定要给分啊！