『楼 主』:
[求助]请高手们帮忙进啦看看
本人新写了一个批处理+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 ]
|
