윈 도 우 작업표시줄자동숨김 on/off
2020.02.27 20:46
https://windowsforum.kr/qna/12910136
윗 글에 대한 답변 입니다.
고수님들이 답변 해야 할 것을 부족한 사람이 하려니 힘드네요(?)
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3]
@=""
"Settings"=hex:30,00,00,00,fe,ff,ff,ff,03,10,00,00,03,00,00,00,3e,00,00,00,28,\
00,00,00,00,00,00,00,10,04,00,00,80,07,00,00,38,04,00,00,60,00,00,00,01,00,\
00,00
02 <-->03
const HKEY_CURRENT_USER = &H80000001
Set WSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
curDir = objFSO.GetParentFolderName(WScript.ScriptFullName)
strREfile = curDir & "\RestartExplorer.exe"
strComputer = "."
Set regObj=GetObject( _
"winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3"
'-------- array elements starts from 0 ~
regObj.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
'-------- Changing value
'bArray(8) = 7
'regObj.SetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
if bArray(8) = 2 then
WSHShell.Run("regedit.exe /s 작업표시줄자동숨김on.reg"), 0, True
wscript.echo "작업표시줄자동숨김해요. ^^"
else
WSHShell.Run("regedit.exe /s 작업표시줄자동숨김off.reg"), 0, True
wscript.echo "작업표시줄자동숨김 안해요. ^^"
End If
WSHShell.Run Chr(34) & strREfile & Chr(34), 1
Set WSHShell = Nothing
댓글 [10]
-
夜花 2020.02.27 21:15 -
레마클로 2020.02.27 21:23 '-------- Changing value
'bArray(8) = 3
'regObj.SetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
하세요.
식당들 죽을 맛입니다.
-
夜花 2020.02.27 21:28 한개의 파일로 묶을 수는 없는지요?
7sfx 사용 단일 파일로 처리해야 하나...
-
레마클로 2020.02.27 22:08 const HKEY_CURRENT_USER = &H80000001
Set WSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
curDir = objFSO.GetParentFolderName(WScript.ScriptFullName)
strREfile = curDir & "\RestartExplorer.exe"
strComputer = "."
Set regObj=GetObject( _
"winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3"
regObj.GetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
if bArray(8) = 2 then
bArray(8) = 3
regObj.SetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
wscript.echo "작업표시줄자동숨김해요. ^^"
else
bArray(8) = 2
regObj.SetBinaryValue HKEY_CURRENT_USER, strKeyPath, "Settings", bArray
wscript.echo "작업표시줄자동숨김 안해요. ^^"
End If
WSHShell.Run Chr(34) & strREfile & Chr(34), 1
Set WSHShell = Nothing
단일파일 작업은 직접하세요^^
-
지후빠 2020.02.27 23:34
레마클로님 잠깐 사이에 추가로 올리셨네요? 공부겸 정리해서 왔는데.. ^^;
야화님이 원하시는 단일화가 이런 것인가요? 검색해서 Vbscript Only로 정리해보았습니다.
좀 더 정리했습니다. TaskbarHideToggle.vbs
-
夜花 2020.02.27 23:39 WoW~!
잘 동작하네요.
감사합니다.
ps:
실행하면 열려있던 탐색기 창이 사라지네요.
explorer 새로 고침하면서 정리가 되는 것 같습니다.
그냥 두고 테스크바만 없어졌다 나타나고하면 좋을텐데...
어렵겠죠?
-
레마클로 2020.02.28 00:00 Restart Explorer v1.4 이게 필요합니다.
-
지후빠 2020.02.28 09:20
Restart Explorer v1.4 을 사용하는 이유가 있었군요. ^^
창 개수와 창 위치를 저장하는 공부 좀 해야 될 것 같습니다. ㅎ_ㅎ
-
레마클로 2020.02.28 17:27 구글 검색 해보니
실행중인 프로세스를 리스트화 했다가
재실행 해주는 스크립트가 있었던 것도 같습니다.
-
레마클로 2020.02.28 00:02 깔끔합니다^^.
아낌없는 지식 나눔에 감사드립니다.
오토잇으로는 간단하게 처리가 되는데...
오토잇은 바이러스 오진을 벗어 날 수가 없어...
vbscript는 무뇌안이라 도움을 청했더니
이렇게 복잡하네요.