Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > microsoft.public.excel.programming > #109495
| From | Tqlebvng514 <Thlebkng152@gmail.com> |
|---|---|
| Newsgroups | microsoft.public.excel.programming |
| Subject | Re: Watchdog timer issues |
| Date | 2016-10-30 11:04 +0000 |
| Message-ID | <Tqlebvng514.125b93a8@excelbanter.com> (permalink) |
| Organization | ExcelBanter.com |
| References | <v59JEhDatKFYFw1d@freenetname.co.uk> |
Walter Briscoe;1626539 Wrote: > I am using XL 2003. I have a need to run Internet Explorer for about 20k > URLs. This is beyond the capacity of IE on my system. I use a 30 second > watchdog timer to detect IE becoming unreasonably slow. Relevant code > is: ' Needs Tools/References/Microsoft Internet Controls Public ie As > SHDocVw.InternetExplorer Private killtime As Date Private Const > killduration As String = "00:00:30" .... Private Sub kill_ie() > Debug.Print now & " kill_ie() called" killtime = 0 Set ie > = Nothing End Sub Public Function Wait4IEretry(ByVal operation As > String) As Boolean .... On Error GoTo newie .... killtime = now + > TimeValue(killduration) Application.OnTime EarliestTime:=killtime, > Procedu="kill_ie", Schedule:=True Wait4IE operation > Application.OnTime EarliestTime:=killtime, Procedu="kill_ie", > Schedule:=False If False Then newie: If killtime <> 0 Then On > Error Resume Next ' ontime may not be set Application.OnTime > EarliestTime:=killtime, Procedu="kill_ie", Schedule:=False End > If Set ie = Nothing Resume retry Stop retry: ' Stop Wait4IEretry = False > Exit Function End If .... Wait4IEretry = True Exit Function ..... End > Function So Wait4IEretry starts a 3o second watchdog timer on Wait4IE > completing in 30 seconds. If 30 seconds elapses, kill_ie is called and > ie is made nothing, causing Wait4IE to complete with an error and > transfer control to label newie. I find "On Error Resume Next" > ineffective against errors in Application.OnTime. I zero killtime in > kill_ie so Application.OnTime is not called. If I hit escape to allow me > to save my XL file, Application.OnTime is called and errors. Why is > "On Error Resume Next" ineffective? If 30 seconds does not > elapse, the timer is cancelled without problem. I can't work out how to > make killduration a date. In the immediate debug window, I see > ?#00:00:30# 00:00:30 ?timevalue("00:00:30") 00:00:30 In the > debug code window, Private Const killduration As Date = #00:00:30# is > transformed into Private Const killduration As Date = #12:00:30 AM# As > an sside, many cells in my worksheet have a small triangle marking their > upper left corner. I remember that as meaning there is some strangeness > about the data in the marked cells. I just can't work out how to Google > it. excel cell warning message is ineffective. excel cell triangle > corner suggests a formula error and that a trace error button should > appear - it does not - the cells contain values. Unsetting > Tools/Options/Error checking/Number stored as text causes those > triangles to vanish and I now know what the issue is. How to I get > "Number stored as text" to appear as a warning? -- Walter > Briscoe Ta từng nghÄ© mình lÃ* thiên hạ vô song, bao năm lăn lá»™i chốn giang hồ, công phu phun gió phóng bão tưởng chừng không tìm ra đối thá»§. Thế mÃ* tháº*t không ngá», má»›i rữa tay gác kiếm chưa lâu thì chốn giang hồ kia lại dáº*y lên bao tay cao thá»§, miệng dẽo má» dÃ*i lưỡi loe loa, quả lÃ* ghê gá»›m thay!. Äỉnh Côn Lôn chót vót phá»§ mây kia tưởng rằng lÃ* cao nhất, leo lên tá»›i rồi má»›i biết ê vÆ¡ rét còn cao hÆ¡n!, ngẫm chốn giang hồ cÅ©ng tháº*t bÃ* hiểm, các cao nhân dị lão như ngá»a hổ tÃ*ng long, quả tháº*t vê lá», vê lá» ! -- Tqlebvng514
Back to microsoft.public.excel.programming | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-10-29 14:59 +0100
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-10-29 17:50 -0400
Re: Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-10-30 20:34 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-10-29 17:52 -0400
Re: Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-10-30 20:38 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-10-30 17:14 -0400
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-10-30 17:36 -0400
Re: Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-11-02 09:43 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-11-02 13:30 -0400
Re: Watchdog timer issues Adrian Caspersz <email@here.invalid> - 2016-11-03 17:44 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-11-03 15:33 -0400
Re: Watchdog timer issues Adrian Caspersz <email@here.invalid> - 2016-11-03 20:11 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-11-03 16:47 -0400
Re: Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-11-06 10:37 +0000
Re: Watchdog timer issues Walter Briscoe <wbriscoe@nospam.demon.co.uk> - 2016-11-06 11:42 +0000
Re: Watchdog timer issues GS <gs@v.invalid> - 2016-11-07 12:18 -0500
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 06:03 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 07:03 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 08:03 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 11:04 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 13:04 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 14:03 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 15:03 +0000
Re: Watchdog timer issues Tqlebvng514 <Thlebkng152@gmail.com> - 2016-10-30 16:03 +0000
Re: Watchdog timer issues giaxeoto4banh <giaxeoto4banh@gmail.com> - 2016-11-03 12:19 +0000
Re: Watchdog timer issues tinhdauhcm1 <tinhdauhcm1@gmail.com> - 2016-11-03 16:01 +0000
Re: Watchdog timer issues dailycuacuonhcm <dailycuacuonhcm@gmail.com> - 2016-11-04 01:52 +0000
csiph-web