Sub Client_Connected(ConStatus As Boolean)
If ConStatus = True Then
ToastMessageShow("Connesso con wifi su IP " & txtipserver.Text & " Porta " & txtport.Text,True)
AStreams.InitializePrefix(CltSock.InputStream, False, CltSock.OutputStream, "AStreams")
If wifi2.isWifiEnabled = True Then
If switchcomanda = 0 Then
btntrasmetti_Click
Else if switchcomanda = 1 Then
btntrasmetti3_Click
End If
Log(" Client_Connected ha trasmesso a btntrasmetti_Click")
Else
mp2.Load(File.DirAssets,"alert.wav")
mp2.Play
Msgbox("Non sei connesso con WiFi, controlla se sei connesso", " ATTENZIONE !!")
End If
Else
Msgbox(" Comanda non inviata, " & CRLF & LastException.Message, " ERRORE DI CONNESSIONE ")
End If
End Sub