1. Home
  2. Sample code

Product groups

Support

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

May I say how nice it is to work with components so complete and self-explanatory that using them in my application is as instinctive as though I wrote them myself?

Michael Barnett
Full Spectrum Telecommunications

...your service has been phenomenal. It's always quick and you are there when I need you.

James Newman
Castleberry Investments

...with WOD's excellent support I was able to bypass Winsock and focus on the task at hand...

Sander Pool
Rhapsody Networks

May I say how nice it is to work with components so complete and self-explanatory that using them in my application is as instinctive as though I wrote them myself?

Michael Barnett
Full Spectrum Telecommunications

Your support is fantastic.

Douglas Michael Panchyshyn
The Net Software Group

Thanks! We love your software and your great support!

Sandy Fliderman
Primary Development Corporation

This has been, by far, the best experience I have ever had dealing with a support entity in my long career in the technical arena

Frank Kloskowski
GlobalCare Inc.

We have recently completed a large 1200+ location project where reliable Telnet and SSH connectivity was required. wodSSH worked flawlessly and allowed our staff to complete our project ontime and within budget.

James Sievers
Harbor Technologies

Your .NET components allow us to blend .NET technology seamlessly with secure communication, and with excellent technical support.

Bil Bragg
Dionach