标题: 【求助】qq提示音之没有办法的办法 [打印本页]
作者: kioskboy 时间: 2008-12-26 13:20 标题: 【求助】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 ]
作者: HAT 时间: 2008-12-26 13:24
要获取QQ路径，可在本版搜索“QQ”
参考：QQ自动登录小结
http://www.cn-dos.net/forum/viewthread.php?tid=33187
Q: 如何使用论坛的搜索功能来解决自己的问题？
A: 参考：http://www.cn-dos.net/forum/viewthread.php?tid=44122#pid308085
作者: kioskboy 时间: 2008-12-26 13:25
要接vbs的呀
作者: HAT 时间: 2008-12-26 13:26 标题: Re 3楼
vbs也可以全盘搜索
多看看《System Administration Scripting Guide.chm》
作者: kioskboy 时间: 2008-12-26 13:29
作者: kioskboy 时间: 2008-12-26 15:59
看了半天还是写不全啊
哪位帮下忙
作者: exzzz 时间: 2008-12-26 18:09
刚刚开始学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 ]("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
作者: rzxj 时间: 2008-12-26 18:32
好像没那么麻烦吧
作者: exzzz 时间: 2008-12-26 18:34
要是用WMIC+BAT的方法，就很容易搞定了，之前弄过，现在开始学VBS，要改改方法了。。。
作者: HAT 时间: 2008-12-26 18:46 标题: Re 9楼
《System Administration Scripting Guide.chm》里面不是有个现成的例子么？
作者: exzzz 时间: 2008-12-26 20:51
| Quote: | |
|
这本书下午在看，还没看到那里去，呵呵。慢慢学吧~
作者: kioskboy 时间: 2009-1-7 18:10
| Quote: | |
|
怎么弄呢？