程序中如何用简单的方式设置IE的首页？

Question

程序中如何用简单的方式设置IE的首页？

Answer 1

Option Explicit
Const REG_SZ As Long = 1
Const HKEY_CURRENT_USER = &H80000001Private 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
Sub main()
  Dim hKey As Long
  RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
  RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal "http://hi.baidu.com/icecept", LenB(StrConv("http://hi.baidu.com/icecept", vbFromUnicode)) + 1
  RegCloseKey hKey
  End
End Sub

Answer 2

以上代码放在标准模块里,工程属性里启动用Sub main()