1. 服务器程序
Option Explicit
Private Sub Form_Load()
tcpServer.LocalPort = 8888
tcpServer.Listen lblState.Caption = "目前没有客户端连入！"
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close tcpServer.Accept requestID lblState.Caption = "有客户端连入本机！IP:" & tcpServer.RemoteHostIP
End Sub
Private Sub tcpServer_dataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData & vbCrLf & txtOutput.Text
End Sub
Private Sub txtSendData_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then If tcpServer.State = sckConnected Then tcpServer.SendData "服务器说：" & txtSendData.Text
txtOutput.Text = "服务器说：" & txtSendData.Text & vbCrLf & txtOutput.Text
Else MsgBox "目前没有连接的客户端！"
End If
End If
End Sub
2. 客户端程序
VB中Winsock简单实例
Winsock是Visual Basic（VB）中用于创建网络应用程序的组件。它提供了一种简单的方法来实现网络通信，并允许应用程序通过TCP/IP协议与远程主机进行通信。本文将介绍如何在VB中使用Winsock组件创建一个简单的网络应用程序。
什么是Winsock？
Winsock（Windows Sockets）是一套用于在Windows操作系统上进行网络通信的API。它提供了一种标准的接口，使开发人员可以使用各种网络协议（如TCP/IP）进行通信。在VB中，Winsock组件是对Winsock API的封装，使开发人员可以轻松地在VB应用程序中实现网络通信功能。
Winsock组件的使用
要在VB中使用Winsock组件，首先需要在项目中添加对Microsoft Winsock
Control的引用。在VB的工具箱中，可以找到Winsock控件并将其拖放到窗体上。
Winsock控件具有许多属性和方法，用于配置和控制网络通信。以下是一些常用的属性和方法：
属性
• LocalHost：表示本地主机的IP地址。
• LocalPort：表示本地主机的端口号。
• RemoteHost：表示远程主机的IP地址。
• RemotePort：表示远程主机的端口号。
• Protocol：表示要使用的网络协议。
方法
• Connect：与远程主机建立连接。
• SendData：发送数据到远程主机。
• GetData：从远程主机接收数据。
• Close：关闭与远程主机的连接。
Winsock简单实例
下面是一个简单的VB程序示例，演示了如何使用Winsock组件进行网络通信。该程序将作为客户端与远程服务器建立连接，并发送和接收数据。
Private Sub Form_Load()
' 设置本地主机和端口
Winsock1.LocalPort = 1234 Winsock1.LocalHost = "127.0.0.1"
博途tcp ip指令用法
博途TCP/IP指令用于配置和管理TCP/IP网络连接。以下是一些常见的博途TCP/IP指令及其用法：
1. ipconfig：显示当前计算机的TCP/IP配置信息。
- `ipconfig`：显示当前计算机的IP地址、子网掩码和默认网关。
- `ipconfig /all`：显示所有详细的TCP/IP配置信息，包括IP地址、子网掩码、默认网关、DNS服务器等。
- `ipconfig /release`：释放当前计算机所使用的IP地址。
- `ipconfig /renew`：更新当前计算机的IP地址。
2. ping：用于测试与某个远程主机的连通性。
- `ping `：测试与指定IP地址或域名的主机的连通性。
- `ping -t `：持续地测试与指定IP地址或域名的主机的连通性。
- `ping -n `：指定测试的次数。
3. tracert：显示数据包到达指定主机所经过的路由器路径。
- `tracert `：显示数据包到达指定主机所经过的路由器路径。
4. netstat：显示计算机的网络连接和网络统计信息。
- `netstat`：显示活动的网络连接。
- `netstat -a`：显示所有活动和监听状态的网络连接。
- `netstat -n`：以数字形式显示网络地址和端口号。 - `netstat -b`：显示每个连接对应的可执行文件。
5. nslookup：用于查询域名系统服务器，获取与指定域名相关的IP地址。
- `nslookup `：查询指定域名对应的IP地址。
这些是一些常见的博途TCP/IP指令及其用法，可以通过在命令提示符下输入这些指令来配置和管理TCP/IP网络连接。根据具体需求，还可以使用其他博途TCP/IP指令或参数来实现更多功能。
用Visual Basic实现点对点通讯
使用TCP协议时，如果需要创建一个客户应用程序，就必须识别服务器的名称或IP地址。应用程序的通信端口随时都将仔细监测对方发出的消息，这是系统进行可靠连接的保证。一旦连接发生，任何一方都可以通过SendData发送和接收数据，并借助GetData把自己的数据分离出来。传送数据时，需要先设定客户机的LocalPort属性，服务器则只需要把RemoteHost属性设定为客户机以太网的地址，并设定与客户机LocalPort属性相同的端口地址，借助SendData方法开始发送消息。客户机则在GetData事件中通过DataArrival事件分离出发送的信息。一个Winsock控件可以让本地计算机连接到远程的计算机上，同时使用UDP或TCP协议，两个协议都能创建客户机和服务器应用。
使用Winsock控件时，通信的双方需要选定相同的协议。TCP协议适用于传送大容量、需要安全性保证的数据文件，而UDP协议适用于需要分别与很多下属通信，或者建立的连接比较多且为时变的情况，特别是在数据量很小的时候。设定时可以使用Winsock1.Protocol =sckTCPProtocol方法，首先要找到你的计算机的名称，并把它添入Winsock的LocalHost属性中。
创建一个应用程序时，首先要确定你建立的是客户方应用还是服务器服务，只有建立的服务器应用开始工作，并进入监听状态时，客户应用程序才开始建立连接，进入正常的通信状态。笔者建立了一个应用程序，它的功能是当客户方的鼠标移动时，服务器应用程序上能够实时显示该鼠标的位置。
下面是建立服务器应用的方法:
1.创建一个新的标准EXE文件;
2.加入一个Winsock控件;
3.加入如下代码:
Private Sub Form Load()
tcpServer.LocalPort = 1001
