Need help to Swiitch Programs windows with IE

[AXPPES]

Hello to all,

I need to have in one screen a progrma running and a internet page open and swicthing between both I am using tho option winactivated.

But for the internet page a cannot put the page in front:

This is what I did:

While 1

WinActivate("[CLASS:iexplore]", ""); Activate Internet Explorer

Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go full screen

Sleep(10000); Internet Explorer for 30 seconds

Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go windowed

WinActivate("[CLASS:WMPlayerApp]", ""); Activate Windows Media Player

Send("{ALTDOWN}{enter}{ALTUP}"); Make Media Player go full screen

Sleep(5000);Show Media Player in full screen for 10 seconds

Send("{ALTDOWN}{enter}{ALTUP}"); Make Media Player go windowed

WEnd

Can anyone help me?

Thanks in advance

[JohnOne]

Try

WinWaitActive("[CLASS:iexplore]", "") ;after your WinActivate

[AXPPES]

It doesn´t work...:-(

[water]

Most of the AutoIt functions return a value or set @error. WinActivate returns 0 when there was a problem. So I would use

While 1
    $iRC = WinActivate("[CLASS:iexplore]", ""); Activate Internet Explorer
    If $iRC = 0 Then MsgBox(16, "", "WinActivate for IE was not successful")
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go full screen
    Sleep(10000); Internet Explorer for 30 seconds
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go windowed

    $iRC = WinActivate("[CLASS:WMPlayerApp]", ""); Activate Windows Media Player
    If $iRC = 0 Then MsgBox(16, "", "WinActivate for WMP was not successful")
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Media Player go full screen
    Sleep(5000);Show Media Player in full screen for 10 seconds
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Media Player go windowed
WEnd

Edited April 16, 2012 by water

[AXPPES]

Ok...I got this message error:

WinActivated for IE was not successfull

I open WMplayer ok..but I cannot open IE page

[water]

I use IE9 and it works when I change your statement to

$iRC = WinActivate("[Class:IEFrame]")

[AXPPES]

Works perfectly!!!!! Thanks..

One more question that you can help me... It´s my first time doing this....sorry

On this script I need to put a Powerpoint presentatio running instead of windows media player.....How can I do this? Switch between IExplore and power point presentation?

Thanks once more

[water]

You are talking about a fullscreen presentation or just a presentation opened in powerpoint?

[AXPPES]

A full screen presentation and a full screen webpage with statistics....

[water]

The class for a powerpoint presentation seems to be "screenClass" with Office 2010.

[AXPPES]

no can do......

While 1

$iRC = WinActivate("[CLASS:IEFrame]", ""); Activate Internet Explorer

If $iRC = 0 Then MsgBox(16, "", "WinActivate for IE was not successful")

Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go full screen

Sleep(10000); Internet Explorer for 10 seconds

Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go windowed

$iRC = WinWaitActive("[CLASS:screenClass]", "" ); Activate Windows Power Point

If $iRC = 0 Then MsgBox(16, "", "WinActivate for PPT was not successful")

Send("{ALTDOWN}{enter}{ALTUP}")

Sleep(5000)

Send("{ALTDOWN}{enter}{ALTUP}")

WEnd

It only open the Iexplorer....

[water]

Just tested with Office 2010 and it works.

Start the Autoit Window Info Tool, start the powerpoint presentation and move the crosshair over the powerpoint presentation. What do you get as Window class?

[AXPPES]

This is what I get:

Class: screenClass

Position: 0, 0

Size: 1280, 1024

Style: 0x94000000

ExStyle: 0x00000000

Handle: 0x000C0820

>>>> Control <<<<

Class: paneClassDC

Instance: 1

ClassnameNN: paneClassDC1

Name:

[AXPPES]

But my office is 2007

[water]

This works fine for me:

While 1
    $iRC = WinActivate("[CLASS:IEFrame]", ""); Activate Internet Explorer
    If $iRC = 0 Then MsgBox(16, "", "WinActivate for IE was not successful")
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go full screen
    Sleep(5000); Internet Explorer for 10 seconds
    Send("{ALTDOWN}{enter}{ALTUP}"); Make Internet Explorer go windowed
    $iRC = WinActivate("[CLASS:screenClass]", ""); Activate Windows Power Point
    If $iRC = 0 Then MsgBox(16, "", "WinActivate for PPT was not successful")
    Sleep(2000)
WEnd

[AXPPES]

Thanks a lot for the help......now it´s working well.

[water]

Glad to be of service