Sub MessageArrived (Intent As Intent)
Dim From, CollapseKey, Data As String 'ignore
If Intent.HasExtra("from") Then From = Intent.GetExtra("from")
If Intent.HasExtra("data") Then Data = Intent.GetExtra("data")
If Intent.HasExtra("collapse_key") Then CollapseKey = Intent.GetExtra("collapse_key")
'Here you should handle the new message:
Log("New message arrived: " & Data)
'ToastMessageShow("New message: " & Data, True)
StartActivity(Main)
Main.messg = Data
Main.SQL1.ExecNonQuery2("INSERT INTO mess_in (time_in, from_user,mess_text,read_it) VALUES(?,?,?,?)", Array As Object(DateTime.Now,"Johnny",Data,0))
Main.In_Out = 1
End Sub