如何获取Internet的主页地址.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main

项
Start Page　就是叻```

只能从注册表中吗?

谢谢了

Private Sub Command1_Click()
'首先,在工程引用中加入对 Windows Script Host Object Model的引用
Dim wshshellobj As New IWshRuntimeLibrary.wshshell
Dim homeurl As String
homeurl = wshshellobj.RegRead("HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page")
MsgBox "主页地址为：" + homeurl
Set wshshellobj = Nothing
End Sub

[此贴子已经被作者于2007-1-15 16:58:27编辑过]

用你这个方面是比较好,但是
homeurl = wshshellobj.RegRead("HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page")
这一句出错怎么解,如下图:

[此贴子已经被作者于2007-1-15 19:31:23编辑过]

谢谢了,(问题解决了)可是在我的电脑上怎么只能用HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main上面的两个都不对那又是为什么

[此贴子已经被作者于2007-1-15 19:35:51编辑过]

```偶那個是省略```

Private Sub Command1_Click()
'首先,在工程引用中加入对 Windows Script Host Object Model的引用
Dim wshshellobj As New IWshRuntimeLibrary.wshshell
Dim homeurl As String
homeurl = wshshellobj.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page")
MsgBox "主页地址为：" + homeurl
Set wshshellobj = Nothing
End Sub