用vbscript实现隐藏任务栏图标的脚本
2008-06-20 19:32
1586 查看
Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers
Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Notification Icons are now "
t = "Confirmation"
Err.Clear
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers
Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayItemsDisplay"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Notification Icons are now "
t = "Confirmation"
Err.Clear
n = WSHShell.RegRead (p)
errnum = Err.Number
if errnum <> 0 then
WSHShell.RegWrite p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If
相关文章推荐
- WIN10隐藏任务栏和桌面图标(简易实现)
- windows/mfc实现窗口隐藏同时 在任务栏上无图标显示功能
- 浅谈c#实现隐藏任务栏图标的Windows托盘程序
- C#实现系统托盘,C#窗体最小化时隐藏为任务栏图标
- C#实现系统托盘,C#窗体最小化时隐藏为任务栏图标的Window appllication
- 隐藏窗口和任务栏图标的实现
- C#实现系统托盘,C#窗体最小化时隐藏为任务栏图标
- Flex:如何实现利用Flex隐藏任务栏图标
- winform实现任务栏隐藏、通知栏图标及右键、类似QQ隐藏窗体等功能
- 浅谈c#实现隐藏任务栏图标的Windows托盘程序
- C#实现系统托盘,C#窗体最小化时隐藏为任务栏图标
- 浅谈c#实现隐藏任务栏图标的Windows托盘程序
- [2月22日的脚本] 在Windows 8中向上下文菜单添加“显示/隐藏 隐藏文件夹” (VBScript)
- C#编写最小化时隐藏为任务栏图标的Window appllication
- C#:实现托盘(任务栏图标与托盘图标互斥)
- SWT实现任务栏图标(系统托盘),带菜单和ToolTip
- C#编写最小化时隐藏为任务栏图标的Window appllication.
- VC 单文档程序 隐藏程序及任务栏图标
- 如何隐藏QT窗口在任务栏(taskbar)的任务图标
- C#编写最小化时隐藏为任务栏图标的Window appllication(转)