中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 【求助】qq提示音之没有办法的办法
作者:
标题: 【求助】qq提示音之没有办法的办法 上一主题 | 下一主题
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
状态 离线
『第 2 楼』:  

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



2008-12-26 13:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
kioskboy
初级用户





积分 153
发帖 103
注册 2008-3-27
状态 离线
『第 3 楼』:  

要接vbs的呀

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
状态 离线
『第 8 楼』:  

好像没那么麻烦吧

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
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023