|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『楼 主』:
【求助】qq提示音之没有办法的办法
有时也要到网吧去上网，感觉带耳机时，qq提示音麻烦，
在QQ个人设置里面设置麻烦，所以求个脚本，双击就可以了
我原以为QQ个人设置 里的 不开启提示音 可以在注册表里搞定，好象不可以；qq目录下的配置文件，可以用记事本改动的都不行。
所以只好把qq目录下 sound文件夹(sound目录就在qq目录的根目录下) 下文件的全部删除了
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("Select * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM
QQCMD=ps.commandline '提取QQ程序的命行
wscript.echo QQCMD
end if
next
提取qq.exe路径后再怎么搞，写了半天，老错误，郁闷了
麻烦大家帮我写完整
[ Last edited by kioskboy on 2008-12-26 at 13:35 ]
|
|
 2008-12-26 13:20 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
|
|
2008-12-26 13:24 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
|
|
2008-12-26 13:25 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
4 楼』:
Re 3楼
vbs也可以全盘搜索
多看看《System Administration Scripting Guide.chm》
|
 |
|
|
2008-12-26 13:26 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
5 楼』:
 
|
|
|
2008-12-26 13:29 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
6 楼』:
看了半天还是写不全啊
哪位帮下忙
|
|
|
2008-12-26 15:59 |
|
|
exzzz
初级用户
游手好闲 + 无所事事 ..
积分 194
发帖 167
注册 2007-4-30
状态 离线
|
『第
7 楼』:
刚刚开始学vbs，花了我一个钟头时间。。。。汗一个
中间那一段就是我修改的地方，通过替换路径中的查询词为空得到的路径，然后改名SOUND 为NOsound，还是不要删除吧，或许你还有用的上的时候。。。
请教：
VBS下怎么样根据进程名获取路径？例如获取QQ.EXE的路径为 d:\qq2008\
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("Select * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
if lcase(ps.name)="qq.exe" or lcase(ps.name)="tm.exe" then '检测是否QQ或TM
qqpath=Replace(ps.ExecutablePath,ps.name,"")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFolder qqpath&"sound" , qqpath&"NOsound"
End If
Next [ Last edited by exzzz on 2008-12-26 at 18:13 ]
|
|
|
2008-12-26 18:09 |
|
|
rzxj
新手上路
积分 1
发帖 1
注册 2008-12-4
状态 离线
|
|
|
2008-12-26 18:32 |
|
|
exzzz
初级用户
游手好闲 + 无所事事 ..
积分 194
发帖 167
注册 2007-4-30
状态 离线
|
『第
9 楼』:
要是用WMIC+BAT的方法，就很容易搞定了，之前弄过，现在开始学VBS，要改改方法了。。。
|
|
|
2008-12-26 18:34 |
|
|
HAT
版主
积分 9023
发帖 5017
注册 2007-5-31
状态 离线
|
『第
10 楼』:
Re 9楼
《System Administration Scripting Guide.chm》里面不是有个现成的例子么？
|
|
|
|
2008-12-26 18:46 |
|
|
exzzz
初级用户
游手好闲 + 无所事事 ..
积分 194
发帖 167
注册 2007-4-30
状态 离线
|
『第
11 楼』:
| Quote: | Originally posted by HAT at 2008-12-26 06:46 PM:
《System Administration Scripting Guide.chm》里面不是有个现成的例子么？ |
|
这本书下午在看，还没看到那里去，呵呵。慢慢学吧~
|
|
|
2008-12-26 20:51 |
|
|
kioskboy
初级用户
积分 153
发帖 103
注册 2008-3-27
状态 离线
|
『第
12 楼』:
| Quote: | Originally posted by exzzz at 2008-12-26 06:34 PM:
要是用WMIC+BAT的方法，就很容易搞定了，之前弄过，现在开始学VBS，要改改方法了。。。 |
|
怎么弄呢？
|
|
|
2009-1-7 18:10 |
|
