[RESOLVED] Get HTML With Inet

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?

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

I tried using the .StillExecuting but it returns False.

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

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

lets see how you have coded it.

Quote:

---

Originally Posted by 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?

---

Sadly, no.

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

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

VB Code:

'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 :rolleyes:

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!

Quote:

---

Originally Posted by 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!

---

www.g-lyrics.net

Made it on a boring night last november :p

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