vb如何获取当前ie的主页地址,以及保存的历史天数

Question

用vb如何获取当前ie的主页地址,以及保存的历史天数,刚上手vb,希望大家帮个忙.明天单位就要用了,最好给我一段代码,我急着用没很多时间分析了,谢谢有空我请你们过来做客我买单,哈哈

Answer 1

读注册表获得IE的主页地址
HKEY_USERS\S-1-5-21-1454471165-839522115-854245398-500\Software\Microsoft\Internet Explorer\Main\下
Start Page这个值

Answer 2

HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History\DaysToKeep

Answer 3

Private Sub Command2_Click()
    '首先，在工程 引用中 加入对  Windows Script Host Object Model的引用
    Dim wshshellobj As New IWshRuntimeLibrary.wshshell
    Dim hisday As Long
    hisday = wshshellobj.RegRead("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History\DaysToKeep")
    MsgBox "历史记录保留天数为:" + CStr(hisday)
    Dim homeurl As String
    homeurl = wshshellobj.RegRead("HKEY_USERS\.DEFAULT\Software\Microsoft\Internet Explorer\Main\Start Page")
    MsgBox "主页地址为：" + homeurl
    Set wshshellobj = Nothing
End Sub

Answer 4

我是win2000,明天早上再试一下,明天晚上结题,谢谢大家

Answer 5

//xp下怎么不行？没有啊！呵呵，现找了一个xp，可以找到Windows Script Host Object Model，是不是你的vb安装的不全？

Answer 6

xp下为
HKEY_CURRENT_USERS\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Url History\DaysToKeep