[RESOLVED] how to open a URL in WebBrowser1 and hit stop before the page loads completely?

**foxter** · Apr 15th, 2006, 02:33 AM

The WebBrowser1 control loads a given URL:

VB Code:

Private Sub Form_Load()
MyURL = "http://www.domain.com/file.html"
WebBrowser1.Navigate MyURL
End Sub

Now, the file.html contains too much junk (JavaScript, Flash, images, Iframes, etc) that I dont need to be loaded in WebBrowser1. Basically it will take too much time to load the file with all the stuff that comes with it. I can manually click a Command1 and stop the WebBrowser1 from loading it:

VB Code:

Private Sub Command1_Click()
WebBrowser1.Stop
End Sub

This gives me exactly what I want, just the file.html loaded into WebBrowser1. What I need is to automate the process without making the user click stop button whenever needed.

So, the big question is... Is there a way to load the file.html into WebBrowser1 without the images, sound, Flash, and everything else that might come with it, just the file itself?

**Jmacp** · Apr 15th, 2006, 06:58 AM

Cache it.

Two things you can do,

VB Code:

Private Sub Command1_Click()
 
Dim sHtml As String
 
    sHtml = Replace$(Replace$(Replace$(Replace$(Replace$(LCase$(Inet1.OpenURL("www.gamespot.com")), "jpg", vbNullString), "swf", vbNullString), "js", vbNullString), "gif", vbNullString), "embed", vbNullString)
    Open "c:\sHtml.html" For Output As #1
    Print #1, sHtml
    Close #1
    WebBrowser1.naviagte "c:\sHtml.html"
 
End Sub
 
Private Sub Command2_Click()
 
Dim sHtml As String
 
    sHtml = Inet1.OpenURL("www.gamespot.com")
    Open "c:\sHtml.html" For Output As #1
    Print #1, sHtml
    Close #1
    WebBrowser1.naviagte "c:\sHtml.html"
 
End Sub

**Jmacp** · Apr 15th, 2006, 07:05 AM

that might not be any better as it downloads the file first anyway, try it.

**foxter** · Apr 15th, 2006, 08:50 AM

Thank you for replying.

I've thought of using Inet1 to download to a local copy first, but the problem is still within the HTML code that the file carries. WebBrowser1 will still open the file as is:

Code:

<HTML>
<HEADE><TITLE>some title</TITLE></HEAD>
<BODY>
Some content here blah blah blah ....
<A HREF="/cool/"><IMG SRC="http://www.site.com/cool.gif">bad image</A><P>
<UL>
<LI>example
<LI>example2
<PRE>b l a h </PRE>
</UL>
<IMG SRC="http://site.com/image.jpg"><BR>example image
<IMG SRC="http://site.com/image.jpg"><BR>example image
<IMG SRC="http://site.com/image.jpg"><BR>example image
<IMG SRC="http://site.com/image.jpg"><BR>example image
imagine if you get a dozen of these JPGs that wight 500Kb each, but you need to load the page fast, and you dont need to load the images...<P>
<IMG SRC="http://site.com/image.jpg"><BR>example image
<IMG SRC="http://site.com/image.jpg"><BR>example image
<IMG SRC="http://site.com/image.jpg"><BR>example image
</BODY>
</HTML>

the above source code will be passed to the WebBrowser1 if we download the file.html with Inet1.
Also, it will take forever for WebBrowser1 to figure out that the image links are broken, in case if they are:

Code:

<IMG SRC="http://site.com/old-image.jpg"><BR>
<IMG SRC="http://site.net/broken-link.gif">

All the problems are fixed when you go:
WebBrowser1.Stop
So what I need is to find out when the browser finished loading HTML file, but has not yet started on loading the rest of the content.

**Jmacp** · Apr 15th, 2006, 12:35 PM

you can rreplace all img tags with "",

VB Code:

sHtml = replace$(Replace$(Replace$(Replace$(Replace$(Replace$(LCase$(Inet1.OpenURL("www.gamespot.com")), "jpg", vbNullString), "swf", vbNullString), "js", vbNullString), "gif", vbNullString), "embed", vbNullString),"<img","")

