请高手们帮忙进啦看看 - 中国DOS联盟论坛

本人新写了一个批处理+vbs，VBS可以用来下载软件，Bat负责执行VBS和安装包。可是我在测试时每次输入一个选项进去都是显示“检测到您的输入有误，3秒后自动跳回主界面...”请大家帮帮忙哦...
以下是代码

@echo off
color 3A
mode con cols=80 lines=22
title 快速安装软件 1.1 ..By 907829087
IF not exist C:\Soft md C:\Soft
Msg1
echo                           正在检测网络(测试用搜搜).....
ping -n 1 soso.com|find "119.147.9.160" && goto MENU
echo                      sorry，无法连接至搜搜或域名解析异常......&p&exit
:MENU
cls
echo                                      软件菜单                              
echo   --------------------------------------   ----------------------------------
echo   1.腾讯QQ2010SP1   ★★★★★      AA       迅雷          ★★★☆☆     A
echo     腾讯公司推出的即时通           必备    7.迅雷5                       建议
echo   --------------------------------------   8.迅雷7               需要体验资格
echo   2.QQ游戏2010      ★★★★☆      A      不同之处：迅雷7有更多功能
echo     QQ游戏2010客户端               可选    ----------------------------------
echo   --------------------------------------   9.360 ★★★★★或☆☆☆☆☆ AA或B
echo   3.搜狗高速浏览器  ★★★★★      AA       360,免费,请根据情况自定 必备或垃圾
echo     IE+Webkit引擎的高速浏览器      必备    ----------------------------------
echo   --------------------------------------  10.WPS           ★★★★★     AA
echo   4.云游QQ浏览器    ★★★★★      AA       WPS,更懂中文的办公软件      必备
echo     QQ空间应用辅助浏览器(农牧餐)   必备    ----------------------------------
echo   --------------------------------------  11.好压Haozip    ★★★★★     AA
echo     金山毒霸        ★★★★★      AA       最好的完全免费的压缩软件    必备
echo   5.组合1 毒霸2011+金山卫士+金山网盾       ----------------------------------
echo   6.组合2 新技术预览版+金山卫士+金山网盾   等级：0星至5星 B至AA 垃圾至必备
echo   不同之处：组合2 融入沙箱技术安全更有保障 360状态：争议     Q=退出程序
echo   --------------------------------------   ----------------------------------
set /p soft=  请选择软件序号或Q(退出)：
if soft==Q exit
if soft==q exit
if soft==1 goto qq
if soft==2 goto qqgame
if soft==3 goto sogouie
if soft==4 goto yy
if soft==5 goto kin1
if soft==6 goto kin2
if soft==7 goto xl5.9
if soft==8 goto xl7
if soft==9 goto 360
if soft==10 goto wps
if soft==11 goto hz
echo                    检测到您的输入有误，3秒后自动跳回主界面...
ping -n 3 127.1>nul
cls
goto MENU
:qq
cls
echo                           开始为您安装腾讯QQ2010SP1版本
echo                              正在执行：
echo                              ●下载腾讯QQ2010SP1...
DlQQ.vbs
echo                              ●安装腾讯QQ2010SP1...
start /wait C:\Soft\QQ.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:qqgame
cls
echo                           开始为您安装QQ游戏2010版本
echo                              正在执行：
echo                              ●下载腾讯QQ游戏2010...
DlQQG.vbs
echo                              ●安装腾讯QQ游戏2010...
start /wait C:\Soft\QQG.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:sogouie
cls
echo                           开始为您安装搜狗高速浏览器版本
echo                              正在执行：
echo                              ●下载搜狗高速浏览器...
Dlsgex.vbs
echo                              ●安装搜狗高速浏览器...
start /wait C:\Soft\sgex.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:yy
cls
echo                           开始为您安装云游QQ浏览器版本
echo                              正在执行：
echo                              ●下载云游QQ浏览器...
Dlyy.vbs
echo                              ●安装云游QQ浏览器...
start /wait C:\Soft\YY.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:kin1
cls
echo                           开始为您安装金山毒霸套装1版本
echo                              正在执行：(文件较大)
echo                              ●下载金山毒霸套装1...
Dldubaall.vbs
echo                              ●安装金山毒霸套装1...
echo                                金山毒霸2011...
start /wait C:\Soft\DBA2.EXE
echo                                金山卫士    ...
start /wait C:\Soft\DBA3.EXE
echo                                金山网盾    ...
start /wait C:\Soft\DBA1.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:kin2
cls
echo                           开始为您安装金山毒霸套装2版本
echo                              正在执行：(文件较大)
echo                              ●下载金山毒霸套装2...
Dldubaall.vbs
echo                              ●安装金山毒霸套装2...
echo                                新技术预览版...
start /wait C:\Soft\DBA5.EXE
echo                                金山卫士    ...
start /wait C:\Soft\DBA6.EXE
echo                                金山网盾    ...
start /wait C:\Soft\DBA4.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:xl5.9
cls
echo                              开始为您安装迅雷5.9版本
echo                              正在执行：
echo                              ●下载迅雷5.9...
Dlxl.vbs
echo                              ●安装迅雷5.9...
start /wait C:\Soft\xl5.9.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:xl7
cls
echo                              开始为您安装迅雷7版本
echo                              正在执行：
echo                              ●下载迅雷7...
Dlxl7.vbs
echo                              ●安装迅雷7...
start /wait C:\Soft\xl7.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:360
cls
echo                          开始为您安装360安全套装版本
echo                          正在执行：
echo                              ●下载360安全套装...
Dl360.vbs
echo                              ●安装360安全套装...
start /wait C:\Soft\360.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:wps
cls
echo                         开始为您安装WPS Office2010版本
echo                              正在执行：
echo                              ●下载WPS Office...
Dlwps.vbs
echo                              ●安装WPS Office...
start /wait C:\Soft\WPS.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU
:hz
cls
echo                          开始为您安装好压Haozip2.0版本
echo                              正在执行：
echo                              ●下载WPS Office...
Dlhz.vbs
echo                              ●安装WPS Office...
start /wait C:\Soft\hz.EXE
echo                              ●    安装已完成
o.vbs
cls&goto MENU

