'「勝手にビューア」のメインウインドウの位置を左上に変更するスクリプト 'メインウインドウの位置を変更できなくなってしまった時にどうぞ。 'Windows Script がインストールされていないと当然動きません。 'Windows Script 5.5 は次のURLからダウンロードできるようです。 'http://www.microsoft.com/msdownload/vbscript/scripting.asp?id=25 '作成者:どぼん! http://dobon/net 'Version 1.0 Dim WshShell, s Set WshShell = WScript.CreateObject("WScript.Shell") s = WshShell.RegRead("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\勝手にビューア\Main\Left") If Len(s) = 0 Then MsgBox "「勝手にビューア」はインストールされていません。", 48, "失敗" WshShell.RegWrite "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\勝手にビューア\Main\Left", "0", "REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Software\VB and VBA Program Settings\勝手にビューア\Main\Top", "0", "REG_SZ" MsgBox "「勝手にビューア」のウインドウ位置の書き換えに成功しました。", 64, "結果報告"