WebBrowser Help

Hi

The problem is that you are trying to save the text before the page has finished loading. I tried the following with your code, and it seems to work:

1) Put the following code where your current code is now:

Dim sURL1 As String
sURL1 = "http://www.microsoft.com/spanish"
web.Navigate (sURL1)

2) Put this code (the rest) in your webcontrol's DocumentComplete event:

Dim iFile1 As Integer
Dim text As String

DoEvents
text = web.Document.body.innerText
DoEvents
iFile1 = FreeFile
Open "c:\Param.txt" For Output As #iFile1
Print #iFile1, text;
Close #iFile1

I tried it, and it works. Let me know if you still have problems (paul@realiscape.net).

Camper Joe.

You don't call Web_DocumentComplete, it's an event procedure; it runs automatically when the document has finished loading. Enter the code exactly as Camper_Joe posted it.

I tried it, but I removed the following line:

Web_DocumentComplete Web, sURL1

And it worked.

Try it, then let me know

When you say it doesn't get the file, what exactly do you mean?

Camper Joe.

Does the web page load in the viewer?
What do you mean with "frames"? Are they standard Frame controls?
Error 91 is object not set, can you post the line where this error occour?

Marco

frame controls should be any problem. Where did you read that?
If you are still getting error 91, it will be really helpful for us to know where the problem is...
Did you turn Option Explicit on?
Marco

do you mean that now you are saving the file ok?
Marco

This code looks perfectly fine with me (I just put a webControl called "web" in a form)

Option Explicit

Private Sub Form_Load()
web.Navigate "www.microsoft.com/spanish"
End Sub

Private Sub web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim text As String
text = web.Document.body.innerText
Dim iFile1 As Integer
iFile1 = FreeFile
Open App.Path & "\Param.txt" For Output As #iFile1
Print #iFile1, text
Close #iFile1
End Sub

I suggest you to put a breakpoint at the beginning of the DocumentComplete event, and step through the code by F8. If the app never reaches the breakpoint, there is some more serious bug in your code, and in that case I suggest you to post all your code here.

Marco