Tab switch script for IE also switches tabs in Windows and other applications

[nomisre]

Hello,

I currently have this script that opens three tabs in IE and switches to the next tab every 60 seconds.

The problem is, that when the script is running, multiple open tabs in the Windows explorer or applications (even AutoIt) also switch. This is not the intension of the script. How can I fix this?

Besides showmaximized, is it also possible to show two IE sessions fully maximized (like F11 does)?
 

#include <IE.au3>


; Opens IE with three tabs

$oIE = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE, "hwnd")
__IENavigate($oIE, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE, "http://www.telegraaf.nl", 0, 0x800)

WinSetState("","",@SW_SHOWMAXIMIZED)


; Tab Loop

While 1
If WinExists($IEhwnd) Then
    WinActivate($IEhwnd)
Else
    ExitLoop
 EndIf


Sleep(5000)
Send("^{TAB}")
WEnd

_IEQuit($oIE)

 

Edited December 4, 2015 by nomisre

[JLogan3o13]

Hi, @nomisre, I reproduced the issue you report only when I minimized the IE window, because your script simply Sends and Alt+TAB. I would suggest changing the logic of your loop so that you are doing a WinActivate on the IE window right before you send the Alt+TAB.

[mLipok]

 

I was playing with this:

expandcollapse popup

#include <IE.au3>

_Example()
Func _Example()

    ; Opens IE with three tabs
    Local $oIE1 = _IECreate("www.google.nl")
    _IELoadWait($oIE1)
    Local $hwndIE1 = _IEPropertyGet($oIE1, "hwnd")

    __IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE2 = Null
    Do
        Sleep(10)
        $oIE2 =_IEAttach('http://www.nu.nl', 'url', 1)
    Until Not @error
    Local $hwndIE2 = _IEPropertyGet($oIE2, "hwnd")

    __IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE3 = Null
    Do
        Sleep(10)
        $oIE3 =_IEAttach('http://www.telegraaf.nl', 'url', 1)
    Until Not @error
    Local $hwndIE3 = _IEPropertyGet($oIE3, "hwnd")

    WinActivate($hwndIE1)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE1), 1)

    WinActivate($hwndIE2)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE2), 2)

    WinActivate($hwndIE3)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE3), 3)

    ; all windows handles are the same
    MsgBox(0, 'WinGetTitle', String($hwndIE1) & @CRLF & String($hwndIE2)& @CRLF & String($hwndIE3))

EndFunc   ;==>_Example

 

But this is not working as you can see in the last MsgBox all this IE has the same window handle, basically it was to be expected, but the best was to check and confirm the experience of empirical knowledge.

....... some time later ....... I found this:

http://stackoverflow.com/questions/3924812/how-can-i-select-a-ie-tab-from-its-handle
http://stackoverflow.com/questions/21293367/cycle-through-open-internet-explorer-tabs
ttps://msdn.microsoft.com/en-us/library/windows/desktop/dd318470(v=vs.85).aspx

And now I'm trying to work on it.
But if some could take care of it I would not be angry 

EDIT:
feel free to help.

 

Edited December 4, 2015 by mLipok

[Danp2]

FWIW, there's a similar thread here. Has anyone tried:

ControlSend("[CLASS:IEFrame]", "", "", "^{Tab}") ;next tab

 

[mLipok]

This works:

expandcollapse popup

#include <IE.au3>

_Example()
Func _Example()

    ; Opens IE with three tabs
    Local $oIE1 = _IECreate("www.google.nl")
    _IELoadWait($oIE1)
    Local $hwndIE1 = _IEPropertyGet($oIE1, "hwnd")

    __IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE2 = Null
    Do
        Sleep(10)
        $oIE2 =_IEAttach('http://www.nu.nl', 'url', 1)
    Until Not @error
    Local $hwndIE2 = _IEPropertyGet($oIE2, "hwnd")

    __IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE3 = Null
    Do
        Sleep(10)
        $oIE3 =_IEAttach('http://www.telegraaf.nl', 'url', 1)
    Until Not @error
    Local $hwndIE3 = _IEPropertyGet($oIE3, "hwnd")

    WinActivate($hwndIE1)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE1), 1)
    ControlSend("[CLASS:IEFrame]", "", "", "^{Tab}")

    WinActivate($hwndIE2)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE2), 2)
    ControlSend("[CLASS:IEFrame]", "", "", "^{Tab}")

    WinActivate($hwndIE3)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE3), 3)
    ControlSend("[CLASS:IEFrame]", "", "", "^{Tab}")

    ; all windows handles are the same
    MsgBox(0, 'WinGetTitle', String($hwndIE1) & @CRLF & String($hwndIE2)& @CRLF & String($hwndIE3))

