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="请在这里输入所有要运行的程序"