VB的sock函数

来源：百度知道 编辑：UC知道 时间：2024/04/28 03:43:58
VB的sock函数是什么意思。
我想用VB写一个验证端。比喻说万像网管。客户端会员上机要发送消息给服务端。我只是想知道怎么能完成这种功能，用VB写。各位高手我没分，希望你们拿出一点时间，教教我们这些刚学的。最好是能告诉我怎么用VB写一个局域网的验证。

本例共两个工程：一个验证端，一个测试端

简单的实现方法就是用WinSock控件。在工程中添加组件选 Microsft WinSock 6.0 (记得是这个，我计算机上没有 VB)，把该控件拖到工程窗体中，假设命名为：sckClient，把 sckClient 的Index 值设为0，协议类型设为TCP类型 并添加以下代码(验证端代码)：

Option Explicit

Private Sub Form1_Load()
with sckClient(0)
.close
.LocalPort=1234
.Listen
End with
End Sub

Private Sub sckClient_ConnectionRequest(Index As Integer,ByVal requestID As Long)
Load sckClient(sckClient.Ubound +1)
With sckClient(sckClient.Ubound)
.close
.Accept requestID
End With
End Sub

Private Sub sckClient_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strBuffer As String

sckClient(Index).GetData strBuffer

'这里的 Select 语句可以根据自己的验证机制(逻辑)改动
Select Case strBuffer
Case "AccountA"
sckClient(Index).SendData "OK"
Case &qu