VB6 最简单的WinSock做的UDP聊天软件 - 第1页

VB6 最简单的WinSock做的UDP聊天软件

2023年6月6日 18:40

做个客户端A，新建From1（窗体），新建txtOutput.和txtSend_（TextBox，MultiLine选True，ScrollBars选3），在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件拖动到窗体命名成winsock1，代码：

具体代码只能由VIP查看，请升级。

做个客户端B，新建From1（窗体），新建txtOutput.和txtSend_（TextBox，MultiLine选True，ScrollBars选3），代码：

具体代码只能由VIP查看，请升级。

然后运行后，打好字回车就发送到对方接收框了。

全部回复（1）

如果想用数组，就要对winsock1的属性中的Index从空设置到0，那么可以用这种方式：

Private Sub winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    MsgBox Index
    ...
End Sub