使用 VB 2008 的在线聊天应用程序，使用 TCP 或 UDP 套接字

Question

我想开发一个带有服务器/客户端模型的聊天应用程序，在 VISUAL BASIC 2008 中打开 TCP 或 UDP 套接字。我可以下载一个工作示例，或者一些代码可以帮助我完成这个项目吗？

提前致谢。

---

编辑：感谢您的回答，非常感谢。但是我在某处堆叠，因为我的应用程序只能在本地工作，而不是在整个 Internet 上工作。

我在服务器部分的代码如下：

在此处输入代码 readData = "已连接到聊天服务器 ..." LabelConnection.Text = "已连接" PictureBox1.Image = My.Resources.Globe_Connected_Icon_39x33 PictureBox1.BackColor = Color.Transparent msg() clientSocket.Connect("127.0. 0.1", 8888) 在此输入代码

现在，不是 127.0.0.1 我应该放一些变量或保持目标机器 IP 地址的东西吗？我该怎么做？有人可以帮忙吗？

Answer 1

基本上，您需要构建一个聊天服务器应用程序和一个连接到服务器并启动数据交换的客户端程序。要真正使这项工作正常进行，您还必须了解一点关于线程的知识，以便您的客户端/侦听器异步运行。

以下是可供查看的示例项目列表：

• Wintalk（Microsoft 提供的用于介绍 WinForm、套接字和 .NET Framework 的示例）

• Creating a Multi-User TCP Chat Application

• A TCP/IP Chat Program

• Simple Chat Application Using .NET Sockets

• A Chat Application Using Asynchronous TCP Sockets

• TCP/IP Chat Application Using C#

• VB.NET Sockets Client Class

您可能会发现用 C# 编写的任何内容（如上面的一些示例）都应该相对简单地转换为 VB.NET。如果您需要一些额外的指导，请尝试一些可用的在线转换工具，例如 DeveloperFusion 提供的工具。

最后，System.Net.Sockets 命名空间（您将广泛使用）的 MSDN documentation 是一个极好的资源，因为您开始深入研究示例项目并发现自己有一些难以回答的问题。