Visual Basic/正在进行

这是一个工作区。简短的文字片段、提醒和链接，它们不值得单独创建一个页面，但需要一个临时的家，以防它们被遗忘，从这里开始。

杂项

VB 中的 Unicode 问题，添加 Unicode 支持，Unicode 自定义控件，

inet 控件 winsock 控件 comm 控件

Visual Basic 允许通过 Winsock 通过点对点 (PTP) 连接发送数据。插入控件后，只需几个命令即可在两台联网计算机之间发送数据。两台计算机之间必须连接 LAN 线缆。

要允许 Winsock 连接到任何可用的计算机，需要监听命令，如下所示

Winsock.Port = 1234
Winsock.Listen

完成此操作后，需要另一台计算机的本地 IP 地址。你的 IP 地址可以通过以下命令查看

Debug.Print Winsock.LocalIP

连接只需要一行代码，如下所示

Winsock.Connect RemoteHost, Port

端口可以是 50,000 以下的任何数字。上面的示例是 1234。

要接受连接，你需要创建一个新的子程序

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
Winsock.Accept requestid
End Sub

发送数据也很简单。

Winsock.SendData Data

要接收任何发送的数据，需要另一个新的子程序

Private Sub Winsock_DataArrival(ByVal bytestotal As Long)
Dim nData as String
Winsock.GetData nData
End Sub

使用上面的代码，在两台计算机之间创建工作数据交换相对容易。有关此主题的更多信息，请参见“片段”部分。

为 VBZip 等添加示例。

参见

参见