Imports mshtml
Imports SHDocVw
Imports Microsoft.Win32
Imports System.Runtime.InteropServices
 
 
Public Class Form1
 
    Public Const BaseKey As String = "SOFTWARE\Microsoft\Internet Explorer\Extensions"
    Public Const SubKey As String = "{10954C80-4F0F-11d3-B17C-00C0DFE39736}"
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim reg As RegistryKey = Registry.LocalMachine
        Dim sk As RegistryKey = reg.OpenSubKey(BaseKey, True)
        sk = sk.CreateSubKey(SubKey)
 
        sk.SetValue("ButtonText", "Button")
        sk.SetValue("CLSID", "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}")
        sk.SetValue("Default Visible", "Yes")
        sk.SetValue("Exec", "D:\Working\IEToolbarButtons\IEToolbarButtons\bin\Debug\IEToolbarButtons.exe")
        sk.SetValue("HotIcon", "C:\Windows\System\setup.ico")
        sk.SetValue("Icon", "C:\Windows\System\setup.ico")
        sk.Close()
        reg.Close()
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim browser As SHDocVw.InternetExplorer
        Dim myLocalLink As String
        Dim myDoc As mshtml.IHTMLDocument2
        Dim shellWindows As SHDocVw.ShellWindows = New SHDocVw.ShellWindows()
        Dim filename As String
 
        For Each ie As SHDocVw.InternetExplorer In shellWindows
            filename = System.IO.Path.GetFileNameWithoutExtension(ie.FullName).ToLower()
 
            If filename = "iexplore" Then
                browser = ie
                myDoc = browser.Document
                myLocalLink = myDoc.url
                MessageBox.Show(myLocalLink)
            End If
        Next
 
        End
 
    End Sub
End Class