标题: 求VBS模拟鼠标将音量图标放入任务栏、隐藏系统文件 [打印本页]
作者: cnds 时间: 2009-1-2 17:06 标题: 求VBS模拟鼠标将音量图标放入任务栏、隐藏系统文件
求一个模拟鼠标操作的VBS，将音量图标放入任务栏而不用重启。
另外求一个拟鼠标操作的VBS，将“隐藏受保护的操作系统文件”勾选。
───────────────── 版务记录 ─────────────────
执行：HAT
操作：[20098-01-02]在帖子标题中增加搜索关键字
说明：原标题"[求助]求一个模拟鼠标操作的VBS"不利于论坛搜索
处罚：扣除2点积分
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}[愤怒]那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
───────────────── 版务记录 ─────────────────
[ Last edited by cnds on 2009-1-4 at 23:15 ]
作者: tireless 时间: 2009-1-2 17:38
1.
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "rundll32 shell32.dll,Control_RunDLL MMSYS.CPL"
WScript.Sleep 1000
WshShell.SendKeys "i{ENTER}"
2.Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "rundll32 shell32.dll,Control_RunDLL MMSYS.CPL"
WScript.Sleep 1000
WshShell.SendKeys "i{ENTER}"
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced /v ShowSuperHidden /t REG_DWORD /d 0 /f
作者: cnds 时间: 2009-1-2 18:44
2楼的朋友厉害。第一个问题中，如果运行VBS时，不弹出来那个属性窗口，那就更好了。
作者: HAT 时间: 2009-1-2 18:50 标题: Re 3楼
你用鼠标操作的时候会不会弹出窗口呢？
作者: 77720666 时间: 2009-1-2 19:17
或者可以试试这个~不过需要重起explorer进程
REG ADD HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\SysTray /v Services /t REG_DWORD /d 31 /f
taskkill /f /im explorer.exe
start explorer.exe
taskkill /f /im explorer.exe
start explorer.exe