Option Explicit
Private Sub Command1_Click()
AboutHelp.Show 1
End Sub
Private Sub Command2_Click()
txtOut.Text = "Connessione Terminata"
wskClient.SendData txtOut.Text & vbCrLf
End
End Sub
Public Sub Connetti_Click()
txtReply.Text = txtReply.Text & "Connessione in corso..."
txtReply.SelStart = Len(txtReply.Text)
wskClient.Close
wskClient.LocalPort = 0
wskClient.Connect txtHostName.Text, 2000
End Sub
Private Sub wskClient_DataArrival(ByVal bytesTotal As Long)
Dim DATI As String
wskClient.GetData DATI
txtReply.Text = txtReply.Text & DATI & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub
Private Sub Invia_Click()
If wskClient.State <> sckConnected Then
txtReply.Text = txtReply.Text & "Non connesso"
txtReply.SelStart = Len(txtReply.Text)
Exit Sub
End If
wskClient.SendData txtOut.Text & vbCrLf
End Sub