HTTP Server Protocoll Get-Responder

Category:
Network/Internet
Type:
Snippets
Difficulty:
Intermediate
Author:
Anonymous

Version 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:

Code: