Private Sub cmdConnect_Click wskClient Connect txtHost Text txtPort Te

Private Sub cmdConnect_Click()
wskClient.Connect txtHost.Text, txtPort.Text 'richiesta di conessione
End Sub

Private Sub cmdEncode_Click() 'stringa criptata
Dim i As Integer
Dim strEncoded As String
For i = 1 To Len(txtSend.Text)
    strEncoded = strEncoded & Chr(Asc(Mid$(txtSend.Text, i, 1)) + 2) 'criptaggio con chiave 2
Next i
wskClient.SendData ("encod_" & strEncoded)
End Sub

Private Sub cmdNudge_Click() 'trillo
wskClient.SendData ("nudge_" & "client has nudged you")
End Sub

Private Sub CmdSend_Click() 'stringa normale
wskClient.SendData ("norms_" & txtSend.Text)
End Sub

Private Sub cmdCaption_Click() 'si cambia caption
wskClient.SendData ("capti_" & txtSend.Text)
End Sub