中国DOS联盟

有时也要到网吧去上网，感觉带耳机时，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 ]

要获取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

要接vbs的呀

vbs也可以全盘搜索
多看看《System Administration Scripting Guide.chm》

看了半天还是写不全啊
哪位帮下忙

刚刚开始学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 ]

好像没那么麻烦吧

要是用WMIC+BAT的方法，就很容易搞定了，之前弄过，现在开始学VBS，要改改方法了。。。

《System Administration Scripting Guide.chm》里面不是有个现成的例子么？

Originally posted by HAT at 2008-12-26 06:46 PM:
《System Administration Scripting Guide.chm》里面不是有个现成的例子么？

这本书下午在看，还没看到那里去，呵呵。慢慢学吧~

Originally posted by exzzz at 2008-12-26 06:34 PM:
要是用WMIC+BAT的方法，就很容易搞定了，之前弄过，现在开始学VBS，要改改方法了。。。

怎么弄呢？