vb6.0写修改注册表程序

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:15:13
一打开应用程序就直接将注册表中：
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page 值改为www.baidu.com
给代码（包括API）就行了
必须要能用，我用别人的没一个成功
各位帮下忙吧！！

带着怨气写完了：

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 RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 = 1

Private Sub Form_Load()
Dim lReturn As Long '储存返回值以判断是否成功
Dim hKey As Long '储存该键句柄

'打开键(此处用RegCreateKey而不用RegOpenKey是因为若键存在,则两者效果相同;若不存在,则前者创建该键,后者报错)
lReturn = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey)
If lReturn <> 0 Then GoTo Err_Out