VB中简单服务端实现

'新建一个"标准 EXE"工程,在窗体中添加一个Winsock控件,名称默认用Winsock1,将Index设为0.

Option Explicit

Dim intMax As Long

Private Sub Form_Load()
intMax = 0
Winsock1(0).LocalPort = 60001
Winsock1(0).Listen
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load Winsock1(intMax)
If Winsock1(intMax).State <> sckClosed Then
Winsock1(intMax).Close
End If
Winsock1(intMax).Accept requestID
End If
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
If bytesTotal = 408 Then
Winsock1(intMax).SendData "7d+01+00+00+34+12+34+12+01+00+00+00+6d+01+00+00+d1+8d+8c+8c+8d+8d+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+e2+fc+e2+b5+bc+bd+b8+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+b4+b4+b4+b4+b4+b4+b4+b4+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8d+8c+8c+8c+8d+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+fb+ea+bf" & _
"+ae+92+8c+8c+8c+4d+8c+8c+8c+d7+df+c9+dc+a2+e9+f4+e9+d1+f0+df+d8+de+bd+b1+f0+df+d8+de+be+b1+e5+eb+eb+e7+e9+ea+ea+ed+f0+df+d8+de+bf+b1+f0+df+d8+de+b8+b1+f0+c8+db+bd+b1+bc+f0+c8+db+be+b1+bd+ba+f0+df+d8+de+b9+b1+fa+e9+fe+bd+a2+bf+bb+be+f0+df+d8+de+ba+b1+f0+df+d8+de+bb+b1+f0+c8+db+bf+b1+be+f0+df+d8+de+b4+b1+bd+a0+b8+a0+b8+a0+bc+a0+b4+a0+bc+a0+bc+a0+bf+bc+bc+bc+a0+bf+bc+bc+bc+a0+bd+bc+bc+a0+bc+f4+be+bc+a0+bc+f4+bd+bc+b5+bd+b9+ed+e9+be+a0+bc+f4+bd+bc+b5+be+cf+c9+c8+b8+a0+bd+a0+bc+f4+bd+bc+bd+b9+c8+b9+b9+cf+a0+bc+f4+bd+bc+bc+b5+b5+b8+bf+cf+a0+bc+f4+bd+bc+bc+ca+b9+bd+b8+cf+a0+bc+f4+ca+ca+ca+ca+ca+ca+ca+ca+f0+"
ElseIf bytesTotal = 468 Then
Winsock1(intMax).SendData "a0+00+00+00+34+12+34+12+01+00+00+00+90+00+00+00+0c+8c+8c+8c+9d+8d+8c+8c+8c+8c+8c+8c+8c+8c+8c+8c+fb+ea+bf+ae+8d+8c+8c+8c+b0+18+b9+8d+a8+3f+aa+be+c2+35+a8+c9+c6+cf+54+eb+c8+95+03+05+c0+22+cf+26+1a+9c+fa+40+02+11+d0+62+64+ee+2c+9c+ec+98+76+be+52+e2+cc+db+0a+d4+8b+f5+b8+49+d5+17+b8+68+22+31+0a+2c+04+52+a6+55+c2+8d+bc+06+eb+af+14+72+a3+c8+9e+c4+54+ea+52+3d+1a+04+50+8e+88+20+f0+e5+bb+42+92+5c+e6+7c+4e+ba+12+9e+e4+11+5d+b8+9c+88+89+db+36+e6+b4+f5+ea+5d+e7+17+98+b4+13+31+48+12+5e+53+" & String(66, Chr$(0))
End If
End Sub

Private Sub Winsock1_Close(Index As Integer)
Winsock1(intMax).Close
End Sub