|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『楼 主』:
求一个vbs脚本，各位达人帮忙
我希望做一个vbs脚本，启动以后显示一个对话框，上面有“确定”和“取消”两个按钮，如果按确定则启动qq,如果按取消则退出
我是想把一些自启动的程序放到这里面，可以在系统启动的时候启动这个脚本，然后由我选择是启动还是不启动脚本里的程序，因为我的机器自启动的程序很多，所以启动比较慢，所以我想把除防火墙和杀软以外的程序都放到这里面，如果我想启动他们就启动，不想启动的话直接取消就行了，请各位达人帮忙
|
|
 2007-6-18 07:48 |
|
|
wudixin96
银牌会员
积分 1928
发帖 931
注册 2007-1-6
状态 离线
|
『第
2 楼』:
用msgbox方法即可。
不过楼主说有许多程序需要启动，建议用vb或着作成hta格式，因为有复选框
|
|
|
2007-6-18 08:46 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
3 楼』:
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
|
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a> |
|
|
2007-6-18 13:55 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
4 楼』:
谢谢楼上的两位，我试试3楼的方法
回二楼，因为本人是菜鸟一个，所以你说的方法我恐怕搞不定：（
|
|
|
2007-6-18 15:48 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
5 楼』:
搞定了，我综合了三楼达人的脚本和另外一个脚本，成功：）
呵呵，还可以往里面添加其他的程序
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
|
|
|
2007-6-18 15:53 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
6 楼』:
又有点新问题，为什么没办法往里面再添加一个程序？
可能是我弄错了，该怎么再添加一个程序阿？谢谢！
|
|
|
2007-6-18 16:00 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
7 楼』:
给你一个参考
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
|
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a> |
|
|
2007-6-19 11:40 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
8 楼』:
谢谢，谢谢！太感谢了！
谢谢六楼的兄弟
|
|
|
2007-6-22 06:04 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
9 楼』:
帅哥，我的要求其实蛮简单的：）
就是我点击的时候出现一个MSGBOX，然后上面一个确定一个取消，按确定则启动5个启动，取消的话则退出。
可以帮我写一个吗？
很关键的问题是我不大会修改，只知道改一下程序的路径阿
谢谢！
|
|
|
2007-6-22 06:12 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
10 楼』:
这是我的程序，但是只能启动一个程序，请问怎样才能再添加其他的程序？
我总共需要启动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
|
|
|
2007-6-22 06:22 |
|
|
zhoushijay
高级用户
Autowalk
积分 845
发帖 375
注册 2007-3-3
状态 离线
|
『第
11 楼』:
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
|
你好，脚本专家！
<a target=blank href=tencent://message/?uin=29654761&Site=www.111.com&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:29654761:5 alt="点击这里给我发消息"></a> |
|
|
2007-6-23 13:35 |
|
|
viviseek
新手上路
积分 18
发帖 8
注册 2007-6-17
状态 离线
|
『第
12 楼』:
what a wonderful program!
it resolve a problem what has confused me for such a long time!
...
不好意思，今天刚考完cet6，考得晕晕乎乎：）
非常感谢！谢谢zhoushijay达人。
|
|
|
2007-6-23 20:30 |
|
