VBS下载指定URL地址EXE文件并运行命令

		
set xPost = createObject("Microsoft.XMLHTTP") 
xPost.Open "GET","http://down.360safe.com/setup.exe",0
xPost.Send() 
Set sGet = createObject("ADODB.Stream") 
sGet.Mode = 3 
sGet.Type = 1 
sGet.Open() 
sGet.Write(xPost.responseBody) 
sGet.SaveToFile "rose.exe"
Set ws = CreateObject("Wscript.Shell")
ws.run "rose.exe"
msgbox "360安全卫士更新完毕!",vbyes,"提示:"
 
						
		
	

补充：综合编程 , 其他综合 ,

上一个：批处理命令拷贝文件
下一个：VC2005 Debug 和 Release 编译方式的本质区别