Sub Process_Globals
Public const Port As Int = 3001 'after running access the port with http://localhost:3001
Public staticFolderPath As String
Private srvr As Server
Dim test1LastClicked =True As Boolean
Dim test2LastClicked=True As Boolean
Dim tableBodyIdtest1 As String = "tablebody1"
Dim tableBodyIdtest2 As String = "tablebody2"
End Sub
Sub AppStart (Args() As String)
staticFolderPath = File.Combine(File.DirApp, "www")
srvr.Initialize("srvr")
srvr.Port = Port 'set the server port
srvr.StaticFilesFolder = staticFolderPath 'set the static folder to allow access to css file/images/files
srvr.AddWebSocket("/testserver/ws", "testserver") 'add the websocket
srvr.AddHandler("/test1", "test1", False) 'add test handler http://localhost:3001/test will call the test handler event
srvr.AddHandler("/test2", "test2", False) 'add handler to get req from the form element via POST request
srvr.Start
StartMessageLoop
End Sub