vb浏览器默认首页

[sbi4twlm803]

如何设置 自己制作的vb浏览器 的首页？

[SYSSZ]

Option Explicit
'Download by http://www.codefans.net
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                          (ByVal hKey As Long) _
                          As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
                          (ByVal hKey As Long, _
                          ByVal lpSubKey As String, _
                          phkResult As Long) _
                          As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
                          (ByVal hKey As Long, _
                          ByVal lpValueName As String, _
                          ByVal Reserved As Long, _
                          ByVal dwType As Long, _
                          lpData As Any, _
                          ByVal cbData As Long) _
                          As Long

Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_SZ As Long = 1

'设置IE主页
Private Sub Command1_Click()

    Dim hKey As Long

    RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
    RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Text1.Text, LenB(Text1)
    RegCloseKey hKey

End Sub

'恢复IE主页
Private Sub Command2_Click()

    Dim hKey As Long

    RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
    RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal "about:blank", LenB(Text1)
    RegCloseKey hKey

End Sub

Private Sub Command3_Click()

    Unload Me

End Sub