EndFunc   ;==>_Example

But with IE personally I prefer non "SendKeys" solutions.

 

EDIT
some findings:

 

Edited December 5, 2015 by mLipok

[nomisre]

  On 12/4/2015 at 10:50 PM, mLipok said:

 

I was playing with this:

expandcollapse popup

#include <IE.au3>

_Example()
Func _Example()

    ; Opens IE with three tabs
    Local $oIE1 = _IECreate("www.google.nl")
    _IELoadWait($oIE1)
    Local $hwndIE1 = _IEPropertyGet($oIE1, "hwnd")

    __IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE2 = Null
    Do
        Sleep(10)
        $oIE2 =_IEAttach('http://www.nu.nl', 'url', 1)
    Until Not @error
    Local $hwndIE2 = _IEPropertyGet($oIE2, "hwnd")

    __IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)
    _IELoadWait($oIE1)
    Local $oIE3 = Null
    Do
        Sleep(10)
        $oIE3 =_IEAttach('http://www.telegraaf.nl', 'url', 1)
    Until Not @error
    Local $hwndIE3 = _IEPropertyGet($oIE3, "hwnd")

    WinActivate($hwndIE1)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE1), 1)

    WinActivate($hwndIE2)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE2), 2)

    WinActivate($hwndIE3)
    MsgBox(0, 'hwnd=' & IsHWnd($hwndIE3), 3)

    ; all windows handles are the same
    MsgBox(0, 'WinGetTitle', String($hwndIE1) & @CRLF & String($hwndIE2)& @CRLF & String($hwndIE3))

EndFunc   ;==>_Example

 

But this is not working as you can see in the last MsgBox all this IE has the same window handle, basically it was to be expected, but the best was to check and confirm the experience of empirical knowledge.

....... some time later ....... I found this:

http://stackoverflow.com/questions/3924812/how-can-i-select-a-ie-tab-from-its-handle
http://stackoverflow.com/questions/21293367/cycle-through-open-internet-explorer-tabs
ttps://msdn.microsoft.com/en-us/library/windows/desktop/dd318470(v=vs.85).aspx

And now I'm trying to work on it.
But if some could take care of it I would not be angry 

EDIT:
feel free to help.

 

May I ask why you put all the message boxes in it?

Edited December 7, 2015 by nomisre

[mLipok]

  On 12/7/2015 at 8:43 AM, nomisre said:

May I ask why you put all the message boxes in the code?

for tesitng only, and I wanted to be sure that all pages are fully loaded.

[nomisre]

  On 12/7/2015 at 8:45 AM, mLipok said:

for tesitng only, and I wanted to be sure that all pages are fully loaded.

Is it possible to run two scripts at the same time that are both showed in full screen? When I try this, there's always one IE session that stays minimized.

Edited December 7, 2015 by nomisre

[nomisre]

My script currently looks like this:
 

#include <IE.au3>

; Opens IE with three tabs

Local $oIE1 = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE1, "hwnd")
Local $oIE2 = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE2, "hwnd")
__IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE2, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)
__IENavigate($oIE2, "http://www.telegraaf.nl", 0, 0x800)

Send("{F11}")

; Tab Loop

While 1
If WinExists($IEhwnd) Then
    WinActivate($IEhwnd)
Else
    ExitLoop
 EndIf


Sleep(5000)
Send("^{TAB}")
WEnd

_IEQuit($oIE)

It opens two sessions, one full screen and the other minimized. Is it even possible to get two (or more) full screen sessions?

Edited December 7, 2015 by nomisre

[mLipok]

_IEPropertySet($oIE,"theatermode")

 

[nomisre]

  On 12/7/2015 at 3:52 PM, mLipok said:

_IEPropertySet($oIE,"theatermode")

 

"In theater mode, the browser main window fills the entire screen..."

This means only the first session will be full screen, right?

Edited December 7, 2015 by nomisre

[mLipok]

Do you have few monitors ? I ask because only in this way you can see both sesions/instance . 
You was trying to press F11 which switch browser to theatermode

You can use this on both IE instances but you will see only one on one monitor.

If you thought about something other, then you must be more detailed in your questions.

