VB中简单服务端实现
2007-01-10 10:02
204 查看
'新建一个"标准 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
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
相关文章推荐
- 利用Tcp和socket实现的客户端与服务端的简单通信
- Java中利用socket实现简单的服务端与客户端的通信(入门级)
- WCF的简单实例(手写代码实现)--服务端
- IM聊天进阶(三)IM>openfire>mina>mina搭建服务端和客户端 实现简单点对点聊天
- 窗口界面编程之一:VB实现简单异形窗口
- 通过 DynamicLinq 简单实现 N-Tier 部署下的服务端数据库通用分页
- 多用户打印中心VB简单实现
- Mina框架实现最简单的服务端(三)
- Android与服务端的Socket连接实现简单数据传输
- NIO实现的服务端与客户端之间的简单通信
- 基于TCP实现简单的客户端服务端的消息传递
- 基于TCP实现简单的客户端服务端的消息传递(二)
- 简单的socket连接,实现服务端可以获得多个客户端连接(备份,方便以后查询)
- C语言实现简单UDP协议服务端
- Netty实例-简单的服务端-客户端实现,注释详细
- 在java中客户端和服务端简单实现代码
- node和bootstrap-table实现最简单的服务端分页
- boost的asio实现简单的客户端和服务端
- 用Socket实现的简单客户端和服务端程序(二)
- golang实现简单的udp协议服务端与客户端示例