Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim broker As MqttBroker
Dim MyLan As ServerSocket
Private Label1 As Label
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Title = "Mqtt Broker"
MainForm.Show
Label1.Text = MyLan.GetMyIP & " : 51041"
broker.Initialize("", 51041) 'first parameter is the event name. It is currently not used.
broker.DebugLog = True
broker.Start
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub