Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Main") 'Load the layout file.
MainForm.Show
Table.Initialize("Table")
Table.SetColumns(Array As String("Android ID", "Manufacturer", "Model", "Product", "Status", _
"NetworkOperator", "NetworkType", "PhoneType", "SimOperator"))
server.Initialize(8080, "server")
server.Listen
End Sub
Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
astream.InitializePrefix(NewSocket.InputStream, False, NewSocket.OutputStream, "astream")
lblonline.Text = connectionId +1
lblStatus.Text = "Connected"
Else
Log(LastException)
End If
server.Listen
End Sub
Sub astream_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
lblmsg.Text = msg 'debuggo lo stream testo decodificato
Dim opt() As String
opt = Regex.Split( "|", msg)
lblsplit.Text = opt(1) 'debuggo lo splitting del flusso dati
Select opt(0)
Case "CLIENT"
Dim row(9) As Object
row(0) = opt(1)
row(1) = opt(2)
row(2) = opt(3)
row(3) = opt(4)
row(4) = opt(5)
row(5) = opt(6)
row(6) = opt(7)
row(7) = opt(8)
row(8) = opt(9)
tblClient.Items.Add(row)
Case "CHAT"
Case "CAM"
End Select
End Sub