Sub timerWebSRx_Tick
timerWebSRx.Enabled = False
Select stato_webs_rx
Case WEBS_CONNECT
If wshRx.ws.Connected = False Then
wshRx.Connect("wss://servicetelecare.beghelli.it/ws/Room_" & B4XPages.MainPage.IdTablet)
stato_webs_rx = WEBS_CONNECTED
B4XPages.MainPage.Mylog(Main.LIVELLO_DEBUG_WEBSOCKET,"RIAPRO LA WEBS IN RX--------------------------------------")
End If
Case WEBS_CONNECTED
If wshRx.ws.Connected = False Then
stato_webs_rx = WEBS_CONNECT
else if flagRxMsg = True Then
If GestisciMessaggi Then
B4XPages.MainPage.MyLog(Main.LIVELLO_DEBUG_WEBSOCKET,"Rispondo sulla mia webs")
'vuol dire che devo rispondere sulla mia webs
wshRx.SendEventToServer(msgToTx.mitt,msgToTx.dest,msgToTx.cop,msgToTx.progr,msgToTx.data)
End If
flagRxMsg = False
End If
End Select
timerWebSRx.Interval = DURATA_TIMER_TX_RX
timerWebSRx.Enabled = True
End Sub