**Jmacp** · Apr 15th, 2006, 08:11 PM

was messing with this, works well to remove images,

VB Code:

Private Sub Command1_Click()
WebBrowser1.Navigate "www.gamespot.com"
End Sub
 
 
Private Sub Timer1_Timer()
On Error Resume Next
  Dim img As MSHTML.HTMLImg
    On Error Resume Next
    For Each img In WebBrowser1.Document.images
      img.src = ""
 
    Next img
End Sub

**foxter** · Apr 16th, 2006, 03:16 AM

Now that looks like what I needed. Thanks Jmacp! Works perfect for the IMG tags, though the page still loads Flash, IFrames, applets, etc.
This is how GameSpot.com loads flash:

Code:

    <script type="text/javascript">
        <!-- 
        user_complete = "";
        page_type = "0";
        genre = "0";
        platform = "";
        base_url = "http://www.gamespot.com";
        gne_debug = ((typeof(_smarty_console) == "object") || "0" || "" || "") ? "1":"0";
        
        args = "page_type=" + page_type;
        args += "&genre=" + genre;
        args += "&platform=" + platform;
        args += "&base_url=" + base_url;
        args += "&gne_debug=" + gne_debug;
        args += "&user_complete=" + user_complete;
        
        var MM_contentVersion = 7;
 
        tag = '<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" width="302" height="352" id="gs_video" name="gs_video" align="middle">';
        tag += '<param name="allowScriptAccess" value="always" />';
        tag += '<param name="movie" value="http://www.gamespot.com/includes/flash_video/gs_video.swf" />';
        tag += '<param name="quality" value="high" /><param name="wmode" value="transparent" />';
        tag += '<param name="bgcolor" value="#000000" />';
        tag += '<param name="FlashVars" value="' + args + '" />';
        tag += '<embed src="http://www.gamespot.com/includes/flash_video/gs_video.swf" FlashVars="' + args + '" quality="high" bgcolor="#000000" wmode="transparent" width="302" height="352" swLiveConnect=true id="gs_video" name="gs_video" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />';
        tag += '</object>';
        
        embed(tag);
        
        //ad call
        //http://www.gamespot.com/includes/flash_video/get_ad_xml.php?page_type=0
        
        //-->
    </script>

Would there be a way to disable JavaScript in the WebBrowser1 too?

**foxter** · Apr 16th, 2006, 08:57 AM

Jmacp, using your example the WebBrowser1 sometimes wont stop loading the page. Some pages load almost instantly, while some pages it takes a lot longer to load without images than with images. It might be a WebBrowser1 bug though.

I was wondering if we could check the contents of WebBrowser1 for </HTML> closing tag. And we could hit WebBrowser.Stop as soon as we get a </HTML> match. This should prevent loading unneeded content. Though I dont know if this idea is possible to implement at all

**foxter** · Apr 19th, 2006, 01:43 AM

VB Code:

Private Sub Command1_Click()
WebBrowser1.GoBack
End Sub
 
Private Sub Command2_Click()
WebBrowser1.GoForward
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub
 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
    Dim ssnvar, re
    ssnvar = WebBrowser1.Document.documentElement.innerHTML
    Set re = New RegExp
    re.Pattern = "</body>"
    re.Global = True
    re.IgnoreCase = True
    If re.Test(ssnvar) = True Then WebBrowser1.Stop
End Sub

Add references to: Microsoft VBScript Regular Expressions 5.5, and Microsoft Internet Controls

It navigates to the page, and stops loading the page as soon as WebBrowser1 receives </BODY> tag. One little problem though .... if I click on any link inside the page it wont go there, because the WebBrowser1 already has </BODY> tag loaded, so it stops before loading the new page.

What would you suggest in this situation?

Thread: [RESOLVED] how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Thread Tools

Display

[RESOLVED] how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Re: how to open a URL in WebBrowser1 and hit stop before the page loads completely?

Posting Permissions