标题: 求一个vbs脚本，各位达人帮忙 [打印本页]
作者: viviseek 时间: 2007-6-18 07:48 标题: 求一个vbs脚本，各位达人帮忙
我希望做一个vbs脚本，启动以后显示一个对话框，上面有“确定”和“取消”两个按钮，如果按确定则启动qq,如果按取消则退出
我是想把一些自启动的程序放到这里面，可以在系统启动的时候启动这个脚本，然后由我选择是启动还是不启动脚本里的程序，因为我的机器自启动的程序很多，所以启动比较慢，所以我想把除防火墙和杀软以外的程序都放到这里面，如果我想启动他们就启动，不想启动的话直接取消就行了，请各位达人帮忙
作者: wudixin96 时间: 2007-6-18 08:46
用msgbox方法即可。
不过楼主说有许多程序需要启动，建议用vb或着作成hta格式，因为有复选框
作者: zhoushijay 时间: 2007-6-18 13:55
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
作者: viviseek 时间: 2007-6-18 15:48
谢谢楼上的两位，我试试3楼的方法
回二楼，因为本人是菜鸟一个，所以你说的方法我恐怕搞不定：（
作者: viviseek 时间: 2007-6-18 15:53
搞定了，我综合了三楼达人的脚本和另外一个脚本，成功：）
呵呵，还可以往里面添加其他的程序
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
作者: viviseek 时间: 2007-6-18 16:00
又有点新问题，为什么没办法往里面再添加一个程序？
可能是我弄错了，该怎么再添加一个程序阿？谢谢！
作者: zhoushijay 时间: 2007-6-19 11:40
给你一个参考
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
作者: viviseek 时间: 2007-6-22 06:04
谢谢，谢谢！太感谢了！
谢谢六楼的兄弟
作者: viviseek 时间: 2007-6-22 06:12
帅哥，我的要求其实蛮简单的：）
就是我点击的时候出现一个MSGBOX，然后上面一个确定一个取消，按确定则启动5个启动，取消的话则退出。
可以帮我写一个吗？
很关键的问题是我不大会修改，只知道改一下程序的路径阿
谢谢！
作者: viviseek 时间: 2007-6-22 06:22
这是我的程序，但是只能启动一个程序，请问怎样才能再添加其他的程序？
我总共需要启动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
作者: zhoushijay 时间: 2007-6-23 13:35
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
作者: viviseek 时间: 2007-6-23 20:30
what a wonderful program!
it resolve a problem what has confused me for such a long time!
...
不好意思，今天刚考完cet6，考得晕晕乎乎：）
非常感谢！谢谢zhoushijay达人。