[nomisre]

  On 12/7/2015 at 4:10 PM, mLipok said:

Do you have few monitors ? I ask because only in this way you can see both sesions/instance . 
You was trying to press F11 which switch browser to theatermode

You can use this on both IE instances but you will see only one on one monitor.

If you thought about something other, then you must be more detailed in your questions.

Yes, I have two monitors. I didn't press F11. The script 'presses' F11 for me.

[mLipok]

  On 12/7/2015 at 4:13 PM, nomisre said:

Yes, I have two monitors. 

So you want to open this two IE instance on diferent monitors in theatremode ?

 

EDIT:

look here:

https://www.autoitscript.com/forum/topic/82353-dual-monitor-resolution-detection/?do=findComment&comment=590685

 

 

Edited December 7, 2015 by mLipok

[nomisre]

  On 12/7/2015 at 4:15 PM, mLipok said:

So you want to open this two IE instance on diferent monitors in theatremode ?

 

EDIT:

look here:

 

 

I have retrieved the positions as well as the height and width that I need for both IE sessions/windows via this code:
 

; Retrieve the position as well as height and width of the active window.
    Local $aPos = WinGetPos("[ACTIVE]")

    ; Display the array values returned by WinGetPos.
    MsgBox($MB_SYSTEMMODAL, "", "X-Pos: " & $aPos[0] & @CRLF & _
            "Y-Pos: " & $aPos[1] & @CRLF & _
            "Width: " & $aPos[2] & @CRLF & _
            "Height: " & $aPos[3])

The first IE session (on the first monitor) should be positioned as x=0, y=0, w=1280, h=1024.
The second one (on the second monitor) should be x=1280, y=0, w=1280, h=1024.

I only don't understand (yet) how to implement this positions in the code.

Edited December 9, 2015 by nomisre

[mLipok]

WinMove(...

 

[nomisre]

  On 12/9/2015 at 9:24 AM, mLipok said:

WinMove(...

 

 

#include <IE.au3>

; Opens two IE sessions with three example tabs
Local $oIE1 = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE1, "hwnd")
__IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)

Local $oIE2 = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE2, "hwnd")
__IENavigate($oIE2, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE2, "http://www.telegraaf.nl", 0, 0x800)

; Set full screen
Send("{F11}")

; Tab loop
While 1
If WinExists($IEhwnd) Then
    WinActivate($IEhwnd)
Else
    ExitLoop
 EndIf


Sleep(5000)
Send("^{TAB}")
WEnd

_IEQuit($oIE1)
_IEQuit($oIE2)

This is my current code. I have tried putting WinMove(1280,0[,1280[,1024]]) on different places, but still no succes.

Edited December 9, 2015 by nomisre

[mLipok]

Show how you tried with WinMove

[nomisre]

  On 12/9/2015 at 11:36 AM, mLipok said:

Show how you tried with WinMove

I have tried several places (see the asterisks *) with this code. I'm not sure if it's correct, because I see all kinds of different things.

WinMove(1280,0[,1280[,1024]])

The first IE session is already showing full screen. The seconds one is only showing like a third of the screen (same screen), so only this one needs to be moved.
 

#include <IE.au3>

; Opens two IE sessions with three example tabs
Local $oIE1 = _IECreate("www.google.nl")
$IEhwnd = _IEPropertyGet($oIE1, "hwnd")
__IENavigate($oIE1, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE1, "http://www.telegraaf.nl", 0, 0x800)

Local $oIE2 = _IECreate("www.google.nl")
*1
$IEhwnd = _IEPropertyGet($oIE2, "hwnd")
__IENavigate($oIE2, "http://www.nu.nl", 0, 0x800)
__IENavigate($oIE2, "http://www.telegraaf.nl", 0, 0x800)


*2

; Set full screen
Send("{F11}")


; Tab loop
While 1
If WinExists($IEhwnd) Then
    WinActivate($IEhwnd)
Else
    ExitLoop
 EndIf


Sleep(5000)
Send("^{TAB}")
WEnd

_IEQuit($oIE1)
_IEQuit($oIE2)

 

Edited December 9, 2015 by nomisre

[nomisre]

I have also tried this simple script as a test,
 

#include <IE.au3>

Local $oIE1 = _IECreate("www.google.nl")
Send("{F11}")

Local $oIE2 = _IECreate("www.nu.nl")
WinMove(0,0,1280,1024)
Send("{F11}")

but still no result

I have also tried WinMove(1280,0,1280,1024)