前几天有一个兄弟问我，修改IE浏览器的首页网址，应该怎么实现？我就教了他用修改注册表的方式来实现这个功能！ - 我们可以先看下注册表，IE首页的保存位置。
HKEY_CURRENT_USER---Software---Microsoft---Internet Explorer---Main---Start Page
2.我们知道了原理，怎么用编程的方式实现这个功能呢？我们以 VB6.0为例。 
VB6.0完整代码： 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
Private Sub Command1_Click() '设置IE首页
Dim hKey As Long
Dim Url As String
Url = "http://www.baidu.com"
RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Url, LenB(Url)
RegCloseKey hKey
End Sub 3.运行，结果如下图：
看，已经修改成功了。是不是很简单呢？ 提示：这个代码只是调用系统的API，来实现修改注册表内容。其实调用API真的很简单，大家快来试试吧！
|
