Cant solve the problem :S

[dragon]

Hi all ,

i have now created a installer but i want if choos more than 1 options that they installing if the app before ended :S

who can help me ?

in the function 1,2 and 3 i tried somethings but it wouldn't work :S

Here is script :

CODE

dim $APP1_CHKBOX

dim $APP2_CHKBOX

dim $APP3_CHKBOX

dim $APP4_CHKBOX

dim $APP5_CHKBOX

dim $APP6_CHKBOX

dim $APP7_CHKBOX

dim $APP8_CHKBOX

dim $APP9_CHKBOX

dim $APP10_CHKBOX

dim $RUN

dim $EXIT

dim $status1

dim $status2

dim $status3

dim $status4

dim $status5

dim $status6

dim $status7

dim $status8

dim $status9

dim $status10

dim $A_APP1

dim $A_APP2

dim $A_APP3

dim $A_APP4

dim $A_APP5

dim $A_APP6

dim $A_APP7

dim $A_APP8

dim $A_APP9

dim $A_APP10

$A_APP1 = 0

$A_APP2 = 0

$A_APP3 = 0

$A_APP4 = 0

$A_APP5 = 0

$A_APP6 = 0

$A_APP7 = 0

$A_APP8 = 0

$A_APP9 = 0

$A_APP10 = 0

#include <GUIConstants.au3>

GUICreate ("KLG Applicaties installer - KLG - Europe",580,400)

GUISetFont(14,600)

GUICtrlCreateLabel("KLG - Europe installatie",125,80)

GUISetFont(9,400)

; ------------------------------------------Naam geving programma's ------------------------------------------

$APP1_CHKBOX = GUICtrlCreateCheckbox("E-trust Antivirus",10,130) ;Checkbox 1

$APP2_CHKBOX = GUICtrlCreateCheckbox("Microsoft Office 2003",10,150) ;Checkbox 2

$APP3_CHKBOX = GUICtrlCreateCheckbox("Acrobat reader",10,170) ;Checkbox 3

$APP4_CHKBOX = GUICtrlCreateCheckbox("AND Routeplanner",10,190) ;Checkbox 4

$APP5_CHKBOX = GUICtrlCreateCheckbox("ID automation",10,210) ;Checkbox 5

$APP6_CHKBOX = GUICtrlCreateCheckbox("Sun Java",10,230) ;Checkbox 6

$APP7_CHKBOX = GUICtrlCreateCheckbox("Flashplayer",10,250) ;Checkbox 7

$APP8_CHKBOX = GUICtrlCreateCheckbox("ILN",10,270) ;Checkbox 8

$APP9_CHKBOX = GUICtrlCreateCheckbox("Winzip",10,290) ;Checkbox 9

$APP10_CHKBOX = GUICtrlCreateCheckbox("Direct X",10,310) ;Checkbox 10

$RUN = GUICtrlCreateButton("Installeren",10,350,120,20)

$EXIT = GUICtrlCreateButton("Exit",450,350,120,20)

GUISetState()

Do

$msg = GUIGetMsg()

;Checks worden gelezen

$status1 = GUICtrlRead($APP1_CHKBOX)

$A_APP1 = 1

$status2 = GUICtrlRead($APP2_CHKBOX)

$status3 = GUICtrlRead($APP3_CHKBOX)

$status4 = GUICtrlRead($APP4_CHKBOX)

$status5 = GUICtrlRead($APP5_CHKBOX)

$status6 = GUICtrlRead($APP6_CHKBOX)

$status7 = GUICtrlRead($APP7_CHKBOX)

$status8 = GUICtrlRead($APP8_CHKBOX)

$status9 = GUICtrlRead($APP9_CHKBOX)

$status10 = GUICtrlRead($APP10_CHKBOX)

Until $msg = $EXIT or $msg = $RUN

If $msg = $EXIT then Exit

;Status check

IF ($status1 = 1) and ($A_APP1 = 1) then call ("APP_1")

IF ($status2 = 1) and ($A_APP1 = 1) then call ("APP_2")

;~ IF $status3 = 1 then call ("APP_3")

;~ IF $status4 = 1 then call ("APP_4")

;~ IF $status5 = 1 then call ("APP_5")

;~ IF $status6 = 1 then call ("APP_6")

;~ IF $status7 = 1 then call ("APP_7")

;~ IF $status8 = 1 then call ("APP_8")

;~ IF $status9 = 1 then call ("APP_9")

;~ IF $status10 = 1 then call ("APP_10")

Call ("END_APP")

;================== Functies Applicaties =====================================

Func APP_1()

$A_APP1 = 0

run ("\\10.1.1.5\apps\[KLG_STANDAARD]\[ROUTEPLANNERS]\[AND ROUTE]\SETUP.EXE")

WinActivate("AND Routeplanner")

WinActivate("\\10.1.1.5\apps\[KLG_STANDAARD]\[ROUTEPLANNERS]\[AND ROUTE]\SETUP.EXE")

WinWaitActive("\\10.1.1.5\apps\[KLG_STANDAARD]\[ROUTEPLANNERS]\[AND ROUTE]\SETUP.EXE", "",5)

WinWaitClose("APP_1")

$A_APP1 = 1

msgbox (0,"",$A_APP1 & " E Voila !")

EndFunc

Func APP_2()

$A_APP2 = 0

run ("\\10.1.1.5\apps\[KLG_NIET STANDAARD]\[KANTOOR APPLICATIES]\[MICROSOFT]\[OFFICE 2003 INSTALL]\SETUP.EXE")

WinActivate("Office 2003")

WinActivate("\\10.1.1.5\apps\[KLG_NIET STANDAARD]\[KANTOOR APPLICATIES]\[MICROSOFT]\[OFFICE 2003 INSTALL]\SETUP.EXE")

