100% CPU Usage

[Hasher]

Hi I am making a little app that monitors a webpage. It uses a while loop to reside in memory until the desired action is performed by user. The probelm I have is that it takes up 100% of the memory and makes the computer lock up. From previous posts I read one option is to put sleep(10) in the loop but this has not worked. Any suggestions ??

#include <IE.au3>
HotKeySet("{ESC}","KillMe")

$sWebPage = "http://www.google.com"
$i = 1
$oIE = _IECreate()
_IENavigate($oIE, $sWebPage)


While $i = 1
sleep(10)
$oEvent = ObjEvent($oIE, "onsubmit")
if $oEvent = true then IEEvent_onbeforeunload()
WEnd




Func IEEvent_onbeforeunload()
MsgBox(0,"success","onsubmit worked")

EndFunc

Func KillMe()
   Exit
EndFunc

Thank you in advance .. Paul :-D

[BrettF]

Increase the Sleep??

[Hasher]

If I do that it can 'miss' my if statement

[FreeFry]

Judging from this list: http://msdn.microsoft.com/library/default..../reflist_vb.asp, there's no such event called "onbeforeunload", neither one such as "onsubmit"(javascript?).

And even if it does, you are defining the event handler the wrong way, it's not meant to be used in a loop like that - you use it once, after creating the object it should handle.

This is how it should be defined(assuming that the events exists):

$oIE = _IECreate()

$oEvent = ObjEvent($oIE, "IEEvent_")

Func IEEvent_onbeforeunload()
    MsgBox(0,"success","onsubmit worked")
EndFunc

Func IEEvent_onsubmit()
    MsgBox(0,"success","onsubmit worked")
EndFunc

That "onsubmit" event looks like javascript, and as far as I am aware, javascript is not connected to the "InternetExplorer.Application.1" object - that the IE.au3 functions uses - in any way.

Edit:

Clarified.

Edited February 12, 2007 by FreeFry

[MrCreatoR]

Hasher

Try This:

#include <IE.au3>
HotKeySet("{ESC}","KillMe")

$sWebPage = "http://www.google.com"
$i = 1
$oIE = _IECreate()
_IENavigate($oIE, $sWebPage)

AdlibEnable("Loop", 10)

While 1
   Sleep(100)
Wend

Func Loop()
   $oEvent = ObjEvent($oIE, "onsubmit")
   if $oEvent = true then IEEvent_onbeforeunload()
EndFunc

Func IEEvent_onbeforeunload()
MsgBox(0,"success","onsubmit worked")

EndFunc

Func KillMe()
   Exit
EndFunc

Edited February 12, 2007 by MsCreatoR

[FreeFry]

Hasher

Try This:

#include <IE.au3>
HotKeySet("{ESC}","KillMe")

$sWebPage = "http://www.google.com"
$i = 1
$oIE = _IECreate()
_IENavigate($oIE, $sWebPage)

AdlibEnable("Loop", 10)

While 1
   Sleep(100)
Wend

Func Loop()
   $oEvent = ObjEvent($oIE, "onsubmit")
   if $oEvent = true then IEEvent_onbeforeunload()
EndFunc

Func IEEvent_onbeforeunload()
MsgBox(0,"success","onsubmit worked")

EndFunc

Func KillMe()
   Exit
EndFunc

This still does hang the cpu at 100%/almost hangs the internet explorer window, and it doesn't work for me ?? My computer only or?

[Hasher]

Thanks Freefry

I took the $oEvent = ObjEvent($oIE, "IEEvent_") out of the loop and used BeforeNavigate (which works for submit and navigating away from current page) and it works fine now.... new source is

$oEvent = ObjEvent($oIE, "IEEvent_")
    
    While $i = 1
        sleep(10)
    WEnd

Your where very helpful :-)

Thanks Paul

[FreeFry]

Great to be of help

Though, all submits doesn't really "navigate", at least I don't think they do(take for example when submitting something that doesn't load/reload a page).

But of course for finding when a page is updated it works great!

Edit:

Taken from MSND @ http://msdn.microsoft.com/workshop/browser...renavigate2.asp

The BeforeNavigate2 event replaces the BeforeNavigate and FrameBeforeNavigate events, which should no longer be used. The pDisp parameter that specifies the corresponding WebBrowser object clearly identifies where the navigation is to occur. Microsoft Internet Explorer 3.0 required the FrameBeforeNavigate and a target frame name to identify the target of navigation. However, this solution was potentially ambiguous as frame names are not unique.

Edited February 12, 2007 by FreeFry