multiple embedded ie's

[dickjones007]

just a question:

is it possible to make, let's say, 4 embedded IEs in the same GUI and and then for all of those 4 IEs to do clicks and keystrokes at the same time?

[Andreik]

Something like this:

expandcollapse popup

#include <IE.au3>

Global $oIE[5] = [4,0,0,0,0]
$oIE[1] = _IECreateEmbedded()
$oIE[2] = _IECreateEmbedded()
$oIE[3] = _IECreateEmbedded()
$oIE[4] = _IECreateEmbedded()

$hGUI = GUICreate("Example",@DesktopWidth,@DesktopHeight,0,0)
$ActiveX1 = GUICtrlCreateObj($oIE[1],0,0,@DesktopWidth/2,@DesktopHeight/2)
$ActiveX2 = GUICtrlCreateObj($oIE[2],@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight/2)
$ActiveX3 = GUICtrlCreateObj($oIE[3],0,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
$ActiveX4 = GUICtrlCreateObj($oIE[4],@DesktopWidth/2,@DesktopHeight/2,@DesktopWidth/2,@DesktopHeight/2)
For $Index = 1 To $oIE[0]
    $oIE[$Index].Navigate("http://google.com")
    Do
        Sleep(10)
    Until Not $oIE[$Index].Busy
Next
GUISetState(@SW_SHOW,$hGUI)

; Here are just random send key and clicks
; but you can automate here your specific actions

;This work one by one but you can do actions with any object and without waiting for load
For $Index = 1 To $oIE[0]
    $oForm = _IEFormGetObjByName($oIE[$Index],"f")
    $oQuery = _IEFormElementGetObjByName($oForm,"q")
    _IEFormElementSetValue($oQuery,"Some keys")
    _IEFormSubmit($oForm)
    _IELoadWait($oIE[$Index])
    _IELinkGetCollection($oIE[$Index])
    _IELinkClickByIndex($oIE[$Index],Random(0,@extended-1,1))
Next

While True
    If GUIGetMsg() = -3 Then Exit
    Sleep(10)
WEnd

[jchd]

May I ask the intended purpose of automating, say, 4 copies of a webpage?

[dickjones007]

May I ask the intended purpose of automating, say, 4 copies of a webpage?

lol

as my first post said, it's just a question

a thought about it pop in my mind and i was just wondering

@andreik

it was fun to watch it work

Edited November 12, 2011 by dickjones