如何修改IE默认页的连接地址?

解决方案 »

  1.   

    RegSetValueEx修改注册表可以达到效果
    不过装了ANTISPYWARE一类软件好象就修改不动了.
      

  2.   

    修改这个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
        
        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
      

  3.   

    谢谢 oho1937(压舟熊疯)但是复制你的代码后,有错误!
      

  4.   

    提示错误信息:13类型不匹配
    -------------------------------
    在标准模块里加上:
    Public Const HKEY_CURRENT_USER = &H80000001