srvr.Initialize("srvr")
Dim ssl As SslConfiguration
ssl.Initialize
ssl.SetKeyStorePath(File.DirApp, "server.keystore")
ssl.KeyStorePassword = "..."
'ssl.KeyManagerPassword = "..."
srvr.SetSslConfiguration(ssl, 443)
srvr.AddFilter("/*", "HttpsFilter", False)
srvr.AddDoSFilter("/*",Null) '
Log(File.DirApp)
srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
srvr.AddHandler("/hello", "HelloPage", False)
srvr.Start
StartMessageLoop