private Sub iSock_Connected (Successful As Boolean)
If Successful = True Then
timerData.Enabled = False
If TimerConnect.IsInitialized Then
TimerConnect.Enabled = False
End If
Dim TxBuffer() As Byte
iStream.Initialize(iSock.InputStream, iSock.OutputStream, "iStream")
Log("SOCKET CONNECTED")
If CONNECTION_OK = False And USE_SERVER = True Then
'REQ:ary(12) as byte
Dim str As String = IMX.REQID & IMX.GetPasswordConnessione
Log("Invio REQID e CheckPSW")
Dim tmp() As Byte = str.GetBytes("ASCII")
iStream.Write(str.GetBytes("ASCII"))
Else
GetXpKeys
End If
Else
'Se errore di connessione...
TimerConnect_Tick
Log("iSock_Connected = " & Successful)
End If
End Sub