?
Solved

WebBrowser control, questions about NavigateError event

Posted on 2004-04-07
5
Medium Priority
?
2,129 Views
Last Modified: 2013-12-26
I've got a web page that is actually a time and attendance timeclock.  This web page refreshes once a minute to provide an updated time on the page, equal to the host's time.  Occasionally the host is not available and the page ends in a HTTP 500 (Internal Server Error) code.

Some of my end users are not sofisticated and don't really understand why the HTTP 500 screen appears instead of the clock display.  To them, it's simply "down".  If I do a refresh (F5), 99.9% of the time, the clock refreshes and I'm back in business.  I can't expect the end users to do this because they don't know that trick and it's far too many people to try to train.  The clock should just work, period.

So my solution was to write a VB program that displayed my clock within the WebBrowser control.  It has some neat events such as BeforeNavigate, NavigateComplete, and NavigateError.  I thought I was home free when I saw that I could get a NavigateError event raised.  In that event, I would simply fire off another refresh.

Now here's the problem:

This is difficult to explain but if I start off with a good call, I get my screen, everything is wonderful.  If I then shut down my HTTP server, I get the HTTP 500 screen.  Also good.  My app sees the navigation error and starts a timer which fires off a refresh (basically a new Navigate method).  This process continues until I restatr my server.  At that time my screen displays with thee updated time and everything is fine.  Now to test this thing thoroughly, I stop my HTTP server again.  This time however, I still get the NavigateError event, which then causes a new Navigate by design, but instead of getting the HTTP 500 screen, I get a previous, what appears to be a cached version of, my clock screen.  I can tell this because the time displayed will be the time of the first HTTP shutdown and not the second.  In fact now, if I continue to start and stop my HTTP server, I'll always get the last time I stopped the server.  I never get the HTTP 500 screen anymore.

One approach I've tried was to set a flag, bNavErr in the BeforeNavigate event to False.  Then if NavigateError fires, I set the flag to True.  On my NavigateComplete event, I check this flag and if it's True, I can assume I had a navigation error, so I turn on my timer and start refreshing.  In this case I flip-flop between a cached screen and an HTTP error screen for each time the Navigate method is called.

I don't see a means of clearing the cache but I'm wonder if that could be done.  Another approach may be to close, then reopen a WebBrowser object but I'm trying to avoid that for performance reasons.  




0
Comment
Question by:mskvarenina
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
5 Comments
 
LVL 11

Accepted Solution

by:
bingie earned 1000 total points
ID: 10777601
Try the delete cache API.

'Place the following in the top of your coded module, after option explicit:
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

'Place the following in the Document_Complete event of the webbrowser
DeleteUrlCacheEntry (webbrowser.LocationURL)

Then this will always return the "freshest" page.

Also, when using the .Refresh method, use the ,1 after it.

i.e. webbrowser1.Refresh, 1 which will force a complete refresh from server not cache.

Bingie
0
 

Author Comment

by:mskvarenina
ID: 10777824
Bingie,  excellent answer!  Your suggestion worked just fine.  I figured there be an API to clear the cache, I just didn't know where to look.

1 question for you:

1, Is there a difference between doing another .Navigate2 vs. a .Refresh?  My code today just does a new .Navigate2 as the refresh.

0
 
LVL 11

Expert Comment

by:bingie
ID: 10777976
AFAIK, The .Navigate2 will not do the refresh from cache like the .Refresh will.

I would use the .Navigate2 only if you are going to a new URL, which will download a fresh version providing the page isn't cached.
0
 

Expert Comment

by:solaire
ID: 10844601
I'm trying to read several different pages.  If I interrupt my code within the loop then I get the page that I want, otherwise it seems to only read the last page.  Should I put some code in to represent my interruption?  And if, so what?

for i=1 to 5
 
  WebBrowser1.Navigate2 Address(i)
  WebBrowser2.refresh2 1
  Do while WebBrowser1.Busy
    DoEvents
  Loop
  s=WebBrowser1.Document.body.innertext
  MySearchString(i)=mid$(s,3000,50)

Next i
0
 

Expert Comment

by:howieba
ID: 11074882
solaire, two comments for you:

1. I had this problem with the WebBrowser control and fixed just yesterday. The issue is the DoEvents - it blocks not allowing the WebBrowser messages to get CPU cycles to complete as you see when it immediately completes as you break. You need to use a DoEvents replacement which you can pick up at:

http://members.lycos.co.uk/nirsoft1/vb/doevents.html

2. If you are looking to simply have your program retrieve some web pages without the need for an interactive web control on your form(s), you can use the MSHTML Object Library instead.

a) Take the web control off your form.
b) include a reference for MSHTML Object Library
c) your code snippet above becomes:

Dim objLink As HTMLLinkElement
Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument


for i=1 to 5

  Set objDocument = objMSHTML.createDocumentFromUrl(Address(i), vbNullString)

  While objDocument.readyState <> "complete"
      MyDoEvents                                ' you still need the DoEvents replacement
  Wend

  s=objDocument.body.innertext
  MySearchString(i)=mid$(s,3000,50)

  Set objDocument = Nothing
next i
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Suggested Courses
Course of the Month8 days, 22 hours left to enroll

764 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question