vb系统架设服务器,VB6之HTTP服务器的实现

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服务已停止"

<