[RESOLVED] How can i get the current ie home page in text1?

How can I get the current "IE" home page to read out in text1 .

Code:

---

Private Function ReadKey(Value As String) As String
    Dim b As Object
    On Error Resume Next
    Set b = CreateObject("wscript.shell")
    r = b.RegRead(Value)
    ReadKey = r
End Function

Private Sub cmdShowHomePage()
    Text1.Text = ReadKey("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
End Sub

---

thank you that works great !!!

Quote:

---

Originally Posted by GRPsuper9

Code:

---

Private Function ReadKey(Value As String) As String
    Dim b As Object
    On Error Resume Next
    Set b = CreateObject("wscript.shell")
    r = b.RegRead(Value)
    ReadKey = r
End Function

Private Sub cmdShowHomePage()
    Text1.Text = ReadKey("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page")
End Sub

---

---

Yap, no problem :). Give me some Rep+ if u want

Please mark this threat as Resolved when you get the chance.

Rep given