기 타 vbs 작성 오류 문의
2020.02.24 13:17
======================================================
FileExtension = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3\Settings"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(FileExtension)
If Check = 1 Then
Command1.RegWrite FileExtension, 30000000feffffff03000000030000003e00000028000000000000001004000080070000380400006000000001000000, "REG_BINARY"
Else
Command1.RegWrite FileExtension, 30000000feffffff02000000030000003e00000028000000000000001004000080070000380400006000000001000000, "REG_BINARY"
End If
Command1.SendKeys "{F5}"
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.AppActivate "Program Manager"
WSHShell.SendKeys "{F5}"
=======================================================
위와 같이 작업 표시줄 자동 숨기기를 vbs로 작성하였습니다.
그러나 아래와 같은 오류가 나타납니다.
수정 부탁드립니다.
아마 레지스트리 작성에 문제가 있는 것 같은데..
댓글 [4]
-
왕초보 2020.02.24 14:28
-
夜花 2020.02.24 15:25 레지스트리 값 읽어오는 구문 좀 알려 주시면 고맙겠습니다.
[1번]
strRegPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3\Settings"
Set objShell = CreateObject("WScript.Shell")
regKey = objShell.RegRead(strRegPath)
objShell.Popup regKey
[2번]
FileExtension = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects3\Settings"
Set Command1 = WScript.CreateObject("WScript.Shell")
regKey = Command1.RegRead(FileExtension)
Msgbox regKey
위 두개 모두 오류나네요...ㅠ.ㅠ
-
레마클로 2020.02.25 00:06 도움이 되실려나요?
Reg2Vbs v1.5a.vbs로 레지를 vbs로 변환 해봤는데 작동 잘됩니다.
-
레마클로 2020.02.25 22:45
-