HTTP Server Protocoll Get-Responder
Category:
Network/InternetType:
SnippetsDifficulty:
IntermediateAuthor:
AnonymousVersion Compatibility: Visual Basic 6
More information:
This CodeSnipped is Part of A HTTP 1/1 Responding module.
It answers on GET commands of Client Requests.
You Need A winsock control (eg. wSox) And paste this as DataArrival
Private Sub wSox_DataArrival(ByVal bytesTotal As Long)
Dim strRequest As String
'Get Clients Http Header
wSox.GetData strRequest
'Process HTTPRespond
strRequest = WriteHTTPRespond(strRequest)
'Send Respond
wSoxSendData strRequest
End Sub
Then make a new module as containing the following code:
Instructions: Copy the declarations and code below and paste directly into your VB project.
Declarations: