스크립트 Windows 8.1을 통해 시간에 따라 바탕 화면 배경 변경

안녕하세요,이 웹 사이트를 처음 사용하기 때문에 틀린 형식으로 질문하지 않기를 바랍니다.

어쨌든 제목에 따르면 답변이있는 스레드 와 비슷한 문제 가 있지만 대답을했지만 테스트를 위해 Windows 8.1을 실행하려고 할 때 Windows 8.1을 실행하는 컴퓨터에서는 작동하지 않습니다. 나는 이미지가있는 곳으로 경로를 변경하여 지시를 따랐으며 그것이 작동하도록 또는 코드가 완벽하게 잘 작동하고 어쩌면 어딘가 엉망이 될지 궁금해하고있었습니다.

dim shell
Set shell = WScript.CreateObject("WScript.Shell")
wallpaper = "C:\path\to\wallpaper.jpg"
shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", wallpaper
shell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

또한 원래 코드를 시도했지만 시스템이 마지막 코드 줄에 지정된 파일을 찾을 수 없다는 오류가 발생합니다.

도움을 주시면 감사하겠습니다!

이것은 잘못된 답변이며 사용해서는 안됩니다.

이 스크립트는 그림을 마우스 오른쪽 버튼으로 클릭하고 "바탕 화면 배경으로 설정"을 누릅니다. 스크립트 사용법이 분명해야합니다 SetWallPaper "directory to picture", "filename of picture", "name context menu to run".

'File encoding should be in ANSI
SetWallPaper "C:\icons\", "Potato-icon.png", "Set as desktop &background"

Sub SetWallPaper(WallPaperFolder, WallpaperFile,VerbName)
dim objShell, objFolder, objFolderItem, objVerb, colVerbs
Set objShell = CreateObject("Shell.Application")
set objFolder=objShell.NameSpace(WallPaperFolder)
set objFolderItem=objFolder.ParseName(WallPaperFile)
set colVerbs=objFolderItem.Verbs
for each objVerb in colVerbs
    'msgbox objVerb ,0, "Press CTRL+C for copy text" 'uncomment for debug names in contextmenu
    if objVerb=VerbName then
        'x=msgbox(objVerb ,0, "omg found")
        objVerb.DoIt
        'Without the sleep command the change never takes effect on Win7.
        wscript.sleep(2000)
        wscript.quit
    end if
next
End Sub

그림을 마우스 오른쪽 버튼으로 클릭 할 때 Windows의 이름이 "바탕 화면 배경으로 설정"인 경우

• colVerbs의 각 objVerb마다 줄을 주석 해제해야합니다 (작은 따옴표 제거).
• 그런 다음 스크립트를 실행하고 해당 언어의 문자열 "데스크탑 및 배경으로 설정"과 같은 문자열을 찾은 다음 Ctrl + C를 눌러 메시지를 저장하십시오.
• 메모장을 열고 CTRL + V를 누르면 메시지가 붙여집니다. 이 이름을 스크립트에 복사하십시오.

이것을 기반으로

실수하지 않으면 Windows 7에서 최소한 작동합니다.