修改这个KEY就可以. HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start PagefncSetRegValue(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", "Start Page", "http://aaa.html") 函数 Public Function fncSetRegValue(ByVal strMainReg As String, ByVal strRegKey As String, ByVal strRegSubKey As String, ByRef strRegVal As String) As Boolean '************************************************************ 'Date :2000/05/20 'Creater :压舟熊疯 'Function :Set Reg Value '************************************************************ Dim lngKeyid As Long
不过装了ANTISPYWARE一类软件好象就修改不动了.
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start PagefncSetRegValue(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", "Start Page", "http://aaa.html")
函数
Public Function fncSetRegValue(ByVal strMainReg As String, ByVal strRegKey As String, ByVal strRegSubKey As String, ByRef strRegVal As String) As Boolean
'************************************************************
'Date :2000/05/20
'Creater :压舟熊疯
'Function :Set Reg Value
'************************************************************
Dim lngKeyid As Long
On Error GoTo SetRegVal_Err
fncSetRegValue = False
'Open Reg
RegOpenKey strMainReg, strRegKey, lngKeyid
'Set KeyValue As String
RegSetValueEx lngKeyid, strRegSubKey, 0&, 1, ByVal strRegVal, Len(strRegVal) + 1
'Close Reg
RegCloseKey lngKeyid
fncSetRegValue = True
Exit Function
SetRegVal_Err:
MsgBox Err.Number & ":" & Err.Description
End Function
-------------------------------
在标准模块里加上:
Public Const HKEY_CURRENT_USER = &H80000001