Sign in to follow this  
Followers 0
dragon

Cant solve the problem :S

8 posts in this topic

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 :P =====================================

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

Share this post


Link to post
Share on other sites



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


AutoIt Links

File-String Hash Plugin Updated! 04-02-2008 Plugins have been discontinued. I just found out.

ComputerGetInfo UDF's Updated! 11-23-2006

External Links

Vortex Revolutions Engineer / Inventor (Web, Desktop, and Mobile Applications, Hardware Gizmos, Consulting, and more)

Share this post


Link to post
Share on other sites

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

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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 .

Share this post


Link to post
Share on other sites

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?


~Projects~1. iPod Ejector 1.0 - Tool Used To Eject iPod in Windows - Uses DevEject.exe :P2. SmartFTP Close Popup Tool - Closes reminders from freeware SmartFTP.~Helpful Links For New Users~1. LXP's Learning AutoIT PDF Guide - <<< Go here for a PDF Guide on learning AutoIT from the ground up!<<<2. AutoIt 1-2-3 <<<Want to learn more about AutoIT quickly? Go Here<<<3. How To Install The Beta And Production Versions Of AutoIT / SciteAutoIT

Share this post


Link to post
Share on other sites

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 :P my english isn't very good :D

Share this post


Link to post
Share on other sites

nobody who can solve my problem ?

Share this post


Link to post
Share on other sites

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.

:)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0