internet explorer

[chris1990]

i was given the start of the code to disable the google website from being viewed in internet explorer: (as a test)

Option Explicit
Dim IE As InternetExplorer
Dim shWin As New ShellWindows
Dim strURL As String
Private Sub Form_Load()
For Each iebrowser In shWin
    strURL = iebrowser.locationurl
    Debug.Print iebrowser.locationurl
    Do While InStr(strURL, "Local%20Settings/Temporary%20Internet%20Files") = 46
        strHTML = Replace(iebrowser.Document.Body.innerhtml, """", "")
End Sub
 
If iebrowser.locationurl = "http:\\google.co.uk" Then
MsgBox "no"