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"

[Hack]

What is the question?

[chris1990]

oh yea i forgot sorry!

The code dosent work does any one know how to make it stop pages from being loaded, end product will stop violent sites and porn from being accesed, by blocking the url. my test is to block google.

thanks in advance

[penagate]

It's http:// not \\.

[chris1990]

it is something to do with :

Dim IE As InternetExplorer

[penagate]

Have you added a reference to the Internet Explorer automation library?

[chris1990]

no, is that in components, i got given the code and he said it would work