윈 도 우 작업표시줄자동숨김 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 깔끔합니다^^.
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
4400 | 윈 도 우| [실사] VHD 교차부팅 수동&자동 등록 [18] | 무월 | 1975 | 32 | 10-07 |
4399 | 소프트웨어| EDGE 브라우저 창 크기 "최대화" 고정 하기 [1] | 미스라 | 1482 | 6 | 10-03 |
4398 | 윈 도 우| [갱신] 윈도우 11 로컬 계정 암호 변경 [14] | 무월 | 2244 | 18 | 09-27 |
4397 | 소프트웨어| 테라카피(Teracopy) 3.12 설치팁 [7] | 메리아 | 2318 | 17 | 09-27 |
4396 | 소프트웨어| PDF-XChange Editor 기본글꼴 바꾸기 [1] | 코리아선비 | 890 | 3 | 09-25 |
4395 | 윈 도 우| Windows 11에서 광고 팝업을 끄는 방법 [5] | VᴇɴᴜꜱGɪ | 3100 | 8 | 09-22 |
4394 | 소프트웨어| [포토샵] 인물 누끼따기 외곽선 정리 [12] | 무월 | 2555 | 37 | 09-20 |
4393 | 윈 도 우| 윈도우 11 로컬 계정 암호 재설정 [15] | 무월 | 1778 | 29 | 09-18 |
4392 | 윈 도 우| 윈도우11 에서 창 깜박거림이나 입력글자가 사라지는 경우 [5] | Named | 1558 | 2 | 09-14 |
4391 | 소프트웨어| PE 동영상 썸네일 표시 [3] | 히이이잌 | 674 | 16 | 09-14 |
4390 | 모 바 일| [팁] 카톡 '전화번호로 친구 추가 허용' 기능 추가 [2] | asklee | 1597 | 4 | 09-13 |
4389 | 윈 도 우| Microsoft는 최근 Windows 11 WinRE 업데이트가 실패한 이... [2] | VᴇɴᴜꜱGɪ | 1497 | 4 | 09-10 |
4388 | 윈 도 우| 바로가기 아이콘을 만들어 원 클릭으로 디펜더 온 오프 메... [8] | heykevin | 1298 | 20 | 09-09 |
4387 | 소프트웨어| 64bit 프로그램 한글화 강좌 [4] | 夕影 | 1757 | 7 | 09-09 |
4386 | 소프트웨어| [엑셀] 선택된 셀, 행, 열 강조 하기! [13] | 무월 | 2561 | 28 | 08-31 |
4385 | 소프트웨어| Microsoft Edge를 사용하여 YouTube 스크린샷을 찍는 방법 [3] | Security_Z | 1347 | 5 | 08-30 |
4384 | 윈 도 우| [실사] 윈도우 11 VHD 교차부팅(자동) 설정 - VHDMan [16] | 무월 | 1952 | 35 | 08-26 |
4383 | 소프트웨어| Microsoft Edge IE모드 구성하기 [10] | 무월 | 1837 | 22 | 08-26 |
4382 | 윈 도 우| [3탄] PE빌드를 위한 누적 업데이트 통합 (Winre.wim + ins... [14] | 무월 | 1275 | 26 | 08-25 |
4381 | 윈 도 우| 텍스트 파일 하위 폴더 파일 포함 병합하기! [11] | 무월 | 820 | 27 | 08-23 |
아낌없는 지식 나눔에 감사드립니다.
오토잇으로는 간단하게 처리가 되는데...
오토잇은 바이러스 오진을 벗어 날 수가 없어...
vbscript는 무뇌안이라 도움을 청했더니
이렇게 복잡하네요.