Windows Xpにて「タスクバーを自動的に隠す」機能ON/OFFの手順簡略化についての質問です。長時間の仕事に集中したいときにはタスクバーを消して仕事をしたいのですが、こまごまとした仕事を片付けているときには常にタスクバーが表示されている方が助かります。「スタート」メニューの右クリック、あるいはコントロールパネルの「タスクバーとスタートメニュー」からタスクバーのタブ＞「タスクバーを自動的に隠す」のチェックをONまたはOFFするという操作をなるべく少ないキーボード操作で実現したく思っています。Visual Basic Scriptなどでこの設定をトグルに変更できる簡単なプログラムソースを示していただけるとマウスを触らずにランチャーなどで一発で変更できるので助かります。有料ソフトを使わないという条件にてよろしくお願いします。

こんなプログラムを書いてみました。

適当なファイル名で拡張子をVBSとして保存してください。

Option Explicit
Dim shell, i
Set shell = CreateObject("WScript.Shell")
shell.Run("rundll32.exe shell32.dll,Options_RunDLL 1")
Do Until shell.AppActivate("タスク バー")
  Wscript.Sleep 100
  If i > 10 Then Wscript.Quit
  i = i + 1
Loop
shell.Sendkeys("%U{ENTER}")

仕掛けとしては、タスクバーのプロパティを開いて、「自動的に隠す」の設定ON/OFF切り替えて、プロパティを閉じています。

開いているウィンドウが多いと、切替に時間がかかることがあります。

----

「自動的に隠す」の設定を直接変更するAPIを探したが見つからない。無いのかも知れない。（設定を取得するAPIはある）

「自動的に隠す」の設定はレジストリに書かれているので、それを書き換える方法も試したけど、失敗した。（レジストリが書き換わったことをタスクバーに通知する方法がない。そのレジストリ項目はログイン時にしか読み取られないらしい）