Sub AppStart (Args() As String)
srvr.Initialize("srvr")
ConfigureSSL(8443) '<---- HTTPS Port
srvr.AddWebSocket("/ws", "HelloWorld")
srvr.Port = 51042 '<---- HTTP Port
srvr.Start
StartMessageLoop
End Sub
Private Sub ConfigureSSL (SslPort As Int)
Dim ssl As SslConfiguration
ssl.Initialize
ssl.SetKeyStorePath(File.DirApp, "web.keystore") 'path to keystore file
ssl.KeyStorePassword = "hello123"
ssl.KeyManagerPassword = "hello123"
srvr.SetSslConfiguration(ssl, SslPort)
'add filter to redirect all traffic from http to https (optional) - not applicable to websockets
'srvr.AddFilter("/*", "HttpsFilter", False)
End Sub