中国DOS联盟

我希望做一个vbs脚本，启动以后显示一个对话框，上面有“确定”和“取消”两个按钮，如果按确定则启动qq,如果按取消则退出

我是想把一些自启动的程序放到这里面，可以在系统启动的时候启动这个脚本，然后由我选择是启动还是不启动脚本里的程序，因为我的机器自启动的程序很多，所以启动比较慢，所以我想把除防火墙和杀软以外的程序都放到这里面，如果我想启动他们就启动，不想启动的话直接取消就行了，请各位达人帮忙

用msgbox方法即可。
不过楼主说有许多程序需要启动，建议用vb或着作成hta格式，因为有复选框

set ws=createobject("wscript.shell")
QQpath=ws.regread ("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ\Install")
a=msgbox("是否现在启动QQ？",vbyesno+vbquestion,"$$$夜七制作$$$")
if a=vbyes then
ws.run chr(34)&QQpath&"QQ.exe"&chr(34)
end if

谢谢楼上的两位，我试试3楼的方法

回二楼，因为本人是菜鸟一个，所以你说的方法我恐怕搞不定：（

搞定了，我综合了三楼达人的脚本和另外一个脚本，成功：）

呵呵，还可以往里面添加其他的程序


set ws=createobject("wscript.shell")

DIM objShell
set objShell=wscript.createObject("wscript.shell")


a=msgbox("是否现在启动QQ？",vbyesno+vbquestion,"程序启动")
if a=vbyes then
iReturn=objShell.Run("E:\Progra~1\***\QQ.exe", 2, TRUE)
end if

又有点新问题，为什么没办法往里面再添加一个程序？
可能是我弄错了，该怎么再添加一个程序阿？谢谢！

给你一个参考

set ws=createobject("wscript.shell")
cho=inputbox("请选择你要运行的程序："&chr(10)&_
"a-----运行QQ"&chr(10)&_
"b-----运行XX"&chr(10)&_
"C-----运行XX","$$$夜七制作$$$")
select case cho

case "a" path="C:\Program Files\Tencent\QQ\QQ.exe"

case "b" path="请在这里输入所有要运行的程序"

case "c" path="请在这里输入所有要运行的程序"

case else msgbox "无效的选择！",,"$$$夜七制作$$$"

end select
if cho="a" or cho="b" or cho="c" then
ws.run chr(34)&path&chr(34)
end if

谢谢，谢谢！太感谢了！
谢谢六楼的兄弟

帅哥，我的要求其实蛮简单的：）
就是我点击的时候出现一个MSGBOX，然后上面一个确定一个取消，按确定则启动5个启动，取消的话则退出。
可以帮我写一个吗？
很关键的问题是我不大会修改，只知道改一下程序的路径阿
谢谢！

这是我的程序，但是只能启动一个程序，请问怎样才能再添加其他的程序？
我总共需要启动5个程序

set ws=createobject("wscript.shell")

DIM objShell
set objShell=wscript.createObject("wscript.shell")


a=msgbox("是否现在启动？",vbyesno+vbquestion,"启动")
if a=vbyes then
iReturn=objShell.Run("E:\Progra~1\***\QQ.exe", 2, TRUE)
end if

set ws=createobject("wscript.shell")
cho=msgbox("是否运行程序：",vbyesno+vbquestion,"广告位招租！")

if cho=vbyes then
path1="C:\Program Files\Tencent\QQ\QQ.exe"
path2="请在这里输入所有要运行的程序"
path3="请在这里输入所有要运行的程序"
path4="请在这里输入所有要运行的程序"
path5="请在这里输入所有要运行的程序"

ws.run chr(34)&path1&chr(34)
ws.run chr(34)&path2&chr(34)
ws.run chr(34)&path3&chr(34)
ws.run chr(34)&path4&chr(34)
ws.run chr(34)&path5&chr(34)

end if

what a wonderful program!
it resolve a problem what has confused me for such a long time!

...
不好意思，今天刚考完cet6，考得晕晕乎乎：）

非常感谢！谢谢zhoushijay达人。