U盘中总是存在一些安装程序,不必再每次的去找该安装什么程序,一个VBS可以让安装过程变得简化起来。
程序源码:
Dim a,b,MZ
msgbox("Mayuko Soft"&vbcrlf&" ver:1.0")
b=inputbox("请输入U盘的盘符"&vbcrlf&" ","选择驱动器","在此处输入...")
if b="" then
WScript.Quit
end if
a=inputbox("安装..."&vbcrlf&"1 QQ"&vbcrlf&"2 UC浏览器"&vbcrlf&"3 迅雷"&vbcrlf&"4 小米手机助手"&vbcrlf&"5 小米随身wifi"&vbcrlf&"6 Visual C++6.0绿色版"&vbcrlf&"7 Codeblocks"&vbcrlf&"8 Visual C++6.0 中文企业版"&vbcrlf&"9 小米手机驱动"&vbcrlf&"10 PsmPlayer"&vbcrlf&"11 Cool Edit pro"&vbcrlf&"12
MikuMikuDance","Mayuko程序安装器","输入数字...")
if a=1 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件QQ.exe"
else if a=2 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件Browser.exe"
else if a=3 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件Thunder.exe"
else if a=4 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件MiInstaller.exe"
else if a=5 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件Miwifi.exe"
else if a=6 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件vc6.exe"
else if a=7 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件codeblocks.exe"
else if a=8 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件VC_CN-v6.0.zip"
else if a=9 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件小米手机驱动.rar"
else if a=10 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件PsmPlayerV5.0h.rar"
else if a=11 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件CoolEdit.exe"
else if a=12 then
Set MZ=WScript.CreateObject("WScript.shell")
MZ.run b+":程序文件HA_MMD739.exe"
else
msgbox("输入的数字有误或没有该程序!")
WScript.Quit
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
截图: