VB设为首页代码-星旺坡

管理首页

建一个按钮和文本框，（文本框里为你要修改的首页），代码：

'定义常量
Const REG_SZ As Long = 1
Const HKEY_CURRENT_USER = &H80000001

'API函数
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

'设置主页（如果TextBox为空，则主页为“about:blank”）
Private Sub Command1_Click()
        Dim hKey As Long
        RegCreateKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\Main", hKey
        RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Me.Text1.Text, 13
        RegCloseKey hKey
End Sub

不用VB，你可以用html，建一个空的记事本，复制以下代码：
<html>
<head>
<title>更改首页</title>
</head>
<body>
<a onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.baidu.com');" href="javascript:;">设为首页</a>
</body>
</html>