[RESOLVED] Get HTML With Inet

[shirazamod]

Well I'd just completed a program that uses the Inet control to get the HTML of a webpage and then parse it. Now I've bought a new, much faster computer and the exact same program won't work properly! The problem is that the Inet is not downloading the entire html source. The thing is, if I add a breakpoint in Inet_StateChange just before it gets the html, it gets all of the html so I have a feeling this has something to do with my computer being so fast that it gets the html before all of it is there.

I simply use HTML = Inet.OpenUrl("http://url.com"), but it doesnt work.

When trying to get HTML for http://www.azlyrics.com/lyrics/craig...lastdance.html it always stops when the length Len(HTML) = 1159

Anyone have a solution to this?

[eusty]

I had a similar problem which lintz found the answer to, maybe worth a look.

[shirazamod]

I tried using the .StillExecuting but it returns False.

[JensPeder]

Inet seems to suck, sadly. Use the URLDownloadToFile API, winsock or make your own activex to download instead

[shirazamod]

I would use URLDownloadToFile if it didn't freeze the program while it is downloading.
Is there any way to prevent this from happening?

[Pino]

lets see how you have coded it.

[JensPeder]

I would use URLDownloadToFile if it didn't freeze the program while it is downloading.
Is there any way to prevent this from happening?

Sadly, no.

[shirazamod]

@Pino - Do you want to see my coding using Inet?
I've created a new project to check if something in my program is doing this but it isnt.
The project has 1 Inet control (Inet), a Commandbutton (Command1), and a textbox (Text1).

This is my code:

Private Sub Command1_Click()
Dim HTML As String
HTML = Inet.OpenURL(Text1.Text)
 
Debug.Print HTML
End Sub
 
Private Sub Form_Load()
Text1.Text = "http://www.azlyrics.com/lyrics/craigdavid/onelastdance.html"
End Sub
 
Private Sub Inet_StateChanged(ByVal State As Integer)
If State <> 7 Then Exit Sub
Debug.Print State 'If I break here and wait 1 or 2 seconds and then resume it works fine
End Sub

Maybe I should just code the program to wait 1 second.
What is the API call to Wait or Sleep or something?

[JensPeder]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Me.Caption = "Your system will sleep 5 sec."
    'Sleep for 5000 milliseconds
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Sleep ..."
End Sub

But I've used the Inet-control for the exact same thing (my own lyrics program) and I always seemed to get into troubles with it

[shirazamod]

Thanx for the code JensPeder, I'll try it out.
Out of interest, what does your lyrics program do? The program that this Inet is for is also for a Lyrics program of mine!

[JensPeder]

Thanx for the code JensPeder, I'll try it out.
Out of interest, what does your lyrics program do? The program that this Inet is for is also for a Lyrics program of mine!

www.g-lyrics.net

Made it on a boring night last november

[Jmacp]

i've read a few things saying that theninet control has a lot of bugs, if you still cant get it working then you can use the webbrowser control,

webbrowser1.navigate "www.google.com"
do until webbrowser1.readstate = readycomplete
doevents
loop

text1.text = webbrowser1.innerhtml