/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
HTML Source kode - Igen...
Fra : Anders Jacobsen


Dato : 12-12-00 07:46

> 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
>
>





 
 
Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste