Private Sub cmdConnect_Click wskClient Connect txtHost Text txtPort Te

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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