VB应用举例01：使用VB建立Web Server

　　HTTP协议在浏览器中使用的原理：首先，Web浏览器与服务器建立连接，然后Web浏览器通过HTTP协议向服务器请求文档，最后，由服务器向Web浏览器应答，关闭连接。这就是HTTP协议的一般工作过程。下面，使用Visual Basic 5.0中文版来实现一个简单的Web服务器，使用Tcp/IP协议的 80端口，一般浏览器中的Http协议默认此端口，然后设置好超文本文件的发布路径，本程序默认为C:\InetPub\wwwroot，此Web Server程序比较简单，只适用于包含有文的超文本文件，如果超文本文件中含有图形，无法显示出来。

一、建立窗体

控件依次为label1,label2,label3, 
text1,text2,text3,command1,及Winsock1 
label1.caption=”Visual Basic Web 服务器 1.0” 
label2.caption=”本机地址” 
label3.caption=”发布路径” 
text2.text=”c:\Inetpub\wwwroot\” 
command1.caption=”启动” 
又击Command1加入代码 
Private Sub Command1_Click() 
'启动Winsock1,使用listen方法，听80端口 
    DoEvents 
    Winsock1.Close 
    Winsock1.Protocol = sckTCPProtocol 
    Winsock1.LocalPort = 80 
     
    Winsock1.Listen 
Text1.Text = "WinSocket状态:  
" & CStr(Winsock1.State) + "   
本机IP地址:" + CStr(Winsock1.LocalIP) 
End Sub 
然后在Winsock1 的DataArrival事件中加入代码 
     
    Winsock1.GetData DataReceived, vbString 
    Text3.Text = DataReceived 
    pos1 = 0 
    pos2 = 0 
    For i = 1 To Len(DataReceived) 
        If Mid(DataReceived, i, 1) = " " Then 
            If pos1 = 0 Then 
                pos1 = i + 1 
            Else 
                pos2 = i - 1 
                Exit For 
            End If 
             
        End If 
    Next 
     
    On Error GoTo ExitThisSub 
    If pos1 < > 0 And pos2 < > 0 Then 
    requestfilename = Mid(DataReceived, pos1 + 1, pos2 - pos1) 
    requestfilename = Trim(Text2.Text) & requestfilename 
        If Dir(requestfilename) < > "" Then 
        Else 
            GoTo NoRequestFile 
        End If 
    End If 
    Open requestfilename For Input As #1 
    Winsock1.SendData "HTTP/1.0 200 OK" + vbCrLf 
    Winsock1.SendData "MIME_version:1.0" + vbCrLf 
    Winsock1.SendData "Content_Type:text/html" + vbCrLf 
Winsock1.SendData  
"Content_Length:" + CStr(LOF(1)) + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
    Do While Not EOF(1) 
        Line Input #1, TData 
        Winsock1.SendData TData 
    Loop 
ExitThisSub: 
    Close #1 
    Command1_Click 
    Exit Sub 
     
NoRequestFile: 
    Winsock1.SendData "HTTP/1.0 200 OK" + vbCrLf 
    Winsock1.SendData "MIME_version:1.0" + vbCrLf 
    Winsock1.SendData "Content_Type:text/html" + vbCrLf 
    Winsock1.SendData "Content_Length:" + CStr(30) + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
    Winsock1.SendData "" + vbCrLf 
Winsock1.SendData "<br><br> 
<center><h2>欢迎您使用VB WebServer， 
刚才的地址没有找到!</h2><br> 
<br>1999年4月10日<br><br> 
<a href=mailto:liyong@263.net> 
勇勇的信箱</a><br></center><br>" 
Command1_Click 
在Winsock1的ConnectRequest事件中加入代码 
    Winsock1.Close 
    Winsock1.Accept requestID 

---- 至此，大功告成，在c:\inetpub\wwwroot目录中，选一存在的超文本文件，如http://127.0.0.1/default.html即可。程序运行后，会显示出本机的IP地址，在地址栏中输入IP地址及文件名，如果出现上面的画面(略)，那么说明服务器运行正常，且IP地址是对的，只是default.html文件不存在。