繁体   English   中英

如何在Windows 7中隐藏任务栏?

[英]How to hide Taskbar in Windows 7?

我已经搜索并尝试了3天,但仍然无法仅隐藏Windows任务栏。 我努力了

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"QuickLaunchEnabled"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
"Shell"=REG_SZ:00000001

没有工作。 正确的方法是什么?

我们在与我签约的这家公司中有一个旧版应用程序,因此我们开发了.vbs登录脚本来执行此操作。 将其添加到登录脚本中,该脚本将隐藏该脚本,并且在用户重新登录时不会将其放回。

Wscript.Sleep 5000

' ***************************************************************************************
' AutoHideTaskbar.vbs   
' This script enables or disables the "Auto-Hide the taskbar" option by sending Alt+u key
' when the tray properties are been opened
' Modify the variable cSendKeyValue with any of the values below
' %l - Alt+l - Lock the taskbar
' %u - Alt+u - Auto-hide the taskbar
' %t - Alt+t - Keep the taskbar on top
' %g - Alt+g - Group similar taskbar buttons
' %q - Alt+q - Show Quick launch
' %k - Alt+k - Show the clock
' %h - Alt+h - Hide inactive icons
' ***************************************************************************************

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Wshshell = WScript.CreateObject("WScript.shell")
set fso = createobject("Scripting.FilesystemObject")
Set WshSysEnv = WshShell.Environment("system")
Set WshSysEnv2 = WshShell.Environment("PROCESS")

' CHECK TO SEE IF USER AUTO-HIDE ALREADY RUN AND SKIP IF SO TO NOT UNDO WHAT WAS SET
If fso.FileExists("C:" & WshSysEnv2("HOMEPATH") & "\autohide.txt") then
    WScript.Quit
        else

cSendKeyValue = "%u"        ' Alt+u = Auto-hide the taskbar 
Set WshShell = Wscript.CreateObject("Wscript.shell") 
Set oShell = CreateObject("Shell.Application") 
oShell.TrayProperties 

Wscript.Sleep 500 
WshShell.SendKeys cSendKeyValue                        

Wscript.Sleep 250 
WshShell.SendKeys "{ENTER}"           ' Enter to Close Properties 

Set oShell = Nothing 

strOutputFile = "C:" & WshSysEnv2("HOMEPATH") & "\autohide.txt"
            Set objFileSystem = CreateObject("Scripting.fileSystemObject")
            Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)
            objOutputFile.WriteLine("True")
            End If
            objOutputFile.Close
            Set objFileSystem = Nothing

WScript.Quit 

这个问题有点老了,但是我确实想发布一个解决方案(因为它显示在Google中)。 该用户制作了一个简洁的脚本,该脚本在Windows可执行文件中执行切换功能: http : //www.mim-sraga.hr/zvuk/toggleTaskbarAutohide.htm

非常方便,可以满足我的需求。 听起来对您来说也是个不错的解决方案。

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM