Internet Security Components - COM, ActiveX and .NET

Manual-response-HTTP-server - WeOnlyDo Software example code

All

wodCrypt (12)
wodSSH (10)
wodSFTP (23)
wodSSHServer (1)
wodSSHTunnel (11)
wodSSHpackage
wodSFTPdll

wodSSH.NET (10)
wodSFTP.NET (24)
wodFtpDLX.NET (22)
wodWebServer.NET (10)

wodAppUpdate (13)
wodHttpDLX (8)
wodFtpDLX (22)
wodTelnetDLX
wodFTPServer (3)
wodWebServer (10)
wodVPN
wodXMPP (13)

All ** [Visual Basic] ** [C#] ** [VB.NET] **

Manual response - HTTP server

VB code

Uses wodWebServer ActiveX component

Dim WithEvents wodWebServer1 As wodWebServerCom
Private Sub Form_Load()
    Set wodWebServer1 = New wodWebServerCom

    wodWebServer1.Start 'start a web server
End Sub

'RequestDone Event fires when wodWebServer receives request headers from the user.
Private Sub wodWebServer1_RequestDone(ByVal User As WODWEBSERVERCOMLib.IWebUser)
    Dim resp As String
    
    resp = "<HTML><font face=Verdana size=2>Welcome visitor from "
    resp = resp & User.RemoteIP & ". This is <b>wodWebServer</b>, version " & wodWebServer1.Version
    resp = resp & "<BR>You requested resource " & User.Request.Path & User.Request.PageName
    resp = resp & "</font></HTML>"
    
    'Using WebResponse object Body Property we can specify manual response
    'that we want to send to client when they connect to our server.
    User.Response.Body = resp
    
    'Don't forget to set status code and content type also.
    User.Response.Headers("Content-Type") = "text/html"
    User.Response.StatusCode = OK
End Sub

VB.NET code

Uses wodWebServer.NET component

Dim WithEvents wodWebServer1 As WeOnlyDo.Server.WebServer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wodWebServer1 = New WeOnlyDo.Server.WebServer

    wodWebServer1.Start() 'start a web server
End Sub

'RequestDone Event fires when wodWebServer.NET receives request headers from the user.
Private Sub wodWebServer1_RequestDoneEvent(ByVal Sender As Object, ByVal Args As WeOnlyDo.Server.WebRequestDoneArgs) Handles wodWebServer1.RequestDoneEvent
    Dim resp As String

    resp = "<HTML><font face=Verdana size=2>Welcome visitor from "
    resp = resp & Args.User.RemoteIP & ". This is <b>wodWebServer.NET</b>, version " & wodWebServer1.Version
    resp = resp & "<BR>You requested resource " & Args.User.Request.Path & Args.User.Request.PageName
    resp = resp & "</font></HTML>"

    'Using WebResponse object Body Property we can specify manual response
    'that we want to send to client when they connect to our server.
    Args.User.Response.Body = resp

    'Don't forget to set status code and content type.
    Args.User.Response.Headers("Content-Type").Value = "text/html"
    Args.User.Response.StatusCode = WeOnlyDo.Server.StatusCodes.OK
End Sub

C# code

Uses wodWebServer.NET Component

private WeOnlyDo.Server.WebServer wodWebServer1;
private void Form1_Load(object sender, EventArgs e)
{
    wodWebServer1 = new WeOnlyDo.Server.WebServer();
    wodWebServer1.RequestDoneEvent += new WeOnlyDo.Server.WebServer.RequestDoneDelegate(wodWebServer1_RequestDoneEvent);

    wodWebServer1.Start(); //start a web server
}

//RequestDone Event fires when wodWebServer.NET receives request headers from the user.
void wodWebServer1_RequestDoneEvent(object Sender, WeOnlyDo.Server.WebRequestDoneArgs Args)
{
    String resp = String.Empty;

    resp = "<HTML><font face=Verdana size=2>Welcome visitor from ";
    resp += Args.User.RemoteIP + ". This is <b>wodWebServer.NET</b>, version " + wodWebServer1.Version;
    resp += "<BR>You requested resource " + Args.User.Request.Path + Args.User.Request.PageName;
    resp += "</font></HTML>";

    //Using WebResponse object Body Property we can specify manual response
    //that we want to send to client when they connect to our server.
    Args.User.Response.Body = resp;

    //Don't forget to set status code and content type.
    Args.User.Response.Headers["Content-Type"].Value = "text/html";
    Args.User.Response.StatusCode = WeOnlyDo.Server.StatusCodes._OK;
}

You have been great as far as offering support is concerned and has been extremely responsive to both support requests and suggestions for product enhancements.

David Keenan

Serengeti Systems Incorporated