윈 도 우 작업표시줄 + 바탕화면 ON/OFF ( CTRL+SHIFT+Z )

수고 많으셨습니다. 감사합니다.

늘 애쓰시네요.

바탕화면만 토글형태로 구현할 수 있을까요?

수고하셨습니다. 어떤 용도로 사용하는 것인가요?

임시로 바탕화면을 잠그는? 숨기는? (보스키?) 기능인가요? 용도를 알면 시도 해보려구요. ^^

오전에 아래 코드를 완성하였는데 잘 안되는 부분이 있어서 못올렸습니다. ㅠㅠ

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 가 작동하지 않아서인지 안될듯 싶습니다.

whs.Run "nircmd sendkeypress rwin+d" 를 다음 코드로 대체하면 되는데 포스트잇 종류는 그냥 남아 있네요.ㅠㅠ

Set shl = CreateObject("Shell.Application")

shl.MinimizeAll : Set shl = nothing

중간에 에러나면 togglehide 가 문제가 생겨 다음처럼 바꿔보았습니다. TaskbarDesktopOff v2.vbs

데스크탑에 단축아이콘을 남기고 매번 핫키 Ctrl+Alt+b 로만 실행할 수 있겠습니다. TaskbarDesktopOff v3.vbs

스크립트 위치를 바꿔서 한번 실행하면 단축아이콘도 수정되어서 핫키 사용에 문제 없습니다.

공부 흔적으로 이정도까지만... ^^;

본문 내용중 다음 내용을 아래처럼 해봐도 될 것 같습니다. 저장장치 입력을 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

공부 삼아 글로만 해봤습니다. 실제 실행시 오류를 잡아야 할 수도 있습니다. ㅎ_ㅎ

제가 간과한 뭔가 있을수도 ???