WinWaitActive ("\\10.1.1.5\apps\[KLG_NIET STANDAARD]\[KANTOOR APPLICATIES]\[MICROSOFT]\[OFFICE 2003 INSTALL]\SETUP.EXE", "",5)

EndFunc

Func APP_3()

$A_APP1 = 1

WinWaitClose("APP_2")

run (@MyDocumentsDir & "\AdbeRdr708_nl_NL.exe")

EndFunc

Func APP_4()

$A_APP4 = 0

run ("\\10.1.1.5\apps\[iT]\IDAutomation_C128FontAdvantage\INSTALL.exe")

run ("\\10.1.1.5\apps\[iT]\IDAutomation_C128FontAdvantage\INSTALL.exe")

EndFunc

Func APP_5()

$A_APP5 = 0

run ("\\10.1.1.5\apps\[iT]\IDAutomation_C128FontAdvantage\INSTALL.exe")

EndFunc

Func APP_6()

$A_APP6 = 0

run ("\\10.1.1.5\apps\[KLG_STANDAARD]\[iNTERNET]\[JAVA SUN]\j2re-1_4_2_12-windows-i586-p.exe")

EndFunc

Func APP_7()

$A_APP7 = 0

run ("\\10.1.1.5\apps\[KLG_STANDAARD]\[iNTERNET]\[flash PLAYER]\FlashPlayer v8.0.22.0.exe")

EndFunc

Func APP_8()

$A_APP9 = 0

run (@MyDocumentsDir & "\AdbeRdr708_nl_NL.exe")

EndFunc

Func APP_9()

$A_APP9 = 0

run ("\\10.1.1.5\apps\[KLG_STANDAARD]\[WINZIP]\winzip90.exe")

EndFunc

Func APP_10()

$A_APP10 = 0

run ("\\10.1.1.5\apps\[KLG_STANDAARD]\[DIRECTX]\[9C]\dxsetup.exe")

EndFunc

Func END_APP()

MsgBox(4096,"Even geduld AUB","Alle geselecteerde applicaties worden geinstalleerd")

EndFunc

[JSThePatriot]

I am not exactly sure what it is that you are wanting. If you could try again to further explain the problem you are having I would be more than happy to try and help.

JS

[Jos]

try this version of the messageloop :

Do
    $msg = GUIGetMsg()

    If $msg = $RUN then     
        ;Checks worden gelezen
        $status1 = GUICtrlRead($APP1_CHKBOX)
        $A_APP1 = 1
        $status2 = GUICtrlRead($APP2_CHKBOX)
        $status3 = GUICtrlRead($APP3_CHKBOX)
        $status4 = GUICtrlRead($APP4_CHKBOX)
        $status5 = GUICtrlRead($APP5_CHKBOX)
        $status6 = GUICtrlRead($APP6_CHKBOX)
        $status7 = GUICtrlRead($APP7_CHKBOX)
        $status8 = GUICtrlRead($APP8_CHKBOX)
        $status9 = GUICtrlRead($APP9_CHKBOX)
        $status10 = GUICtrlRead($APP10_CHKBOX)
        ExitLoop
    EndIf
Until $msg = $EXIT

[dragon]

try this version of the messageloop :

Do
    $msg = GUIGetMsg()

    If $msg = $RUN then     
        ;Checks worden gelezen
        $status1 = GUICtrlRead($APP1_CHKBOX)
        $A_APP1 = 1
        $status2 = GUICtrlRead($APP2_CHKBOX)
        $status3 = GUICtrlRead($APP3_CHKBOX)
        $status4 = GUICtrlRead($APP4_CHKBOX)
        $status5 = GUICtrlRead($APP5_CHKBOX)
        $status6 = GUICtrlRead($APP6_CHKBOX)
        $status7 = GUICtrlRead($APP7_CHKBOX)
        $status8 = GUICtrlRead($APP8_CHKBOX)
        $status9 = GUICtrlRead($APP9_CHKBOX)
        $status10 = GUICtrlRead($APP10_CHKBOX)
        ExitLoop
    EndIf
Until $msg = $EXIT

thx but it doesn't work so i want it work . I want that if i select 5 or 6 options ( example ) that the applications 1 for 1 installing . So if the first setup is finisched than must start the 2d etc .

[Neoborn]

I believe what he is saying is that:

1. Has a installer program with multiple options.

2. If the user chooses more than one of those options then the program will wait while the first program is installed then when done start the second program installation.

Yes?

[dragon]

I believe what he is saying is that:

1. Has a installer program with multiple options.

2. If the user chooses more than one of those options then the program will wait while the first program is installed then when done start the second program installation.

Yes?

yes you understand it my english isn't very good

[dragon]

nobody who can solve my problem ?

[MHz]

You cannot use a function name as a parameter for WinWaitClose and expect it to work.

WinWaitClose("APP_1")
oÝ÷ Ù.j[(ç¶(Èz»¬xºuز)^Ùr¢¹æ¥(§²Ö¥)àz[ºÇºÚ&jبû§rبËh©Ýëaz)쵩e>W±ç!yÉ-ç±jjezÛ­¢¸)íè^âëh{-jYVvb¥8b²f²éi~ò¢êÒºrZ½§îËb¢v®¶­s`¤gVæ2ób b33c´ôbÒ 'VåvBb33²gV÷C²b3#²b3#³ãããRb3#¶2b3#µ´´Äuõ5DäD$EÒb3#µ´åDU$äUEÒb3#µ´¤d5TåÒb3#¶£'&RÓóEó%ó"×væF÷w2ÖSb×æWRgV÷C²÷2÷bgV÷C²÷â¤dUDDSÓgV÷C²b33²¤VæDgVæ0

And use the code change that JdeB suggests.