윈 도 우 작업표시줄 + 바탕화면 ON/OFF ( CTRL+SHIFT+Z )
2020.03.04 17:44
퐁퐁 2kg님 자료와 내용은 중복일 수 있습니다.
https://windowsforum.kr/gallery/12976240
작업표시줄 + 바탕화면 ON/OFF Toggle
---> 바탕화면에 바로가기, 단축키생성(CTRL+SHIFT+Z)
CTRL+SHIFT+TAB으로 하시려면 빨간부분을 수정하세요...
댓글에 지후아빠님의 TaskbarDesktopOff v2.vbs, TaskbarDesktopOff v3.vbs가
깔끔합니다. 많이 이용 해주세요....
-----------------
Set WshShell = CreateObject("Wscript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
DesktopPath = WshShell.SpecialFolders("Desktop")
strwinDir =WshShell.ExpandEnvironmentStrings("%windir%")
Set AddONfile= FSO.CreateTextFile(strwinDir & "\on.vbs", 8)
AddONfile.WriteLine "Set WshShell = Wscript.CreateObject(""Wscript.shell"")"
AddONfile.WriteLine "WshShell.Run ""nircmd win togglehide class Shell_TrayWnd"""
AddONfile.WriteLine "WshShell.Run ""nircmd win togglehide class progman"""
AddONfile.WriteLine "WScript.Quit"
AddONfile.Close
Set Link = WshShell.CreateShortcut(DesktopPath & "\OnOff.lnk")
Link.TargetPath = "C:\Windows\on.vbs"
Link.Arguments = ""
Link.Description = "OnOff"
Link.HotKey = "CTRL+SHIFT+Z"
Link.WindowStyle = 3
Link.WorkingDirectory = "C:\Windows"
Link.IconLocation = "C:\Windows\System32\SHELL32.dll, 47"
Link.Save
'WshShell.Run "nircmd sendkeypress rwin+d"
'WshShell.Run "nircmd sendkeypress rwin+alt+d"
'WshShell.Run "nircmd win togglehide class Shell_TrayWnd"
'WshShell.Run "nircmd win togglehide class progman"
WScript.Quit
-----------------
*winkey+d 하면 바탕화면 보임(작업표시줄은 안보임)
마우스로 문서 열기나 프로그램실행 가능, 실행후 다시 바탕화면 사라짐
문서나 실행한 프로그램은 창유지 됨
잠겼을때 마우스기능은 더블클릭(시작버튼)만 가능.
댓글 [20]
-
cungice 2020.03.04 19:08
-
오이도행 2020.03.04 21:07
늘 애쓰시네요.
바탕화면만 토글형태로 구현할 수 있을까요?
-
레마클로 2020.03.04 21:12 -
오이도행 2020.03.05 08:25
감사합니다.
실행해 보니 바탕화면에 있는 아이콘만 없어졌다가 나타나는군요,
아이콘은 그대로 있고 화면에 열린 창들만 최소화 했다가 복귀하는 형태는 어려울까요?
-
멀더는외계인 2020.03.05 09:28
혹시 "Win + D" 단축키 기능으로 없앴다가 다시 나타나는 기능말하는건가요?
-
오이도행 2020.03.05 10:07
예, 바로 그겁니다.
이걸 토글 형식으로 만들 수 있을까요?
키보드에서는 잘 되지만 bat나 vbs에서도 되는지요.(if문으로는 안되겠지요?)
-
레마클로 2020.03.05 12:38 '작업창 모두 최소화/복귀
Set WshShell = CreateObject("Wscript.shell")
WshShell.Run "nircmd sendkeypress rwin+d"
WScript.Quit
-
지후빠 2020.03.05 11:26
수고하셨습니다. 어떤 용도로 사용하는 것인가요?
임시로 바탕화면을 잠그는? 숨기는? (보스키?) 기능인가요? 용도를 알면 시도 해보려구요. ^^
-
레마클로 2020.03.05 12:35 큰 의미는 없어 보이지만
잠깐 자리 비울때 사용하는 것도 괞찬아보입니다.
잠그고 가능한것은 winkey,win+e,wink+d,win+s,win+r...
잠그고 안되는거 마우스,win+n[1~0]
작업표시줄은 잠기고,시작버튼은 열려있고.............
-
레마클로 2020.03.05 13:43 바탕화면에 바로가기 만들고 단축키 넣으면 해결될것 같네요.
일단 만들어 올렸습니다..
-
지후빠 2020.03.05 18:30
오전에 아래 코드를 완성하였는데 잘 안되는 부분이 있어서 못올렸습니다. ㅠㅠ
1. WshShell.Run "nircmd sendkeypress rwin+d" 가 단독 실행할 때는 문제 없는데 아래 코드와 같이 사용할때는 바탕화면이 남아있습니다.
2. WshShell.Run "nircmd sendkeypress rwin+alt+d" 이 것도 win + alt + d 눌러도 반응이 없습니다. (윈10 2015 LTSB 입니다.)
Set fso = CreateObject("Scripting.FileSystemObject")
Set whs = CreateObject("Wscript.shell")
link = whs.SpecialFolders("Desktop") & "\nircmd_bosskey.lnk"
If (fso.FileExists(link)) Then
fso.DeleteFile(link)
Else
Set lnk = whs.CreateShortcut(link)
lnk.TargetPath = WScript.ScriptFullName
lnk.Hotkey = "Ctrl+Alt+b"
lnk.Save : Set lnk = Nothing
End If
whs.Run "nircmd sendkeypress rwin+d" '이 코드가 잘 안먹어요.
whs.Run "nircmd win togglehide class Shell_TrayWnd"
whs.Run "nircmd win togglehide class progman"
Set fso = Nothing
Set whs = Nothing
테스트 한번 부탁드립니다.
집에서는 다음과 같이 하였더니 작동합니다. TaskbarDesktopOff v1.vbs
근데 사무실에서는 win+alt+d 가 작동하지 않아서인지 안될듯 싶습니다.
-
지후빠 2020.03.05 18:49
whs.Run "nircmd sendkeypress rwin+d" 를 다음 코드로 대체하면 되는데 포스트잇 종류는 그냥 남아 있네요.ㅠㅠ
Set shl = CreateObject("Shell.Application")
shl.MinimizeAll : Set shl = nothing
-
레마클로 2020.03.05 20:09 지후아빠님 첨부파일은 저도 안됩니다(첨부파일 수정이 안되는군요. utf8)
메모장이나 탐색기열면 바탕화면이 사라집니다.
아래 파일 실행으론 nircmd sendkeypress rwin+d 먹힙니다.
-
지후빠 2020.03.05 22:02
-
레마클로 2020.03.05 22:21 v2는 정상작동합니다.^^
-
지후빠 2020.03.05 22:35
데스크탑에 단축아이콘을 남기고 매번 핫키 Ctrl+Alt+b 로만 실행할 수 있겠습니다. TaskbarDesktopOff v3.vbs
스크립트 위치를 바꿔서 한번 실행하면 단축아이콘도 수정되어서 핫키 사용에 문제 없습니다.
공부 흔적으로 이정도까지만... ^^;
-
지후빠 2020.03.05 23:00
본문 내용중 다음 내용을 아래처럼 해봐도 될 것 같습니다. 저장장치 입력을 1번으로 줄일수 있어서... ㅋ
Set AddONfile= FSO.CreateTextFile(strwinDir & "\on.vbs", 8)
AddONfile.WriteLine "Set WshShell = Wscript.CreateObject(""Wscript.shell"")"
AddONfile.WriteLine "WshShell.Run ""nircmd win togglehide class Shell_TrayWnd"""
AddONfile.WriteLine "WshShell.Run ""nircmd win togglehide class progman"""
AddONfile.WriteLine "WScript.Quit"
AddONfile.Close
onContent = "Set WshShell = WScript.CreateObject(""WScript.Shell"")" & vbCrLf & _
"WshShell.Run ""nircmd win togglehide class Shell_TrayWnd""" & vbCrLf & _
"WshShell.Run ""nircmd win togglehide class progman""" & vbCrLf & _
"Set WshShell = Nothing" & vbCrLf & "WScript.Quit"
Set ONfile = FSO.CreateTextFile(strwinDir & "\on.vbs", True) : ONfile.Write onContent : ONfile.Close : Set ONfile = Nothing
공부 삼아 글로만 해봤습니다. 실제 실행시 오류를 잡아야 할 수도 있습니다. ㅎ_ㅎ
제가 간과한 뭔가 있을수도 ???
-
레마클로 2020.03.06 00:49 이상없이 잘 됩니다.
고맙습니다.^^
-
지후빠 2020.03.06 07:56
주제 넘게 죄송합니다. ㅠㅠ
-
레마클로 2020.03.06 08:59 별 말씀을...
필요 할때 지원 요청 많을 수도 있습니다.^^
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
4409 | 기 타| VMWare Workstation@Hybrid CPU 성능 문제 해결책 [3] | DarknessAn | 976 | 6 | 11-20 |
4408 | 소프트웨어| AutoCAD 캐드 설치가 안 될 때.... 한번해보세요.... 전 3... [6] | Alpha | 2423 | 11 | 11-17 |
4407 | 소프트웨어| PECMD CMPA 복호화 [13] | sunshine | 1335 | 24 | 11-15 |
4406 | 소프트웨어| Nsis 패킹 파일에서 .nsi 스크립트 추출하기 [7] | sunshine | 580 | 16 | 11-14 |
4405 | 소프트웨어| WinNTSetup 설정값을 저장하여 기본값으로 사용하기 [18] | 무월 | 2198 | 43 | 11-06 |
4404 | 윈 도 우| 윈도우11 22h2 빌드 이상에서 구형 cpu 성능분배 버그 해결... [2] | 내가와따ooo | 5143 | 12 | 10-26 |
4403 | 윈 도 우| 배치파일을 이용해서 윈도우 자동 설치하기 [22] | gooddew | 4887 | 70 | 10-16 |
4402 | 윈 도 우| [실사] 단일 SSD(HDD)에서 윈도우 설치 하기! [20] | 무월 | 3899 | 45 | 10-14 |
4401 | 소프트웨어| 크롬/엣지에서 URL 드래그 드롭으로 제목 얻기 (ver 0.2.3,... [14] | 메리아 | 1269 | 21 | 10-13 |
4400 | 윈 도 우| [실사] VHD 교차부팅 수동&자동 등록 [18] | 무월 | 1955 | 32 | 10-07 |
4399 | 소프트웨어| EDGE 브라우저 창 크기 "최대화" 고정 하기 [1] | 미스라 | 1454 | 6 | 10-03 |
4398 | 윈 도 우| [갱신] 윈도우 11 로컬 계정 암호 변경 [14] | 무월 | 2223 | 18 | 09-27 |
4397 | 소프트웨어| 테라카피(Teracopy) 3.12 설치팁 [7] | 메리아 | 2283 | 17 | 09-27 |
4396 | 소프트웨어| PDF-XChange Editor 기본글꼴 바꾸기 [1] | 코리아선비 | 872 | 3 | 09-25 |
4395 | 윈 도 우| Windows 11에서 광고 팝업을 끄는 방법 [5] | VᴇɴᴜꜱGɪ | 3022 | 8 | 09-22 |
4394 | 소프트웨어| [포토샵] 인물 누끼따기 외곽선 정리 [12] | 무월 | 2521 | 37 | 09-20 |
4393 | 윈 도 우| 윈도우 11 로컬 계정 암호 재설정 [15] | 무월 | 1750 | 29 | 09-18 |
4392 | 윈 도 우| 윈도우11 에서 창 깜박거림이나 입력글자가 사라지는 경우 [5] | Named | 1534 | 2 | 09-14 |
4391 | 소프트웨어| PE 동영상 썸네일 표시 [3] | 히이이잌 | 668 | 16 | 09-14 |
4390 | 모 바 일| [팁] 카톡 '전화번호로 친구 추가 허용' 기능 추가 [2] | asklee | 1579 | 4 | 09-13 |
수고 많으셨습니다. 감사합니다.