- Private Sub Form_Load()
- Winsock1.LocalPort = 80
- Winsock1.Listen
- End Sub
- Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
- Winsock1.Close
- Winsock1.Accept requestID
- End Sub
- Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
- Dim StrData As String, FNbr As Integer, Chr As String * 1, Str As String
- Winsock1.GetData StrData
- If Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25) = " " Then StrData = App.Path & "\index.html" Else StrData = Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25)
- If Dir(StrData) = "" Then
- Winsock1.SendData "<HTML><H1>404</h1></HTML>"
- Else
- FNbr = FreeFile
- Open StrData For Binary As FNbr
- Do While Not EOF(FNbr)
- Get #FNbr, , Chr
- Str = Str & Chr
- Loop
- Close FNbr
- Str = "HTTP/1.1 200 OK" & vbCrLf & vbCrLf & Str
- Winsock1.SendData Str
- End If
- End Sub
- Private Sub Winsock1_SendComplete()
- Winsock1.Close
- Winsock1.Listen
- End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 80
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim StrData As String, FNbr As Integer, Chr As String * 1, Str As String
Winsock1.GetData StrData
If Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25) = " " Then StrData = App.Path & "\index.html" Else StrData = Left(Mid(StrData, 6, InStr(6, StrData, " ") - 5), 25)
If Dir(StrData) = "" Then
Winsock1.SendData "<HTML><H1>404</h1></HTML>"
Else
FNbr = FreeFile
Open StrData For Binary As FNbr
Do While Not EOF(FNbr)
Get #FNbr, , Chr
Str = Str & Chr
Loop
Close FNbr
Str = "HTTP/1.1 200 OK" & vbCrLf & vbCrLf & Str
Winsock1.SendData Str
End If
End Sub
Private Sub Winsock1_SendComplete()
Winsock1.Close
Winsock1.Listen
End Sub