デスクトップの背景を変更するスクリプト

ほとんどのユーザーは気づいていませんが、Microsoft はすべての Windows コンピュータに Visual Basic Sc​​ript 言語のコピーをインストールしています。このシンプルだが強力な言語により、デスクトップの背景の変更など、ユーザーまたは管理者がシステムで実行する必要があるほぼすべてのタスクを自動化できます。

テキスト エディター

Visual Basic スクリプトの作成は簡単です。必要なのは、Windows のメモ帳などの単純なテキスト エディターだけです。ただし、「.TXT」で終わる名前でファイルを保存する代わりに、「.VBS」で終わる名前でファイルを保存する必要があります。

スクリプト

以下をテキスト エディタに貼り付けます:

薄暗いシェル薄暗いユーザー

set shell =WScript.CreateObject("WScript.Shell") user =shell.ExpandEnvironmentStrings("%USERNAME%")

fso =CreateObject("Scripting.FileSystemObject") を設定

windowsDir =fso.GetSpecialFolder(0) 壁紙 ="c:\wallpaper.jpg"

shell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", 壁紙

shell.Run "%windowsDir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

ファイル「c:\wallpaper.jpg」を、使用したいデスクトップ背景のパスとファイル名に変更します。

実行方法

スクリプトを実行するには、ファイル拡張子 .VBS を付けて保存します。次に、他のプログラムを起動するときと同じように、デスクトップ上のアイコンをマウスでダブルクリックします。