Jump to content

dragon

Active Members
  • Posts

    21
  • Joined

  • Last visited

dragon's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. nobody who can solve my problem ?
  2. yes you understand it my english isn't very good
  3. 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 .
  4. 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 : CODEdim $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
  5. hmm i have this but doesn't work :S Func APP_1() run ("R:\[KLG_STANDAARD]\[ETRUST CLIENT 7.1]\Setup.exe") EndFunc
  6. Hi all , i have a question i would install something that placed on the network share at h:\ but what is the command ? i tried @homeshare but doesn't work :S so who has the answer when i install from @mydocuments it works so its not the fault of my whole script
  7. guys i solved the problem thanks for help :S
  8. Can someone help me ???
  9. ok i have 2 textboxes . 1 option = standard install , 2de option = express install ( user can choose directory to install ) maybe you understand it now . When the user choose for option 1 , i will he get a another screen than when he choose option 2 . So my question is how can i option 1 give another function if i press next . example : i want with option 1 to child_[4] and with option 2 to child_[6].
  10. can someone help me please ??
  11. lol , hmm how can i explain . Ok from the beginning : I have 2 radiobuttons . for example i call them radio1 and radio2 . Now i would give it a function . If i select radio1 then i will to the next child . But when i select radio 2 i want to child 6. explain good now ?
  12. hmm srry for bad explain . But i want that only one can checked . So my question is if check_1 are checked go to child[5] if check_2 is checked go to child[3]
  13. Hi all , i have a wizard now and in the wizard i have 2 checkboxes but i cant link them to a special child :S when i put check_1 on then i will that he choose for another child :S i have tried with while function but i doesn't help :S can someone give me a tip how i can do that ? GuiSetState() $Child_[2] = GuiCreate("", 508, 338, 1, 1, BitOr($WS_CHILD,$WS_TABSTOP)+$WS_DLGFRAME ,-1, $main) $Label_1 = GuiCtrlCreateLabel("Kies hoe u de applicaties wilt installeren:.", 20, 20, 290, 30) GUICtrlCreatePic(@MyDocumentsDir & "\test.gif",15,60, 0,0) ; KLG LOGO ; GUI checkbox ====================================================================================== $check_1 = GUICtrlCreateCheckbox ("Alle standaard applicaties", 210, 90, 150, 20,$BS_AUTORADIOBUTTON) $check_2 = GUICtrlCreateCheckbox ("Programma's zelf selecteren", 210, 110, 150, 50,$BS_AUTORADIOBUTTON) ; 150 staat voor breedte tekst ; =================================================================================================== GuiSetState(@SW_HIDE)
  14. hmm can someone explain me why this function doesn't work ? if $message = radio_1 then $child_[4] ; what do i wrong everything work but when i put a group with radio buttons than he doesn't work . I have 2 radio buttons when radio 1 is selected i would to child_[4] can someone give me tip what code i must use ? do i have to work with case or not ?
  15. got it now i work now with the child commands
×
×
  • Create New...