VBS代码：
Dl360.Vbs

'下载360
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://down.360safe.com/360safe_cq.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\360.EXE",2
Dldubaall.Vbs

'下载金山毒霸2011互联网安全套装
'下载金山网盾
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://cu003.www.duba.net/duba/tools/dubatools/setup.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA1.EXE",2

'下载金山毒霸
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://cd001.www.duba.net/duba/install/2011/ever/KAV100805_DOW
N_10_602.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA2.EXE",2

'下载金山卫士
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://dl.ijinshan.com/safe/setup_dubaweb.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA3.EXE",2
DldubaNew.Vbs

'下载金山毒霸2011互联网安全套装(新技术预览版)
'下载金山网盾
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://cu003.www.duba.net/duba/tools/dubatools/setup.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA4.EXE",2

'下载金山毒霸(新技术预览版)
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://cd001.www.duba.net/duba/install/2011/once/kissetup_2010
.8.14.15.28.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA5.EXE",2

'下载金山卫士
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://dl.ijinshan.com/safe/setup_dubaweb.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\DBA6.EXE",2
Dlhz.vbs

'下载好压
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://download.haozip.com/haozip_v2.0.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\hz.EXE",2
DlQQ.Vbs

'下载QQ2010SP1
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://dl_dir.qq.com/qqfile/qq/QQ2010/QQ2010SP1.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\QQ.EXE",2
DlQQG.Vbs

'下载QQ游戏
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://dl_dir3.qq.com/minigamefile/QQGame2010Beta6_setup_web.E
XE",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\QQG.EXE",2
Dlsgex.Vbs

'下载搜狗高速浏览器
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://download.ie.sogou.com/sogou_explorer_2.0l.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\sgex.EXE",2
Dlwps.vbs

'下载WPS 更懂中文的办公软件
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://kad.www.wps.cn/wps/download/special/WPS2010.12012.exe",
0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\WPS.EXE",2
Dlxl.vbs

'下载迅雷5.9
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://down.sandai.net/Thunder5.9.26.1538.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\xl5.9.EXE",2
Dlxl7.vbs

'下载迅雷7
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://down.sandai.net/thunder7/Thunder7.1.0.1888.exe",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\xl7.EXE",2
Dlyy.vbs

'下载云游浏览器
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://loveyunyoucc.googlecode.com/files/yunyou_1.2.14.116.exe
",0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "C:\Soft\YY.EXE",2
Msg1.VBS

