Option Explicit
Private Sub Command1_Click()
txtOut.Text = "Connessione terminata"
wskServer.SendData txtOut.Text & vbCrLf
End
End Sub
Private Sub Command2_Click()
AboutHelp.Show 1
End Sub
Private Sub Listen_Click()
wskServer.Close
wskServer.LocalPort = 2000
wskServer.Listen
txtReply.Text = txtReply.Text & "Server in attesa..." & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
If (wskServer.State <> sckClosed) Then wskServer.Close
wskServer.Accept requestID
txtReply.Text = txtReply.Text & "Connessione accettata..." & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub
Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
Dim DATI As String
wskServer.GetData DATI
txtReply.Text = txtReply.Text & DATI & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub
Private Sub Invia_Click()
If wskServer.State <> sckConnected Then
txtReply.Text = txtReply.Text & "Non connesso" & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
Exit Sub
End If
wskServer.SendData txtOut.Text & vbCrLf
End Sub