Private Sub Form_Load ci mettiamo in ascolto sulla porta 4000 wskServe

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Form_Load() 'ci mettiamo in ascolto sulla porta 4000
wskServer.LocalPort = 4000
wskServer.Listen
End Sub
Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
Dim DataRecivied As String
Dim CmdStr As String
Dim MesStr As String
Dim DecodStr As String
Dim i As Integer
wskServer.GetData DataRecivied, vbString, bytesTotal
CmdStr = Mid$(DataRecivied, 1, 6) 'estrazione dei primi 6 caratteri, per distinguere tipo di messaggio
MesStr = Mid$(DataRecivied, 7, Len(DataRecivied)) 'la parte "significante" del messaggio
If CmdStr = "norms_" Then
txtRecieved.Text = txtRecieved.Text & MesStr & vbCrLf
End If
If CmdStr = "encod_" Then
For i = 1 To Len(MesStr)
DecodStr = DecodStr & Chr(Asc(Mid(MesStr, i, 1)) - 2) 'la decodifica del messaggio criptato
Next i
txtRecieved.Text = txtRecieved & vbCrLf & DecodStr
End If
If CmdStr = "nudge_" Then
Timer1.Enabled = True
Timer1.Tag = Int(Timer1.Tag) + 1
Select Case Timer1.Tag
Case 1: Me.Left = Me.Left + 100
Case 2: Me.Left = Me.Left - 200
Case 3: Me.Left = Me.Left + 100
Me.Top = Me.Top + 100
Case 4: Me.Top = Me.Top - 200
Case 5: Me.Top = Me.Top + 100
Case 6: Timer1.Tag = 0
Timer1.Enabled = False
End Select
End If
If CmdStr = "capti_" Then
frmServer.Caption = MesStr
End If
End Sub
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long) 'funzione che gestisce la conessione
wskServer.Close
wskServer.Accept requestID
txtRecieved.Text = txtRecieved.Text + "Connection estabilished with " & wskServer.RemoteHostIP & vbCrLf
End Sub