WebページからIEのホームページ(レジストリ)を変更する(JavaScriptバージョン)

VB6,VBA,VBS,EXCEL,DOS,BAT,WSH,WORDの小技メモ

HTML/ CSS/ CGI-Perl/ JavaScript/ JavaApplet/ AccessUp/ Internet/ EnglishLearn/ ちゃいちゃん天使/ 天使メッセージ/ 飯田ワールド/ 結城ワールド/ プロフィール/ WEB相談室/ WEBアンテナ/ 燈明日記/ Perlノート/ 漢字起源/ yahoo

はじめに

本ページは、ウインドウズ系全般のティプスメモです。

そう、はじめはVB系のティプスメモだったのですが…いつの間にか、ウインドウズ系全般のティプスメモになってしまいました。

ちなみに、ティプス(Tips)とは、マニュアルに書かれていない技法や裏わざのことですが、本ページでは、私が経験してこれはと思ったノウハウのメモになっています。

尚、以下は本サイトの最新情報(ブログ)です。

それでは、本ページが何かのお役に立てれば幸いです。ごゆっくりご覧ください。

2008-11-29 WebページからIEのホームページ(レジストリ)を変更する(JavaScriptバージョン)

時代はJavaScript・・・以前にVBScriptで組んだ以下を、JavaScriptでマイグレーション(書き換え)してみました。

ちなみに、以下は、WebページからIEのホームページ(レジストリ)を変更するスクリプトです。


留意点として、WebページからのActiveXObject使用なのでIEの警告メッセージがでます。

また、レジストリ操作スクリプトのお約束メッセージ『ご自分の責任でおこなってください』です。


◆ VBScriptのサンプルソース
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>WebページからIEのホームページ(レジストリ)を変更する</title>
</head>
<body>
<script language="VBScript">
chg_HomePage()
Function chg_HomePage()
    If msgbox("IEのホームページを現ページに変更します。よろしいですか?",1) = 1 then
        Set WshShell=CreateObject("WScript.Shell")
       'RegReadメソッドで、レジストリ内の指定キー(現ホームページ)の設定値を取得する
        msgbox("元のホームページ -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"))
        'レジストリ内の指定キーの設定値を第2引数に指定された値で更新。第3引数には、レジストリに格納する値のデータ型を指定する
        WshShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",document.location, "REG_SZ"
        msgbox("変更後のホームページ -> " & WshShell.RegRead("HKCU\Software\Microsoft\Internet Explorer\Main\Start Page"))
        Set WshShell = Nothing
    End If
End Function
</script>
</body>
</html>
http://d.hatena.ne.jp/chaichanPaPa/edit?date=20080219

◆ JavaScriptのサンプルソース
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>WebページからIEのホームページ(レジストリ)を変更する</title>
</head>
<body>
<script type="text/javascript">
chg_HomePage();
function chg_HomePage() {
    if (confirm("IEのホームページを現ページに変更します。よろしいですか?")) {
        var WshShell = new ActiveXObject("WScript.Shell");

        //RegReadメソッドで、レジストリ内の指定キー(現ホームページ)の設定値を取得する。
        alert("元のホームページ -> " + 
         WshShell.RegRead("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page"));
 
        //レジストリ内の指定キーの設定値を第2引数に指定された値で更新。
        //第3引数には、レジストリに格納する値のデータ型を指定する
        WshShell.RegWrite("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page",
                          document.location, "REG_SZ");

        //RegReadメソッドで、レジストリ内の指定キー(現ホームページ)の設定値を取得する。
        alert("変更後のホームページ -> " + 
         WshShell.RegRead("HKCU\\Software\\Microsoft\\Internet Explorer\\Main\\Start Page"));
        WshShell = null;
    }
}
</script>
</body>

◆ VBScriptからJavaScriptへのマイグレーションポイント

おわりに

以下のページには、すべてのTIPSがあります。もしよろしければ、どうぞ!

尚、ご感想、ご意見、誤字、脱字、間違い等がありましたら遠慮なくVB-TIPS掲示板へご指摘ください。