msgbox ("本程序由曾宸制作"&vbnewline&"程序采用Bat+Vbs的方式制作"&vbnewline&"本程
序的软件全部从官网下载，无病毒"&vbnewline&"下载时，程序会访问网络，若有杀毒软件
请放行"&vbnewline&"请按下确定键继续..")
o.vbs

Msgbox ("安装完成，请按确定键返回主界面..")
p.vbs

Msgbox ("请按下确定键退出..")

[ Last edited by zc99 on 2010-8-22 at 21:48 ]

第1楼　zc99	发表于 2010-08-22 21:47
新手上路　发帖 3　积分 4
[求助]请高手们帮忙进啦看看本人新写了一个批处理+vbs，VBS可以用来下载软件，Bat负责执行VBS和安装包。可是我在测试时每次输入一个选项进去都是显示“检测到您的输入有误，3秒后自动跳回主界面...”请大家帮帮忙哦... 以下是代码 @echo off color 3A mode con cols=80 lines=22 title 快速安装软件 1.1 ..By 907829087 IF not exist C:\Soft md C:\Soft Msg1 echo 正在检测网络(测试用搜搜)..... ping -n 1 soso.com\|find "119.147.9.160" && goto MENU echo sorry，无法连接至搜搜或域名解析异常......&p&exit :MENU cls echo 软件菜单 echo -------------------------------------- ---------------------------------- echo 1.腾讯QQ2010SP1 ★★★★★ AA 迅雷 ★★★☆☆ A echo 腾讯公司推出的即时通必备 7.迅雷5 建议 echo -------------------------------------- 8.迅雷7 需要体验资格 echo 2.QQ游戏2010 ★★★★☆ A 不同之处：迅雷7有更多功能 echo QQ游戏2010客户端可选 ---------------------------------- echo -------------------------------------- 9.360 ★★★★★或☆☆☆☆☆ AA或B echo 3.搜狗高速浏览器 ★★★★★ AA 360,免费,请根据情况自定必备或垃圾 echo IE+Webkit引擎的高速浏览器必备 ---------------------------------- echo -------------------------------------- 10.WPS ★★★★★ AA echo 4.云游QQ浏览器 ★★★★★ AA WPS,更懂中文的办公软件必备 echo QQ空间应用辅助浏览器(农牧餐) 必备 ---------------------------------- echo -------------------------------------- 11.好压Haozip ★★★★★ AA echo 金山毒霸 ★★★★★ AA 最好的完全免费的压缩软件必备 echo 5.组合1 毒霸2011+金山卫士+金山网盾 ---------------------------------- echo 6.组合2 新技术预览版+金山卫士+金山网盾等级：0星至5星 B至AA 垃圾至必备 echo 不同之处：组合2 融入沙箱技术安全更有保障 360状态：争议 Q=退出程序 echo -------------------------------------- ---------------------------------- set /p soft= 请选择软件序号或Q(退出)： if soft==Q exit if soft==q exit if soft==1 goto qq if soft==2 goto qqgame if soft==3 goto sogouie if soft==4 goto yy if soft==5 goto kin1 if soft==6 goto kin2 if soft==7 goto xl5.9 if soft==8 goto xl7 if soft==9 goto 360 if soft==10 goto wps if soft==11 goto hz echo 检测到您的输入有误，3秒后自动跳回主界面... ping -n 3 127.1>nul cls goto MENU :qq cls echo 开始为您安装腾讯QQ2010SP1版本 echo 正在执行： echo ●下载腾讯QQ2010SP1... DlQQ.vbs echo ●安装腾讯QQ2010SP1... start /wait C:\Soft\QQ.EXE echo ● 安装已完成 o.vbs cls&goto MENU :qqgame cls echo 开始为您安装QQ游戏2010版本 echo 正在执行： echo ●下载腾讯QQ游戏2010... DlQQG.vbs echo ●安装腾讯QQ游戏2010... start /wait C:\Soft\QQG.EXE echo ● 安装已完成 o.vbs cls&goto MENU :sogouie cls echo 开始为您安装搜狗高速浏览器版本 echo 正在执行： echo ●下载搜狗高速浏览器... Dlsgex.vbs echo ●安装搜狗高速浏览器... start /wait C:\Soft\sgex.EXE echo ● 安装已完成 o.vbs cls&goto MENU :yy cls echo 开始为您安装云游QQ浏览器版本 echo 正在执行： echo ●下载云游QQ浏览器... Dlyy.vbs echo ●安装云游QQ浏览器... start /wait C:\Soft\YY.EXE echo ● 安装已完成 o.vbs cls&goto MENU :kin1 cls echo 开始为您安装金山毒霸套装1版本 echo 正在执行：(文件较大) echo ●下载金山毒霸套装1... Dldubaall.vbs echo ●安装金山毒霸套装1... echo 金山毒霸2011... start /wait C:\Soft\DBA2.EXE echo 金山卫士 ... start /wait C:\Soft\DBA3.EXE echo 金山网盾 ... start /wait C:\Soft\DBA1.EXE echo ● 安装已完成 o.vbs cls&goto MENU :kin2 cls echo 开始为您安装金山毒霸套装2版本 echo 正在执行：(文件较大) echo ●下载金山毒霸套装2... Dldubaall.vbs echo ●安装金山毒霸套装2... echo 新技术预览版... start /wait C:\Soft\DBA5.EXE echo 金山卫士 ... start /wait C:\Soft\DBA6.EXE echo 金山网盾 ... start /wait C:\Soft\DBA4.EXE echo ● 安装已完成 o.vbs cls&goto MENU :xl5.9 cls echo 开始为您安装迅雷5.9版本 echo 正在执行： echo ●下载迅雷5.9... Dlxl.vbs echo ●安装迅雷5.9... start /wait C:\Soft\xl5.9.EXE echo ● 安装已完成 o.vbs cls&goto MENU :xl7 cls echo 开始为您安装迅雷7版本 echo 正在执行： echo ●下载迅雷7... Dlxl7.vbs echo ●安装迅雷7... start /wait C:\Soft\xl7.EXE echo ● 安装已完成 o.vbs cls&goto MENU :360 cls echo 开始为您安装360安全套装版本 echo 正在执行： echo ●下载360安全套装... Dl360.vbs echo ●安装360安全套装... start /wait C:\Soft\360.EXE echo ● 安装已完成 o.vbs cls&goto MENU :wps cls echo 开始为您安装WPS Office2010版本 echo 正在执行： echo ●下载WPS Office... Dlwps.vbs echo ●安装WPS Office... start /wait C:\Soft\WPS.EXE echo ● 安装已完成 o.vbs cls&goto MENU :hz cls echo 开始为您安装好压Haozip2.0版本 echo 正在执行： echo ●下载WPS Office... Dlhz.vbs echo ●安装WPS Office... start /wait C:\Soft\hz.EXE echo ● 安装已完成 o.vbs cls&goto MENU VBS代码： Dl360.Vbs '下载360 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://down.360safe.com/360safe_cq.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\360.EXE",2 Dldubaall.Vbs '下载金山毒霸2011互联网安全套装 '下载金山网盾 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://cu003.www.duba.net/duba/tools/dubatools/setup.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA1.EXE",2 '下载金山毒霸 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://cd001.www.duba.net/duba/install/2011/ever/KAV100805_DOW N_10_602.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA2.EXE",2 '下载金山卫士 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://dl.ijinshan.com/safe/setup_dubaweb.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA3.EXE",2 DldubaNew.Vbs '下载金山毒霸2011互联网安全套装(新技术预览版) '下载金山网盾 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://cu003.www.duba.net/duba/tools/dubatools/setup.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA4.EXE",2 '下载金山毒霸(新技术预览版) Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://cd001.www.duba.net/duba/install/2011/once/kissetup_2010 .8.14.15.28.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA5.EXE",2 '下载金山卫士 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://dl.ijinshan.com/safe/setup_dubaweb.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\DBA6.EXE",2 Dlhz.vbs '下载好压 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://download.haozip.com/haozip_v2.0.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\hz.EXE",2 DlQQ.Vbs '下载QQ2010SP1 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://dl_dir.qq.com/qqfile/qq/QQ2010/QQ2010SP1.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\QQ.EXE",2 DlQQG.Vbs '下载QQ游戏 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://dl_dir3.qq.com/minigamefile/QQGame2010Beta6_setup_web.E XE",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\QQG.EXE",2 Dlsgex.Vbs '下载搜狗高速浏览器 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://download.ie.sogou.com/sogou_explorer_2.0l.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\sgex.EXE",2 Dlwps.vbs '下载WPS 更懂中文的办公软件 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://kad.www.wps.cn/wps/download/special/WPS2010.12012.exe", 0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\WPS.EXE",2 Dlxl.vbs '下载迅雷5.9 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://down.sandai.net/Thunder5.9.26.1538.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\xl5.9.EXE",2 Dlxl7.vbs '下载迅雷7 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://down.sandai.net/thunder7/Thunder7.1.0.1888.exe",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\xl7.EXE",2 Dlyy.vbs '下载云游浏览器 Set xPost = createObject("Microsoft.XMLHTTP") xPost.Open "GET","http://loveyunyoucc.googlecode.com/files/yunyou_1.2.14.116.exe ",0 xPost.Send() Set sGet = createObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open() sGet.Write(xPost.responseBody) sGet.SaveToFile "C:\Soft\YY.EXE",2 Msg1.VBS msgbox ("本程序由曾宸制作"&vbnewline&"程序采用Bat+Vbs的方式制作"&vbnewline&"本程序的软件全部从官网下载，无病毒"&vbnewline&"下载时，程序会访问网络，若有杀毒软件请放行"&vbnewline&"请按下确定键继续..") o.vbs Msgbox ("安装完成，请按确定键返回主界面..") p.vbs Msgbox ("请按下确定键退出..") [ Last edited by zc99 on 2010-8-22 at 21:48 ]