IEのホーム・タイトルを設定          <TOP>

インターネットエクスプローラの「ホーム」および「タイトル」を設定します。

RegCreateKey レジストリキーを作成

RegCloseKey レジストリのハンドルを解放

RegSetValueEx レジストリキーの値を設定

　

URLおよびタイトルを入力し、「設定」をクリックします。画面上の変化はありませんが、レジストリエディタで書き換わっていることを確認しています。

IEを再起動すると書き換わっているのが確認できます。

レジストリエディタで確認

　

'================================================================
'= IEのホームを設定
'=    (IEStartPage.bas)
'================================================================
#include "Windows.bi"

' レジストリキーを作成
Declare Function Api_RegCreateKey& Lib "advapi32" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpSubKey$, phkResult&)

' レジストリのハンドルを解放
Declare Function Api_RegCloseKey& Lib "advapi32" Alias "RegCloseKey" (ByVal hKey As Long)

' レジストリキーの値を設定
Declare Function Api_RegSetValueEx& Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey&, ByVal lpValueName$, ByVal Reserved&, ByVal dwType&, lpData As Any, ByVal cbData&)

#define REG_SZ 1                        '文字列型
#define HKEY_CURRENT_USER -2147483647   '現在Windowsにログインしているユーザーの情報
#define ERROR_SUCCESS 0                 '正常終了の戻り値を示す

Var Shared Text(1) As Object
Var Shared Edit(1) As Object
Var Shared Button1 As Object
For i = 0 To 1
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1))) : Text(i).SetFontSize 14
    Edit(i).Attach GetDlgItem("Edit" & Trim$(Str$(i + 1))) : Edit(i).SetFontSize 14
Next
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub IEStartURL(URL As String, Title As String)
Sub IEStartURL(URL As String, Title As String)
    Var hKey As Long
    Var RPath As String
    Var Ret As Long

    RPath = "Software\Microsoft\Internet Explorer\Main"
    
    Ret = Api_RegCreateKey(HKEY_CURRENT_USER, RPath, hKey)

    If Ret = ERROR_SUCCESS Then
        Ret = Api_RegSetValueEx(hKey, "Start Page", 0, REG_SZ, URL, Len(URL))
        Ret = Api_RegCloseKey(hKey)
    End If

    Ret = Api_RegCreateKey(HKEY_CURRENT_USER, RPath, hKey)
    If Ret = ERROR_SUCCESS Then
        Ret = Api_RegSetValueEx(hKey, "Window Title", 0, REG_SZ, Title, Len(Title))
        Ret = Api_RegCloseKey(hKey)
    End If
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var URL As String
    Var Title As String

    URL = Edit(0).GetWindowText
    Title = Edit(1).GetWindowText
    IEStartURL URL, Title
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End