IE event

[grzesiek]

When I set AutoIt to receive events from Internet Explorer there is a problem with writing in the browser, the browser reacts slower when I write something so it is difficult to write, so there is a problem with responsiveness. Is this problem with Internet Explorer or maybe something in AutoIt? I have this problem on one computer with Internet Explorer 10 and other with Internet Explorer 9. The problem may not be that visible at first.

Here is some code:

$hIEWindow = WinGetHandle("[CLASS:IEFrame]")
$oShell = ObjCreate("Shell.Application")
$oWindows = $oShell.Windows()
For $oWindow In $oWindows
   If HWnd($oWindow.HWnd) = $hIEWindow Then
   $oIE = $oWindow
   $oIEEvent = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2")
   If @Error = 0 Then MsgBox(0, "", "Found the browser.")
   While Sleep(200)
   WEnd
   EndIf
Next
Func IEEvent_BeforeNavigate2($oIE, $sURL) 
   Beep()
EndFunc















Edited March 5, 2014 by grzesiek

[mLipok]

tak lepiej

thats better

[mLipok]

Read the description of the parameters for the function Beep()

Special focus on the second parameter.

Edited March 5, 2014 by mLipok

[grzesiek]

I added Beep to show that the event works. And it isnt called when I write in the browser. You can remove Beep.

When I try for example to write comment in this site http://wiadomosci.onet.pl the typing is less responsive.

[mLipok]

What your script do inside While <> Wend loop ?

EDIT:

And what doing inside IEEvent_BeforeNavigate2 function ?

Edited March 5, 2014 by mLipok

[grzesiek]

I also tryed this code and when events are enabled only one, maybe few test words are typed, but when events are disabled every time all test words are typed. I tested it also with the text box in this forum. Well I will just don't use events and check in a loop if a change have been made, I think it will be more efficient.

expandcollapse popup

;Opt("SendKeyDelay", 0)

$hIEWindow = WinGetHandle("[CLASS:IEFrame]")
If @Error Then
   MsgBox(0, "", "Unable to find IE window.")
   Exit
EndIf
WinSetState($hIEWindow, "", @SW_RESTORE)
MsgBox(0, "Events are disabled", "Click in a text box then click OK to send text.")
WinActivate($hIEWindow)
Sleep(1000)
Send("test test test test test test test test test test test test", 1)
Sleep(3000)

$oShell = ObjCreate("Shell.Application")
$oWindows = $oShell.Windows()
$oIE = 0
For $oWindow In $oWindows
   If HWnd($oWindow.HWnd) = $hIEWindow Then
      $oIE = $oWindow
      ExitLoop
   EndIf
Next
If IsObj($oIE) = 0 Then
   MsgBox(0, "", "Unable to find IE window.")
   Exit
EndIf

$oIEEvent = 0
While 1
   $oIEEvent = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2")
   If @Error Then
      MsgBox(0, "", "Error")
      Exit
   EndIf
   MsgBox(0, "Events are enabled", "Remove text and click OK to send text.")
   WinActivate($hIEWindow)
   Sleep(1000)
   Send("test test test test test test test test test test test test", 1)
   Sleep(3000)
   
   $oIEEvent.Stop
   MsgBox(0, "Events are disabled", "Remove text and click OK to send text.")
   WinActivate($hIEWindow)
   Sleep(1000)
   Send("test test test test test test test test test test test test", 1)
   Sleep(3000)
WEnd