Runtime Error

I get the runtime error "_gat is undefined" and a popup yes/no option
to debug when I run the code below which is code to "screen scrape"
the text off a web page without a browser. When I click "no debug" it
continues and works ok. I suspect an error in the web page but being
unable to fix it (and other web pages which have similar or worse
problems) can I turn off the runtime error popup? The error does not
occur in Microsoft IE though from Googling I found that you can turn
off script debugging in IE which I cannot do here it seems.
>
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Multiline = True
Me.TextBox1.ScrollBars = ScrollBars.Both
'above only for showing the sample
Dim Doc As mshtml.IHTMLDocument2
Doc = New mshtml.HTMLDocumentClass
Dim wbReq As Net.HttpWebRequest = _
DirectCast(Net.WebRequest.Create("http://
start.csail.mit.edu/"), _
Net.HttpWebRequest)
Dim wbResp As Net.HttpWebResponse = _
DirectCast(wbReq.GetResponse(), Net.HttpWebResponse)
Dim wbHCol As Net.WebHeaderCollection = wbResp.Headers
Dim myStream As IO.Stream = wbResp.GetResponseStream()
Dim myreader As New IO.StreamReader(myStream)
Doc.write(myreader.ReadToEnd())
Doc.close()
wbResp.Close()
>
'the part below is not completly done for all tags.
'it can (will) be necessary to tailor that to your needs.
>
Dim sb As New System.Text.StringBuilder
For i As Integer = 0 To Doc.all.length - 1
Dim hElm As mshtml.IHTMLElement = _
DirectCast(Doc.all.item(i), mshtml.IHTMLElement)
Select Case hElm.tagName.ToLower
Case "body", "html", "head", "form"
Case Else
If hElm.innerText <"" Then
sb.Append(hElm.innerText & vbCrLf)
End If
End Select
Next
TextBox1.Text = sb.ToString
End Sub
End Class

>I get the runtime error "_gat is undefined" and a popup yes/no option
to debug when I run the code below which is code to "screen scrape"
the text off a web page without a browser. When I click "no debug" it
continues and works ok. I suspect an error in the web page but being
unable to fix it (and other web pages which have similar or worse
problems) can I turn off the runtime error popup? The error does not
occur in Microsoft IE though from Googling I found that you can turn
off script debugging in IE which I cannot do here it seems.
>
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.TextBox1.Multiline = True
Me.TextBox1.ScrollBars = ScrollBars.Both
'above only for showing the sample
Dim Doc As mshtml.IHTMLDocument2
Doc = New mshtml.HTMLDocumentClass
Dim wbReq As Net.HttpWebRequest = _
DirectCast(Net.WebRequest.Create("http://
start.csail.mit.edu/"), _
Net.HttpWebRequest)
Dim wbResp As Net.HttpWebResponse = _
DirectCast(wbReq.GetResponse(), Net.HttpWebResponse)
Dim wbHCol As Net.WebHeaderCollection = wbResp.Headers
Dim myStream As IO.Stream = wbResp.GetResponseStream()
Dim myreader As New IO.StreamReader(myStream)
Doc.write(myreader.ReadToEnd())
Doc.close()
wbResp.Close()
>
'the part below is not completly done for all tags.
'it can (will) be necessary to tailor that to your needs.
>
Dim sb As New System.Text.StringBuilder
For i As Integer = 0 To Doc.all.length - 1
Dim hElm As mshtml.IHTMLElement = _
DirectCast(Doc.all.item(i), mshtml.IHTMLElement)
Select Case hElm.tagName.ToLower
Case "body", "html", "head", "form"
Case Else
If hElm.innerText <"" Then
sb.Append(hElm.innerText & vbCrLf)
End If
End Select
Next
TextBox1.Text = sb.ToString
End Sub
End Class

Falderals,
>
Did you try this with Google.Com or Microsoft.Com or more regular like that
(with full url including HTTP:\\)?
>
Cor
>
<falder...@yahoo.co.ukschreef in berichtnews:9a1f5879-1ded-4e55-b423-f4a7fe0c97c9@y19g2000prn.googlegroups.com...
>>>>