1 'code by lichmama
2 'winsock 状态常数
3 Private EnumWINSOCK_STATE_ENUM4 sckClosed = 0 '关闭状态
5 sckOpen = 1 '打开状态
6 sckListening = 2 '侦听状态
7 sckConnectionPending = 3 '连接挂起
8 sckResolvingHost = 4 '解析域名
9 sckHostResolved = 5 '已识别主机
10 sckConnecting = 6 '正在连接
11 sckConnected = 7 '已连接
12 sckClosing = 8 '同级人员正在关闭连接
13 sckError = 9 '错误
14 End Enum
15
16 Private SubCommand1_Click()17 '启动监听
18 CallWinsock1.Listen19 Me.Caption = "HTTP-SERVER/VB: HTTP服务启动,监听端口80"
20 End Sub
21
22 Private SubCommand2_Click()23 '关闭监听
24 CallWinsock1.Close25 For i = 0 To 9
26 CallSckHandler(i).Close27 Next
28 Me.Caption = "HTTP-SERVER/VB: HTTP服务已停止"
<