vb浏览器默认首页

Question

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

Answer 1

Option Explicit
'Download by http://www.codefans.net
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                          (ByVal hKey As Long) _
                          As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
                          (ByVal hKey As Long, _
                          ByVal lpSubKey As String, _
                          phkResult As Long) _
                          As LongPrivate 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 LongPrivate 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 hKeyEnd 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 hKeyEnd SubPrivate Sub Command3_Click()    Unload MeEnd Sub