> Hmm...
>
> Ledte faktisk efter samme funktion,
>
> Prøvede følgende:
>
> Sub Main
> Dim objIE As Object
> Dim strWebSite As String
> Dim intReadyState As Integer
>
> Set objIE = CreateObject("InternetExplorer.Application")
> strWebSite = "
http://www.aj.subnet.dk"
> objIE.Visible = 1
> objIE.Navigate strWebSite
>
> Do While Not intReadyState = 4
> intReadyState = objIE.ReadyState
> Loop
>
> If InStr(objIE.document.body.innerText, "windows-1252") = 0 Then
> MsgBox "IKKE fundet!"
> Else
> MsgBox "Fundet....!"
> End If
>
> End Sub
>
> Burde det så ikke virke? for det går det nemlig bare ikke ...
>
> Anders
>
>