If ....Problem?

[knotten2]

I have this;

The green part;

If PowerDVD has not been instaled befor, then I want to bypass it. But it seems like the script just "jumps" over it......

If I put in --> WinWaitActive("Question", "", 18), in front of the "IF", the script will see the "Question" window and move on after 18sec. And the the "IF" works fine.

If I put in --> WinWaitActive("Question", ""), in front of the "IF", the script will see the "Question" window and halt. So the "Question" window are noticed .

Iam new at this, so pls. be patient!

Run("PowerDVD6.exe")

If WinWaitActive("Question", "An existing version") Then

ControlClick("Question", "", "Button1")

WinWaitActive("Question", "Would you like to keep your personal settings for PowerDVD?")

ControlClick("Question", "", "Button2")

EndIf

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Do you accept all the terms of the")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button2")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Setup will install the following programs into your computer:")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Please enter your information.")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button2")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Setup will install PowerDVD in")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Please select a program folder.")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button2")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Please select your default PowerDVD skin.")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "Setup has been completed.")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button2")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button4")

Run "C:\Programfiler\CyberLink\PowerDVD\PowerDVD.exe")

If WinExists( "CyberLink Registration") Then

WinWaitActive ("CyberLink Registration", "")

ControlClick("CyberLink Registration", "", "Button4")

Endif

winactivate("Key Activation.", "Please enter CD-Key to activate PowerDVD 6.")

WinWaitActive("Key Activation.", "Please enter CD-Key to activate PowerDVD 6.")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit1", "xxxxx")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit2", "xxxxx")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit3", "xxxxx")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit4", "xxxxx")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit5", "xxxxx")

ControlSend ( "Key Activation.", "Please enter CD-Key to activate PowerDVD 6.", "Edit6", "xxxxx")

ControlClick("Key Activation.", "", "Button2")

WinWaitActive("Activate now...")

ControlClick("Activate now...", "", "Button1")

Edited February 16, 2006 by knotten2

[Jos]

While not WinExists("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")
    If WinExists("Question", "An existing version") Then
        ControlClick("Question", "", "Button1")
    EndIf
    If WinExists("Question", "Would you like to keep your personal settings for PowerDVD?") Then
        ControlClick("Question", "", "Button2")
    EndIf
EndIf
ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

[jjohn]

May be try using runwait("PowerDVD6.exe") instead of run("PowerDVD6.exe"), and let the return @error it produce to decide whether the script get into the green block

[Jos]

May be try using runwait("PowerDVD6.exe") instead of run("PowerDVD6.exe"), and let the return @error it produce to decide whether the script get into the green block

I believe you are missing the point here... all the Winwait and ControlXXX commands perform the pointing and clicking to automate the installation of this software .....

The issue is that not all windows always appear....

[knotten2]

[color=#33CC00]While not WinExists("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")
    If WinExists("Question", "An existing version") Then
        ControlClick("Question", "", "Button1")[/color] EndIf
    If WinExists("Question", "Would you like to keep your personal settings for PowerDVD?") Then
        ControlClick("Question", "", "Button2")
    EndIf
EndIf
ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup...", "", "Button1")

While not WinExists("CyberLink PowerDVD Deluxe v6.0

The green part again. Can you pls. eksplain howe this works....."While not" :">

Yes I know it's basic...but that is on the level Iam....

Edited February 16, 2006 by knotten2

[knotten2]

May be try using runwait("PowerDVD6.exe") instead of run("PowerDVD6.exe"), and let the return @error it produce to decide whether the script get into the green block

I have tried that...no go....

Iam tryng to avoid using "timing" in my script.

It jumps from (1) to (2) hand stops, because the ("Question", window starts to late....I think.

(1)If WinWaitActive("Question", "An existing version") Then

ControlClick("Question", "", "Button1")

WinWaitActive("Question", "Would you like to keep your personal settings for PowerDVD?")

ControlClick("Question", "", "Button2")

EndIf

(2)WinWaitActive("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")

ControlClick("CyberLink PowerDVD Deluxe v6.0 Setup

Edited February 16, 2006 by knotten2

[Jos]

While not WinExists("CyberLink PowerDVD Deluxe v6.0

The green part again. Can you pls. eksplain howe this works....."While not" :">

Yes I know it's basic...but that is on the level Iam....

The While ... Wend loop will be active till a window exists with

WinExists("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")

So when you say While Not Winexists() you say loop as long as the window does not exists.

Hope that helps...

Edited February 16, 2006 by JdeB

[knotten2]

The While ... Wend loop will be active till a window exists with

WinExists("CyberLink PowerDVD Deluxe v6.0 Setup...", "A system with Pentium III 500 or")

So when you say While Not Winexists() you say loop as long as the window does not exists.

Hope that helps...

Thanks, that was quick.

I understand, great forum!

[knotten2]

Thanks a lot.

It works here too;

While Not WinExists("Key Activation.", "Please enter CD-Key to activate PowerDVD 6.")

If WinExists("CyberLink Registration", "") Then

ControlClick("CyberLink Registration", "", "Button4")

EndIf

WEnd

winactivate("Key Activation.", "Please enter CD-Key to activate PowerDVD 6.")