Unable to UserAuthenticate (General questions)

by DaveFromClenney, Friday, May 01, 2009, 04:52 (5684 days ago)

I recently purchased this control and am thoroughly impressed with it, but at this moment I can't so a simple username / password. Even if I hard code the username and password into the code, It returns with not authorized page. I'm using the example that includes scripting that came with the control as a test bed and if anyone could point me in the right direction as to what I'm doing wrong, I would greatly appreciate it.

[code]
Option Explicit
Dim WithEvents Web1 As wodWebServerCom

Private Sub Form_Load()
Set Web1 = New wodWebServerCom
Web1.Authentication = AuthRequired
Web1.AuthenticationType = AuthBasic
Web1.Port = 80
Web1.Start

End Sub

Private Sub Web1_RequestHeaders(ByVal User As WODWEBSERVERCOMLib.IWebUser)
Dim a As String
Debug.Print Received headers from user & User.RemoteIP

' prepare outgoing file
User.Response.FileName = App.Path & index.htm
User.Response.StatusCode = OK

' set up scripting
User.Response.ScriptBegin = <
User.Response.ScriptEnd = >

' now when page is opened, RunScript event will fire

End Sub

Private Sub Web1_RunScript(ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal ScriptData As String, ResponseData As String)

If ScriptData = HOSTNAME Then ResponseData = User.RemoteIP
If ScriptData = DATE Then ResponseData = Now

End Sub

Private Sub Web1_StateChange(ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal OldState As WODWEBSERVERCOMLib.StatesEnum)
Debug.Print State changed to & User.StateText
End Sub

Private Sub Web1_UserAuthenticate(ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal AuthType As WODWEBSERVERCOMLib.WebAuthenticationTypes, Action As WODWEBSERVERCOMLib.WebActions)
If User.Login = test And User.Password = test Then
Action = Allow
Else
Action = Deny
End If

End Sub

Private Sub Web1_UserConnected(ByVal User As WODWEBSERVERCOMLib.IWebUser, Action As WODWEBSERVERCOMLib.WebActions)
Debug.Print User from & User.RemoteIP & connected
End Sub

Private Sub Web1_UserDisconnected(ByVal User As WODWEBSERVERCOMLib.IWebUser)
Debug.Print User from & User.RemoteIP & disconnected
End Sub

[/code]