Jump to content

Problem with checkboxes

Jorik90

By Jorik90,
in AutoIt GUI Help and Support

 Share

Recommended Posts

Jorik90 Seeker

Jorik90

Posted
Posted

Hello,

I'm pretty new to AutoIT, and I tried a few things till now. I came pretty far using the on-site documentation, which is very nice!

Now my problem, I got a script. In this script a got a very long checkbox list (20 items or something like that). Now I want to view a message when one is selected, but I'll need to do then put for all messages a

GuiCtrlSetState($msgname,$GUI_HIDE). This is a pretty big code, and not nice.

Now I'm looking for a better way, but I can't find one.

Here's my script:

#include <GUIConstants.au3>

; GUI instellingen
GUICreate("Software CD",500,400)
GuiSetIcon("Icon.ico")

; Menu
$menu = GuiCtrlCreateMenu ("&Bestand")
$installmenu = GuiCtrlCreateMenuitem ("&Installeren",$menu)
$exit = GuiCtrlCreateMenuitem ("&Afsluiten",$menu)
$menuhelp = GuiCtrlCreateMenu ("&Help")
$about = GuiCtrlCreateMenuitem ("&Over",$menuhelp)

; Besturingssysteem aanduiding
If @OSVersion = "WIN_2003" Then
 $osname = "Windows 2003"
ElseIf @OSVersion = "WIN_XP" Then
 $osname = "Windows XP"
ElseIf @OSVersion = "WIN_2000" Then
 $osname = "Windows 2000"
ElseIf @OSVersion = "WIN_NT4" Then
 $Osname = "Windows NT4"
ElseIf @OSVersion = "WIN_ME" Then
 $osname = "Windows ME"
ElseIf @OSVersion = "WIN_98" Then
 $osname = "Windows 98"
ElseIf @OSVersion = "WIN_95" Then
 $osname = "Windows 95"
Else
 $osname = "Onbekend OS"
EndIf
$OS = GuiCtrlCreateLabel("Besturingssysteem: " & $osname & " " & @OSServicePack, 0, -1)

; Lijst met software (checkboxes)
$maintree = GUICtrlCreateTreeView (10,20,160,300,$TVS_CHECKBOXES)

$photoshopitem = GuiCtrlCreateTreeViewItem ("Adobe Photoshop CS",$maintree)
$reader6item = GuiCtrlCreateTreeViewItem ("Adobe Reader 6 (9x/ME)",$maintree)
$reader7item = GuiCtrlCreateTreeViewItem ("Adobe Reader 7 (2k/XP)",$maintree)
$bitcometitem = GuiCtrlCreateTreeViewItem ("BitComet",$maintree)
$eagsonitem = GuiCtrlCreateTreeViewItem ("eags on!",$maintree)
$flashitem = GuiCtrlCreateTreeViewItem ("Flash plugin",$maintree)
$filezillaitem = GuiCtrlCreateTreeViewItem ("FileZilla",$maintree)
$htmlkititem = GuiCtrlCreateTreeViewItem ("HTML-Kit",$maintree)
$javaitem = GuiCtrlCreateTreeViewItem ("Java Environment",$maintree)
$firefoxitem = GUICtrlCreateTreeViewItem ("Mozilla Firefox",$maintree)
$msgitem = GuiCtrlCreateTreeViewItem ("MSN Messenger",$maintree)
$msgplusitem = GuiCtrlCreateTreeViewItem ("Msg Plus!",$maintree)
$stuffitem = GuiCtrlCreateTreeViewItem ("Stuffplug NG",$maintree)
$enterpriseitem = GuiCtrlCreateTreeViewItem ("McAfee VirusScan",$maintree)
$mcafeedatitem = GuiCtrlCreateTreeViewItem ("McAfee DAT-file",$maintree)
$firewallitem = GuiCtrlCreateTreeViewItem ("McAfee Desktop Firewall",$maintree)
$netitem = GuiCtrlCreateTreeViewItem (".NET Framework 1.1",$maintree)
$net2item = GuiCtrlCreateTreeViewItem (".NET Framework 2.0",$maintree)
$neroitem = GuiCtrlCreateTreeViewItem ("Nero Burning ROM",$maintree)
$overhooritem = GuiCtrlCreateTreeViewItem ("Overhoor",$maintree)
$pm8item = GuiCtrlCreateTreeViewItem ("Partition Magic",$maintree)
$powerdvditem = GuiCtrlCreateTreeViewItem ("PowerDVD",$maintree)
$qtitem = GuiCtrlCreateTreeViewItem ("QuickTime",$maintree)
$shockitem = GuiCtrlCreateTreeViewItem ("Shockwave plugin",$maintree)
$tsitem = GuiCtrlCreateTreeViewItem ("Teamspeak",$maintree)
$ts3item = GuiCtrlCreateTreeViewItem ("Topstyle Lite",$maintree)
$wmp10item = GuiCtrlCreateTreeViewItem ("WMP 10",$maintree)
$wraritem = GuiCtrlCreateTreeViewItem ("WinRAR",$maintree)
$wzipitem = GuiCtrlCreateTreeViewItem ("WinZip",$maintree)
$xfireitem = GuiCtrlCreateTreeViewItem ("Xfire",$maintree)

; Omschrijvingen
$omschr = GUICtrlCreateGroup ("Status",180,20,300,300)
$photoshop = GuiCtrlCreateLabel("Beeldbewerkingsprogramma voor oa. foto's",190,40,280,270)
            GUICtrlSetState ($photoshop,$GUI_HIDE)
$reader6 = GuiCtrlCreateLabel("9x/ME ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
            GUICtrlSetState ($reader6,$GUI_HIDE)
$reader7 = GuiCtrlCreateLabel("2k/XP ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
      GUICtrlSetState ($reader7,$GUI_HIDE)
$bitcomet = GuiCtrlCreateLabel("Programma voor het openen van .torrent bestanden en dus het downloaden vanaf torrents.",190,40,280,270)
      GUICtrlSetState ($bitcomet,$GUI_HIDE)
$eagson = GuiCtrlCreateLabel("Programma om bestandsnamen en ID3-tags van mp3-bestanden te bewerken. Kan informatie uit de CDDB database halen.",190,40,280,270)
      GUICtrlSetState ($eagson,$GUI_HIDE)
$flash = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Flash.",190,40,280,270)
      GUICtrlSetState ($flash,$GUI_HIDE)
$filezilla = GuiCtrlCreateLabel("FTP-programma.",190,40,280,270)
      GUICtrlSetState ($filezilla,$GUI_HIDE)
$htmlkit = GuiCtrlCreateLabel("Programma voor het bewerken voor webpagina's. Ondersteund oa. HTML, PHP en CSS.",190,40,280,270)
      GUICtrlSetState ($htmlkit,$GUI_HIDE)
$java = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Java-applets.",190,40,280,270)
      GUICtrlSetState ($java,$GUI_HIDE)
$firefox = GuiCtrlCreateLabel("Browser. Goed alternatief voor de standaard Internet Explorer.",190,40,280,270)
      GUICtrlSetState ($firefox,$GUI_HIDE)
$msnmsg = GuiCtrlCreateLabel("Programma om te communiceren over het MSN-netwerk.",190,40,280,270)
      GUICtrlSetState ($msnmsg,$GUI_HIDE)
$msgplus = GuiCtrlCreateLabel("Niet-officiele uitbreiding op MSN voor vele extra functies.",190,40,280,270)
      GUICtrlSetState ($msgplus,$GUI_HIDE)
$stuff = GuiCtrlCreateLabel("Uitbreiding op Msg Plus! voor nog meer opties.",190,40,280,270)
      GUICtrlSetState ($stuff,$GUI_HIDE)
$enterprise = GuiCtrlCreateLabel("Virusscanner. De bedrijfsversie van McAfee's VirusScan. Mogelijkheid tot updates voor onbeperkte tijd over het internet.",190,40,280,270)
      GUICtrlSetState ($enterprise,$GUI_HIDE)
$mcafeedat = GuiCtrlCreateLabel("Update 4630 voor de McAfee VirusScan.",190,40,280,270)
      GUICtrlSetState ($mcafeedat,$GUI_HIDE)
$firewall = GuiCtrlCreateLabel("Firewall. Een firewall van McAfee. Beschermt tegen aanvallen vanaf het internet, en controleert al het in- en uitgaande internetverkeer.",190,40,280,270)
            GUICtrlSetState ($firewall,$GUI_HIDE)
$net = GuiCtrlCreateLabel ("Ondersteuning voor .NET programma's.",190,40,280,270)
            GUICtrlSetState ($netitem,$GUI_HIDE)
$nero = GuiCtrlCreateLabel("Brandprogramma voor het branden van CD's en DVD's.",190,40,280,270)
      GUICtrlSetState ($nero,$GUI_HIDE)
$overhoor = GuiCtrlCreateLabel("Programma om te testen of je bepaalde (zelf ingevoerde) stof beheerst, waarna er een cijfer voor gegeven word.",190,40,280,270)
            GUICtrlSetState ($overhoor,$GUI_HIDE)
$pm8 = GuiCtrlCreateLabel("Programma voor het beheren van partities en oa. het aanmaken hiervan.",190,40,280,270)
            GUICtrlSetState ($pm8,$GUI_HIDE)
$powerdvd = GuiCtrlCreateLabel("Programma voor het afspelen van DVD's op de computer.",190,40,280,270)
            GUICtrlSetState ($powerdvd,$GUI_HIDE)
$qt = GuiCtrlCreateLabel("Programma voor het afspelen van QuickTime-bestanden (oa. .mov).",190,40,280,270)
            GUICtrlSetState ($qt,$GUI_HIDE)
$shock = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Shockwave.",190,40,280,270)
      GUICtrlSetState ($shock,$GUI_HIDE)
$ts = GuiCtrlCreateLabel("Via internet met anderen spreken, bedoeld voor in spellen.",190,40,280,270)
      GUICtrlSetState ($ts,$GUI_HIDE)
$ts3 = GuiCtrlCreateLabel("Programma voor het bewerken van CSS-bestanden.",190,40,280,270)
      GUICtrlSetState ($ts3,$GUI_HIDE)
$wmp10 = GuiCtrlCreateLabel("Windows Media Player 10 voor het afspelen van media en video bestanden.",190,40,280,270)
      GUICtrlSetState ($wmp10,$GUI_HIDE)
$wrar = GuiCtrlCreateLabel("Programma voor het maken en openen van oa. RAR en ZIP bestanden.",190,40,280,270)
      GUICtrlSetState ($wrar,$GUI_HIDE)
$wzip = GuiCtrlCreateLabel("Programma voor het maken en openen van oa. ZIP bestanden (geen RAR).",190,40,280,270)
      GUICtrlSetState ($wzip,$GUI_HIDE)
$xfire = GuiCtrlCreateLabel("Programma om met anderen te spreken tijdens spellen.",190,40,280,270)
      GUICtrlSetState ($xfire,$GUI_HIDE)

$start = GuiCtrlCreateLabel("Klik in de lijst op een programma voor de beschrijving.",190,40,280,270)


; Installatie-knop
$install = GuiCtrlCreateButton("&Installeren...", 10, 330)
GuiSetState()

; Dingen doen (about, installeren, weergeven)
While 1
    $msg = GUIGetMsg()
    

    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $about
            Msgbox(64,"Over","Software CD v1.2 door JB PC" & @CR & "Support: helpdesk90@gmail.com" & @CR & "Website: http://www.jbpc.nl.tt" & @CR & "(c) Copyright 2006 Jorik Berkepas")
        Case $msg = $exit
            ExitLoop
        Case $msg = $firefoxitem
            GUICtrlSetState ($firefox,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $overhooritem
            GUICtrlSetState ($overhoor,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $enterpriseitem
            GUICtrlSetstate ($enterprise,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $mcafeedatitem
            GUICtrlSetstate ($mcafeedat,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $firewallitem
            GUICtrlSetState ($firewall,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $photoshopitem
            GUICtrlSetState ($photoshop,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $eagsonitem
            GUICtrlSetState ($eagson,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $filezillaitem
            GUICtrlSetState ($filezilla,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $htmlkititem
            GUICtrlSetState ($htmlkit,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $javaitem
            GUICtrlSetState ($java,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $flashitem
            GUICtrlSetState ($flash,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $shockitem
            GUICtrlSetState ($shock,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $msgitem
            GUICtrlSetState ($msnmsg,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $msgplusitem
            GUICtrlSetState ($msgplus,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $neroitem
            GUICtrlSetState ($nero,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $netitem OR $msg = $net2item
            GUICtrlSetState ($net,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $pm8item
            GUICtrlSetState ($pm8,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $powerdvditem
            GUICtrlSetState ($powerdvd,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $qtitem
            GUICtrlSetState ($qt,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $reader6item
            GUICtrlSetState ($reader6,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $reader7item
            GUICtrlSetState ($reader7,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $stuffitem
            GUICtrlSetState ($stuff,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $tsitem
            GUICtrlSetState ($ts,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $ts3item
            GUICtrlSetState ($ts3,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $wmp10item
            GUICtrlSetState ($wmp10,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $wraritem
            GUICtrlSetState ($wrar,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $wzipitem
            GUICtrlSetState ($wzip,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $xfireitem
            GUICtrlSetState ($xfire,$GUI_SHOW)
            GUICtrlSetState ($start,$GUI_HIDE)
        Case $msg = $install OR $msg = $installmenu
            If Msgbox(33,"Installatie","Klik op OK om de geselecteerde programma's te installeren.") = 1 Then
                Msgbox(48,"LET OP","De installaties zullen compleet zelfstandig werken. Gebruik tijdens dit proces de pc niet!",5)
                TrayTip ("Installaties","Momenteel bezig met starten van installaties..",20,1)

                If BitAnd(GUICtrlRead($reader6item),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Reader 6","Bezig met het installeren van Adobe Reader 6 (9x/ME).",20,1)
                   RunWait ("files/reader/60/setup.exe /S /v/qn")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($reader7item),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Reader 7","Bezig met het installeren van Adobe Reader 7 (2k/XP).",20,1)
                   RunWait ("files/reader/70/adobe7install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($photoshopitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Photoshop","Bezig met het installeren van Adobe Photoshop CS.",20,1)
                   RunWait ("files/photoshop/psinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($bitcometitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren BitComet","Bezig met het installeren van BitComet.",20,1)
                   RunWait ("files/bitcomet/bitcometinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($eagsonitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren eags on!","Bezig met het installeren van eags on!.",20,1)
                   RunWait ("files/eagson/eagsoninstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($flashitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Flash Plugin","Bezig met het installeren van Flash-plugin.",20,1)
                   RunWait ("files/flash/flashinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($filezillaitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren FileZilla","Bezig met het installeren van FileZilla.",20,1)
                   RunWait ("files/filezilla/FileZilla_2_2_18_setup.exe /S")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($htmlkititem),$GUI_CHECKED) Then
                     TrayTip ("Installeren HTML-Kit","Bezig met het installeren van HTML-Kit.",20,1)
                   RunWait ("files/htmlkit/htmlkitinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($javaitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Java Environment","Bezig met het installeren van Java Environment.",20,1)
                   RunWait ("files/java/javainstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($firefoxitem),$GUI_CHECKED) Then
                    TrayTip ("Installeren Mozilla Firefox","Bezig met het installeren van Mozilla Firefox.",20,1)
                    RunWait("files/firefox/firefox15install.exe")
                    Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($msgitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren MSN Messenger","Bezig met het installeren van MSN Messenger.",20,1)
                     RunWait("msiexec.exe /package files\msg\MsnMsgs.msi /quiet")
                   Sleep(3000)
                Endif

                If BitAnd(GUICtrlRead($msgplusitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Messenger Plus!","Bezig met het installeren van Messenger Plus! 3.",20,1)
                   RunWait ("files/msgplus/plusinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($stuffitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Stuffplug NG","Bezig met het installeren van Stuffplug NG.",20,1)
                   RunWait ("files/stuffplug/stuffinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($enterpriseitem),$GUI_CHECKED) Then
                    TrayTip ("Installeren McAfee Enterprise","Bezig met het installeren van McAfee VirusScan Enterprise.",20,1)
                    RunWait("files/mcafee_enterprise/Setup.exe /quiet")
                    Sleep(3000)
                EndIf

                If BitAnd(GUICtrlRead($mcafeedatitem),$GUI_CHECKED) Then
                     TrayTip ("Updaten McAfee VirusScan","Bezig met het updaten van de McAfee VirusScan dmv. DAT-file.",20,1)
                   RunWait ("files/mcafeedat/sdat4716.exe /SILENT")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($firewallitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren McAfee Desktop Firewall","Bezig met het installeren van McAfee Desktop Firewall.",20,1)
                   RunWait ("files/mcafee_firewall/firewallinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($netitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Microsoft .NET Framework 1.1","Bezig met het installeren van Microsoft .NET Framework 1.1.",20,1)
                   RunWait ("files/dotnetfx/netinstall_v11.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($net2item),$GUI_CHECKED) Then
                     TrayTip ("Installeren Microsoft .NET Framework 2.0","Bezig met het installeren van Microsoft .NET Framework 2.0.",20,1)
                   RunWait ("files/dotnetfx/netinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($neroitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Nero - Burning ROM","Bezig met het installeren van Nero - Burning ROM.",20,1)
                   RunWait ("files/nero/neroinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($overhooritem),$GUI_CHECKED) Then
                  TrayTip ("Installeren Overhoor","Bezig met het installeren van Overhoor.",20,1)
                    RunWait("files/overhoor/oh4install.exe")
                    Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($pm8item),$GUI_CHECKED) Then
                     TrayTip ("Installeren Powerquest Partition Magic","Bezig met het installeren van Powerquest Partition Magic 8.",20,1)
                   RunWait ("files/pm8/pm8install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($powerdvditem),$GUI_CHECKED) Then
                     TrayTip ("Installeren PowerDVD","Bezig met het installeren van PowerDVD.",20,1)
                   RunWait ("files/powerdvd/powerdvdinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($qtitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren QuickTime","Bezig met het installeren van QuickTime.",20,1)
                   RunWait ("files/qt/qt.exe")
                   Sleep(3000)
                Endif
                    
                If BitAnd(GUICtrlRead($shockitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Shockwave plugin","Bezig met het installeren van Shockwave plugin.",20,1)
                   RunWait ("files/shockwave/shockinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($tsitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Teamspeak","Bezig met het installeren van Teamspeak.",20,1)
                   RunWait ("files/ts/tsinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($ts3item),$GUI_CHECKED) Then
                     TrayTip ("Installeren TopStyle Lite","Bezig met het installeren van TopStyle Lite.",20,1)
                   RunWait ("files/ts3/ts3lite.exe /s")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($wmp10item),$GUI_CHECKED) Then
                     TrayTip ("Installeren Windows Media Player 10","Bezig met het installeren van Windows Media Player 10.",20,1)
                   RunWait ("files/wmp10/wmp10install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($wraritem),$GUI_CHECKED) Then
                     TrayTip ("Installeren WinRAR","Bezig met het installeren van WinRAR.",20,1)
                   RunWait ("files/wrar/wrarinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($wzipitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren WinZip","Bezig met het installeren van WinZip.",20,1)
                   RunWait ("files/wzip/wzipinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($xfireitem),$GUI_CHECKED) Then
                     TrayTip ("Installeren Xfire","Bezig met het installeren van Xfire.",20,1)
                   RunWait ("files/xfire/xfireinstall.exe")
                   Sleep(3000)
                Endif
                
                TrayTip ("Installaties","Alle geselecteerde installaties zijn afgerond. Het programma zal afsluiten.",20,1)
                Sleep(5000)
                Exit
                
        Endif
    EndSelect
WEnd

GUIDelete()


Exit

In Dutch, but I hope that isn't a problem? To the problem, it is with the $msg = $*item things, I want to do this at once. Only the selected needs to display, all the others need $GUI_HIDE.

Now when I run the script, and select one from the list, and then a thing in the list above the other item, it doesn't display the text.

Hope someone has a suggestion.

Many thanks!

Jorik

Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted (edited)

Use an array for your CTRL handles and then do a for next loop ...

Dim $H_Ctrl[30]
$H_Ctrl[0] = GuiCtrlCreateTreeViewItem ("Adobe Photoshop CS",$maintree)
$H_Ctrl[1]= GuiCtrlCreateTreeViewItem ("Adobe Reader 6 (9x/ME)",$maintree)
$H_Ctrl[2]= GuiCtrlCreateTreeViewItem ("Adobe Reader 7 (2k/XP)",$maintree)
$H_Ctrl[3]= GuiCtrlCreateTreeViewItem ("BitComet",$maintree)
; etc
;

For $x = 0 to 29
   ; your logic
next
Edited by JdeB

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

Link to comment
Share on other sites
Jorik90 Seeker

Jorik90

Posted
  • Author
Posted

Ater a long time, a finaly did it!

My code is now:

#include <GUIConstants.au3>

; GUI instellingen
GUICreate("Software CD",500,400)
GuiSetIcon("Icon.ico")

; Menu
$menu = GuiCtrlCreateMenu ("&Bestand")
$installmenu = GuiCtrlCreateMenuitem ("&Installeren",$menu)
$exit = GuiCtrlCreateMenuitem ("&Afsluiten",$menu)
$menuhelp = GuiCtrlCreateMenu ("&Help")
$about = GuiCtrlCreateMenuitem ("&Over",$menuhelp)

; Besturingssysteem aanduiding
If @OSVersion = "WIN_2003" Then
 $osname = "Windows 2003"
ElseIf @OSVersion = "WIN_XP" Then
 $osname = "Windows XP"
ElseIf @OSVersion = "WIN_2000" Then
 $osname = "Windows 2000"
ElseIf @OSVersion = "WIN_NT4" Then
 $Osname = "Windows NT4"
ElseIf @OSVersion = "WIN_ME" Then
 $osname = "Windows ME"
ElseIf @OSVersion = "WIN_98" Then
 $osname = "Windows 98"
ElseIf @OSVersion = "WIN_95" Then
 $osname = "Windows 95"
Else
 $osname = "Onbekend OS"
EndIf
$OS = GuiCtrlCreateLabel("Besturingssysteem: " & $osname & " " & @OSServicePack, 0, -1)

; Lijst met software (checkboxes)
$maintree = GUICtrlCreateTreeView (10,20,160,300,$TVS_CHECKBOXES)

dim $checkbox_ctrl[31]
$checkbox_ctrl[1] = GuiCtrlCreateTreeViewItem ("Adobe Photoshop CS",$maintree)
$checkbox_ctrl[2] = GuiCtrlCreateTreeViewItem ("Adobe Reader 6 (9x/ME)",$maintree)
$checkbox_ctrl[3] = GuiCtrlCreateTreeViewItem ("Adobe Reader 7 (2k/XP)",$maintree)
$checkbox_ctrl[4] = GuiCtrlCreateTreeViewItem ("BitComet",$maintree)
$checkbox_ctrl[5] = GuiCtrlCreateTreeViewItem ("eags on!",$maintree)
$checkbox_ctrl[6] = GuiCtrlCreateTreeViewItem ("Flash plugin",$maintree)
$checkbox_ctrl[7] = GuiCtrlCreateTreeViewItem ("FileZilla",$maintree)
$checkbox_ctrl[8] = GuiCtrlCreateTreeViewItem ("HTML-Kit",$maintree)
$checkbox_ctrl[9] = GuiCtrlCreateTreeViewItem ("Java Environment",$maintree)
$checkbox_ctrl[10] = GUICtrlCreateTreeViewItem ("Mozilla Firefox",$maintree)
$checkbox_ctrl[11] = GuiCtrlCreateTreeViewItem ("MSN Messenger",$maintree)
$checkbox_ctrl[12] = GuiCtrlCreateTreeViewItem ("Msg Plus!",$maintree)
$checkbox_ctrl[13] = GuiCtrlCreateTreeViewItem ("Stuffplug NG",$maintree)
$checkbox_ctrl[14] = GuiCtrlCreateTreeViewItem ("McAfee VirusScan",$maintree)
$checkbox_ctrl[15] = GuiCtrlCreateTreeViewItem ("McAfee DAT-file",$maintree)
$checkbox_ctrl[16] = GuiCtrlCreateTreeViewItem ("McAfee Desktop Firewall",$maintree)
$checkbox_ctrl[17] = GuiCtrlCreateTreeViewItem (".NET Framework 1.1",$maintree)
$checkbox_ctrl[18] = GuiCtrlCreateTreeViewItem (".NET Framework 2.0",$maintree)
$checkbox_ctrl[19] = GuiCtrlCreateTreeViewItem ("Nero Burning ROM",$maintree)
$checkbox_ctrl[20] = GuiCtrlCreateTreeViewItem ("Overhoor",$maintree)
$checkbox_ctrl[21] = GuiCtrlCreateTreeViewItem ("Partition Magic",$maintree)
$checkbox_ctrl[22] = GuiCtrlCreateTreeViewItem ("PowerDVD",$maintree)
$checkbox_ctrl[23] = GuiCtrlCreateTreeViewItem ("QuickTime",$maintree)
$checkbox_ctrl[24] = GuiCtrlCreateTreeViewItem ("Shockwave plugin",$maintree)
$checkbox_ctrl[25] = GuiCtrlCreateTreeViewItem ("Teamspeak",$maintree)
$checkbox_ctrl[26] = GuiCtrlCreateTreeViewItem ("Topstyle Lite",$maintree)
$checkbox_ctrl[27] = GuiCtrlCreateTreeViewItem ("WMP 10",$maintree)
$checkbox_ctrl[28] = GuiCtrlCreateTreeViewItem ("WinRAR",$maintree)
$checkbox_ctrl[29] = GuiCtrlCreateTreeViewItem ("WinZip",$maintree)
$checkbox_ctrl[30] = GuiCtrlCreateTreeViewItem ("Xfire",$maintree)

; Omschrijvingen
$omschr = GUICtrlCreateGroup ("Status",180,20,300,300)
dim $omschr_list[31]
$omschr_list[1] = GuiCtrlCreateLabel("Beeldbewerkingsprogramma voor oa. foto's",190,40,280,270)
$omschr_list[2] = GuiCtrlCreateLabel("9x/ME ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
$omschr_list[3] = GuiCtrlCreateLabel("2k/XP ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
$omschr_list[4] = GuiCtrlCreateLabel("Programma voor het openen van .torrent bestanden en dus het downloaden vanaf torrents.",190,40,280,270)
$omschr_list[5] = GuiCtrlCreateLabel("Programma om bestandsnamen en ID3-tags van mp3-bestanden te bewerken. Kan informatie uit de CDDB database halen.",190,40,280,270)
$omschr_list[6] = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Flash.",190,40,280,270)
$omschr_list[7] = GuiCtrlCreateLabel("FTP-programma.",190,40,280,270)
$omschr_list[8] = GuiCtrlCreateLabel("Programma voor het bewerken voor webpagina's. Ondersteund oa. HTML, PHP en CSS.",190,40,280,270)
$omschr_list[9] = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Java-applets.",190,40,280,270)
$omschr_list[10] = GuiCtrlCreateLabel("Browser. Goed alternatief voor de standaard Internet Explorer.",190,40,280,270)
$omschr_list[11] = GuiCtrlCreateLabel("Programma om te communiceren over het MSN-netwerk.",190,40,280,270)
$omschr_list[12] = GuiCtrlCreateLabel("Niet-officiele uitbreiding op MSN voor vele extra functies.",190,40,280,270)
$omschr_list[13] = GuiCtrlCreateLabel("Uitbreiding op Msg Plus! voor nog meer opties.",190,40,280,270)
$omschr_list[14] = GuiCtrlCreateLabel("Virusscanner. De bedrijfsversie van McAfee's VirusScan. Mogelijkheid tot updates voor onbeperkte tijd over het internet.",190,40,280,270)
$omschr_list[15] = GuiCtrlCreateLabel("Update 4630 voor de McAfee VirusScan.",190,40,280,270)
$omschr_list[16] = GuiCtrlCreateLabel("Firewall. Een firewall van McAfee. Beschermt tegen aanvallen vanaf het internet, en controleert al het in- en uitgaande internetverkeer.",190,40,280,270)
$omschr_list[17] = GuiCtrlCreateLabel ("Ondersteuning voor .NET programma's. Versie 2.0.",190,40,280,270)
$omschr_list[18] = GuiCtrlCreateLabel ("Ondersteuning voor .NET programma's. Versie 1.1.",190,40,280,270)
$omschr_list[19] = GuiCtrlCreateLabel("Brandprogramma voor het branden van CD's en DVD's.",190,40,280,270)
$omschr_list[20] = GuiCtrlCreateLabel("Programma om te testen of je bepaalde (zelf ingevoerde) stof beheerst, waarna er een cijfer voor gegeven word.",190,40,280,270)
$omschr_list[21] = GuiCtrlCreateLabel("Programma voor het beheren van partities en oa. het aanmaken hiervan.",190,40,280,270)
$omschr_list[22] = GuiCtrlCreateLabel("Programma voor het afspelen van DVD's op de computer.",190,40,280,270)
$omschr_list[23] = GuiCtrlCreateLabel("Programma voor het afspelen van QuickTime-bestanden (oa. .mov).",190,40,280,270)
$omschr_list[24] = GuiCtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Shockwave.",190,40,280,270)
$omschr_list[25] = GuiCtrlCreateLabel("Via internet met anderen spreken, bedoeld voor in spellen.",190,40,280,270)
$omschr_list[26] = GuiCtrlCreateLabel("Programma voor het bewerken van CSS-bestanden.",190,40,280,270)
$omschr_list[27] = GuiCtrlCreateLabel("Windows Media Player 10 voor het afspelen van media en video bestanden.",190,40,280,270)
$omschr_list[28] = GuiCtrlCreateLabel("Programma voor het maken en openen van oa. RAR en ZIP bestanden.",190,40,280,270)
$omschr_list[29] = GuiCtrlCreateLabel("Programma voor het maken en openen van oa. ZIP bestanden (geen RAR).",190,40,280,270)
$omschr_list[30] = GuiCtrlCreateLabel("Programma om met anderen te chatten tijdens spellen. IM messenger voor spellen.",190,40,280,270)

$start = GuiCtrlCreateLabel("Klik in de lijst op een programma voor de beschrijving.",190,40,280,270)


; Installatie-knop
$install = GuiCtrlCreateButton("&Installeren...", 10, 330)
GuiSetState()

; Dingen doen (veld wijzigen, about, installeren, weergeven)
While 1
    $msg = GUIGetMsg()
    
    $x = 0
    Do
        if $x <> 0 AND $msg = $checkbox_ctrl[$x] Then
            $i = 0
            For $i = 0 to 30
                If $i <> $x Then; if $i is not $x then
                    GUICtrlSetState($omschr_list[$i],$GUI_HIDE)
                    GUICtrlSetState($start,$GUI_HIDE)
                EndIf
            Next
            GUICtrlSetState($omschr_list[$x],$GUI_SHOW)
            $x = 31
        Else
            $x = $x + 1
        Endif
    Until $x = 31

    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $about
            Msgbox(64,"Over","Software CD v1.2 door JB PC" & @CR & "Support: helpdesk90@gmail.com" & @CR & "Website: http://www.jbpc.nl.tt" & @CR & "(c) Copyright 2006 Jorik Berkepas")
        Case $msg = $exit
            ExitLoop

        Case $msg = $install OR $msg = $installmenu
            If Msgbox(33,"Installatie","Klik op OK om de geselecteerde programma's te installeren.") = 1 Then
                Msgbox(48,"LET OP","De installaties zullen compleet zelfstandig werken. Gebruik tijdens dit proces de pc niet!",5)
                TrayTip ("Installaties","Momenteel bezig met starten van installaties..",20,1)

                If BitAnd(GUICtrlRead($checkbox_ctrl[1]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Reader 6","Bezig met het installeren van Adobe Reader 6 (9x/ME).",20,1)
                   RunWait ("files/reader/60/setup.exe /S /v/qn")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[2]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Reader 7","Bezig met het installeren van Adobe Reader 7 (2k/XP).",20,1)
                   RunWait ("files/reader/70/adobe7install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[3]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Adobe Photoshop","Bezig met het installeren van Adobe Photoshop CS.",20,1)
                   RunWait ("files/photoshop/psinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[4]),$GUI_CHECKED) Then
                     TrayTip ("Installeren BitComet","Bezig met het installeren van BitComet.",20,1)
                   RunWait ("files/bitcomet/bitcometinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[5]),$GUI_CHECKED) Then
                     TrayTip ("Installeren eags on!","Bezig met het installeren van eags on!.",20,1)
                   RunWait ("files/eagson/eagsoninstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[6]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Flash Plugin","Bezig met het installeren van Flash-plugin.",20,1)
                   RunWait ("files/flash/flashinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[7]),$GUI_CHECKED) Then
                     TrayTip ("Installeren FileZilla","Bezig met het installeren van FileZilla.",20,1)
                   RunWait ("files/filezilla/FileZilla_2_2_18_setup.exe /S")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[8]),$GUI_CHECKED) Then
                     TrayTip ("Installeren HTML-Kit","Bezig met het installeren van HTML-Kit.",20,1)
                   RunWait ("files/htmlkit/htmlkitinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[9]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Java Environment","Bezig met het installeren van Java Environment.",20,1)
                   RunWait ("files/java/javainstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[10]),$GUI_CHECKED) Then
                    TrayTip ("Installeren Mozilla Firefox","Bezig met het installeren van Mozilla Firefox.",20,1)
                    RunWait("files/firefox/firefox15install.exe")
                    Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[11]),$GUI_CHECKED) Then
                     TrayTip ("Installeren MSN Messenger","Bezig met het installeren van MSN Messenger.",20,1)
                     RunWait("msiexec.exe /package files\msg\MsnMsgs.msi /quiet")
                   Sleep(3000)
                Endif

                If BitAnd(GUICtrlRead($checkbox_ctrl[12]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Messenger Plus!","Bezig met het installeren van Messenger Plus! 3.",20,1)
                   RunWait ("files/msgplus/plusinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[13]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Stuffplug NG","Bezig met het installeren van Stuffplug NG.",20,1)
                   RunWait ("files/stuffplug/stuffinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($checkbox_ctrl[14]),$GUI_CHECKED) Then
                    TrayTip ("Installeren McAfee Enterprise","Bezig met het installeren van McAfee VirusScan Enterprise.",20,1)
                    RunWait("files/mcafee_enterprise/Setup.exe /quiet")
                    Sleep(3000)
                EndIf

                If BitAnd(GUICtrlRead($checkbox_ctrl[15]),$GUI_CHECKED) Then
                     TrayTip ("Updaten McAfee VirusScan","Bezig met het updaten van de McAfee VirusScan dmv. DAT-file.",20,1)
                   RunWait ("files/mcafeedat/sdat4716.exe /SILENT")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[16]),$GUI_CHECKED) Then
                     TrayTip ("Installeren McAfee Desktop Firewall","Bezig met het installeren van McAfee Desktop Firewall.",20,1)
                   RunWait ("files/mcafee_firewall/firewallinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[17]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Microsoft .NET Framework 1.1","Bezig met het installeren van Microsoft .NET Framework 1.1.",20,1)
                   RunWait ("files/dotnetfx/netinstall_v11.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[18]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Microsoft .NET Framework 2.0","Bezig met het installeren van Microsoft .NET Framework 2.0.",20,1)
                   RunWait ("files/dotnetfx/netinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($checkbox_ctrl[19]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Nero - Burning ROM","Bezig met het installeren van Nero - Burning ROM.",20,1)
                   RunWait ("files/nero/neroinstall.exe")
                   Sleep(3000)
                Endif
            
                If BitAnd(GUICtrlRead($checkbox_ctrl[20]),$GUI_CHECKED) Then
                  TrayTip ("Installeren Overhoor","Bezig met het installeren van Overhoor.",20,1)
                    RunWait("files/overhoor/oh4install.exe")
                    Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[21]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Powerquest Partition Magic","Bezig met het installeren van Powerquest Partition Magic 8.",20,1)
                   RunWait ("files/pm8/pm8install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[22]),$GUI_CHECKED) Then
                     TrayTip ("Installeren PowerDVD","Bezig met het installeren van PowerDVD.",20,1)
                   RunWait ("files/powerdvd/powerdvdinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[23]),$GUI_CHECKED) Then
                     TrayTip ("Installeren QuickTime","Bezig met het installeren van QuickTime.",20,1)
                   RunWait ("files/qt/qt.exe")
                   Sleep(3000)
                Endif
                    
                If BitAnd(GUICtrlRead($checkbox_ctrl[24]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Shockwave plugin","Bezig met het installeren van Shockwave plugin.",20,1)
                   RunWait ("files/shockwave/shockinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[25]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Teamspeak","Bezig met het installeren van Teamspeak.",20,1)
                   RunWait ("files/ts/tsinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[26]),$GUI_CHECKED) Then
                     TrayTip ("Installeren TopStyle Lite","Bezig met het installeren van TopStyle Lite.",20,1)
                   RunWait ("files/ts3/ts3lite.exe /s")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[27]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Windows Media Player 10","Bezig met het installeren van Windows Media Player 10.",20,1)
                   RunWait ("files/wmp10/wmp10install.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[28]),$GUI_CHECKED) Then
                     TrayTip ("Installeren WinRAR","Bezig met het installeren van WinRAR.",20,1)
                   RunWait ("files/wrar/wrarinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[29]),$GUI_CHECKED) Then
                     TrayTip ("Installeren WinZip","Bezig met het installeren van WinZip.",20,1)
                   RunWait ("files/wzip/wzipinstall.exe")
                   Sleep(3000)
                Endif
                
                If BitAnd(GUICtrlRead($checkbox_ctrl[30]),$GUI_CHECKED) Then
                     TrayTip ("Installeren Xfire","Bezig met het installeren van Xfire.",20,1)
                   RunWait ("files/xfire/xfireinstall.exe")
                   Sleep(3000)
                Endif
                
                TrayTip ("Installaties","Alle geselecteerde installaties zijn afgerond. Het programma zal afsluiten.",20,1)
                Sleep(5000)
                Exit
                
        Endif
        

    EndSelect
WEnd

GUIDelete()


Exit

And it works!

Many thanks!

If someone got suggestions for my source, please post them. I got the idea I did something not the way it should at best.

Now I've to try to make some extra things, when it doesn't work, I'll ask again here :).

Link to comment
Share on other sites
  • Moderators
SmOke_N Universalist

SmOke_N

Posted
  • Moderators
Posted

Here shortened it a tad...

#include <GUIConstants.au3>
; GUI instellingen
$MainGUI = GUICreate("Software CD",500,400)
GUISetIcon("Icon.ico")
; Menu
$menu = GUICtrlCreateMenu("&Bestand")
$installmenu = GUICtrlCreateMenuItem("&Installeren",$menu)
$exit = GUICtrlCreateMenuItem("&Afsluiten",$menu)
$menuhelp = GUICtrlCreateMenu("&Help")
$about = GUICtrlCreateMenuItem("&Over",$menuhelp)
; Besturingssysteem aanduiding
If @OSVersion = "WIN_2003" Then
    $osname = "Windows 2003"
ElseIf @OSVersion = "WIN_XP" Then
    $osname = "Windows XP"
ElseIf @OSVersion = "WIN_2000" Then
    $osname = "Windows 2000"
ElseIf @OSVersion = "WIN_NT4" Then
    $osname = "Windows NT4"
ElseIf @OSVersion = "WIN_ME" Then
    $osname = "Windows ME"
ElseIf @OSVersion = "WIN_98" Then
    $osname = "Windows 98"
ElseIf @OSVersion = "WIN_95" Then
    $osname = "Windows 95"
Else
    $osname = "Onbekend OS"
EndIf
$OS = GUICtrlCreateLabel("Besturingssysteem: " & $osname & " " & @OSServicePack, 0, -1)
; Lijst met software (checkboxes)
$maintree = GUICtrlCreateTreeView(10,20,160,300,$TVS_CHECKBOXES)
Dim $checkbox_ctrl[31]
$checkbox_ctrl[1] = GUICtrlCreateTreeViewItem("Adobe Photoshop CS",$maintree)
$checkbox_ctrl[2] = GUICtrlCreateTreeViewItem("Adobe Reader 6 (9x/ME)",$maintree)
$checkbox_ctrl[3] = GUICtrlCreateTreeViewItem("Adobe Reader 7 (2k/XP)",$maintree)
$checkbox_ctrl[4] = GUICtrlCreateTreeViewItem("BitComet",$maintree)
$checkbox_ctrl[5] = GUICtrlCreateTreeViewItem("eags on!",$maintree)
$checkbox_ctrl[6] = GUICtrlCreateTreeViewItem("Flash plugin",$maintree)
$checkbox_ctrl[7] = GUICtrlCreateTreeViewItem("FileZilla",$maintree)
$checkbox_ctrl[8] = GUICtrlCreateTreeViewItem("HTML-Kit",$maintree)
$checkbox_ctrl[9] = GUICtrlCreateTreeViewItem("Java Environment",$maintree)
$checkbox_ctrl[10] = GUICtrlCreateTreeViewItem("Mozilla Firefox",$maintree)
$checkbox_ctrl[11] = GUICtrlCreateTreeViewItem("MSN Messenger",$maintree)
$checkbox_ctrl[12] = GUICtrlCreateTreeViewItem("Msg Plus!",$maintree)
$checkbox_ctrl[13] = GUICtrlCreateTreeViewItem("Stuffplug NG",$maintree)
$checkbox_ctrl[14] = GUICtrlCreateTreeViewItem("McAfee VirusScan",$maintree)
$checkbox_ctrl[15] = GUICtrlCreateTreeViewItem("McAfee DAT-file",$maintree)
$checkbox_ctrl[16] = GUICtrlCreateTreeViewItem("McAfee Desktop Firewall",$maintree)
$checkbox_ctrl[17] = GUICtrlCreateTreeViewItem(".NET Framework 1.1",$maintree)
$checkbox_ctrl[18] = GUICtrlCreateTreeViewItem(".NET Framework 2.0",$maintree)
$checkbox_ctrl[19] = GUICtrlCreateTreeViewItem("Nero Burning ROM",$maintree)
$checkbox_ctrl[20] = GUICtrlCreateTreeViewItem("Overhoor",$maintree)
$checkbox_ctrl[21] = GUICtrlCreateTreeViewItem("Partition Magic",$maintree)
$checkbox_ctrl[22] = GUICtrlCreateTreeViewItem("PowerDVD",$maintree)
$checkbox_ctrl[23] = GUICtrlCreateTreeViewItem("QuickTime",$maintree)
$checkbox_ctrl[24] = GUICtrlCreateTreeViewItem("Shockwave plugin",$maintree)
$checkbox_ctrl[25] = GUICtrlCreateTreeViewItem("Teamspeak",$maintree)
$checkbox_ctrl[26] = GUICtrlCreateTreeViewItem("Topstyle Lite",$maintree)
$checkbox_ctrl[27] = GUICtrlCreateTreeViewItem("WMP 10",$maintree)
$checkbox_ctrl[28] = GUICtrlCreateTreeViewItem("WinRAR",$maintree)
$checkbox_ctrl[29] = GUICtrlCreateTreeViewItem("WinZip",$maintree)
$checkbox_ctrl[30] = GUICtrlCreateTreeViewItem("Xfire",$maintree)
; Omschrijvingen
$omschr = GUICtrlCreateGroup("Status",180,20,300,300)
Dim $omschr_list[31]
$omschr_list[1] = GUICtrlCreateLabel("Beeldbewerkingsprogramma voor oa. foto's",190,40,280,270)
$omschr_list[2] = GUICtrlCreateLabel("9x/ME ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
$omschr_list[3] = GUICtrlCreateLabel("2k/XP ONLY! Programma voor het openen van PDF-bestanden.",190,40,280,270)
$omschr_list[4] = GUICtrlCreateLabel("Programma voor het openen van .torrent bestanden en dus het downloaden vanaf torrents.",190,40,280,270)
$omschr_list[5] = GUICtrlCreateLabel("Programma om bestandsnamen en ID3-tags van mp3-bestanden te bewerken. Kan informatie uit de CDDB database halen.",190,40,280,270)
$omschr_list[6] = GUICtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Flash.",190,40,280,270)
$omschr_list[7] = GUICtrlCreateLabel("FTP-programma.",190,40,280,270)
$omschr_list[8] = GUICtrlCreateLabel("Programma voor het bewerken voor webpagina's. Ondersteund oa. HTML, PHP en CSS.",190,40,280,270)
$omschr_list[9] = GUICtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Java-applets.",190,40,280,270)
$omschr_list[10] = GUICtrlCreateLabel("Browser. Goed alternatief voor de standaard Internet Explorer.",190,40,280,270)
$omschr_list[11] = GUICtrlCreateLabel("Programma om te communiceren over het MSN-netwerk.",190,40,280,270)
$omschr_list[12] = GUICtrlCreateLabel("Niet-officiele uitbreiding op MSN voor vele extra functies.",190,40,280,270)
$omschr_list[13] = GUICtrlCreateLabel("Uitbreiding op Msg Plus! voor nog meer opties.",190,40,280,270)
$omschr_list[14] = GUICtrlCreateLabel("Virusscanner. De bedrijfsversie van McAfee's VirusScan. Mogelijkheid tot updates voor onbeperkte tijd over het internet.",190,40,280,270)
$omschr_list[15] = GUICtrlCreateLabel("Update 4630 voor de McAfee VirusScan.",190,40,280,270)
$omschr_list[16] = GUICtrlCreateLabel("Firewall. Een firewall van McAfee. Beschermt tegen aanvallen vanaf het internet, en controleert al het in- en uitgaande internetverkeer.",190,40,280,270)
$omschr_list[17] = GUICtrlCreateLabel("Ondersteuning voor .NET programma's. Versie 2.0.",190,40,280,270)
$omschr_list[18] = GUICtrlCreateLabel("Ondersteuning voor .NET programma's. Versie 1.1.",190,40,280,270)
$omschr_list[19] = GUICtrlCreateLabel("Brandprogramma voor het branden van CD's en DVD's.",190,40,280,270)
$omschr_list[20] = GUICtrlCreateLabel("Programma om te testen of je bepaalde (zelf ingevoerde) stof beheerst, waarna er een cijfer voor gegeven word.",190,40,280,270)
$omschr_list[21] = GUICtrlCreateLabel("Programma voor het beheren van partities en oa. het aanmaken hiervan.",190,40,280,270)
$omschr_list[22] = GUICtrlCreateLabel("Programma voor het afspelen van DVD's op de computer.",190,40,280,270)
$omschr_list[23] = GUICtrlCreateLabel("Programma voor het afspelen van QuickTime-bestanden (oa. .mov).",190,40,280,270)
$omschr_list[24] = GUICtrlCreateLabel("Plugin die ervoor zorgt dat de browser overweg kan met Shockwave.",190,40,280,270)
$omschr_list[25] = GUICtrlCreateLabel("Via internet met anderen spreken, bedoeld voor in spellen.",190,40,280,270)
$omschr_list[26] = GUICtrlCreateLabel("Programma voor het bewerken van CSS-bestanden.",190,40,280,270)
$omschr_list[27] = GUICtrlCreateLabel("Windows Media Player 10 voor het afspelen van media en video bestanden.",190,40,280,270)
$omschr_list[28] = GUICtrlCreateLabel("Programma voor het maken en openen van oa. RAR en ZIP bestanden.",190,40,280,270)
$omschr_list[29] = GUICtrlCreateLabel("Programma voor het maken en openen van oa. ZIP bestanden (geen RAR).",190,40,280,270)
$omschr_list[30] = GUICtrlCreateLabel("Programma om met anderen te chatten tijdens spellen. IM messenger voor spellen.",190,40,280,270)
$start = GUICtrlCreateLabel("Klik in de lijst op een programma voor de beschrijving.",190,40,280,270)
; Installatie-knop
$install = GUICtrlCreateButton("&Installeren...", 10, 330)
GUISetState()
; Make all Run executables into an array
Dim $RunFiles = StringSplit("files/reader/60/setup.exe /S /v/qn,files/reader/70/adobe7install.exe,files/photoshop/psinstall.exe," & _
        "files/bitcomet/bitcometinstall.exe,files/eagson/eagsoninstall.exe,files/flash/flashinstall.exe,files/filezilla/FileZilla_2_2_18_setup.exe /S," & _
        "files/htmlkit/htmlkitinstall.exe,files/java/javainstall.exe,files/firefox/firefox15install.exe,msiexec.exe /package files\msg\MsnMsgs.msi /quiet," & _
        "files/msgplus/plusinstall.exe,files/stuffplug/stuffinstall.exe,files/mcafee_enterprise/Setup.exe /quiet,files/mcafeedat/sdat4716.exe /SILENT," & _ 
        "files/mcafee_firewall/firewallinstall.exe,files/dotnetfx/netinstall_v11.exe,files/dotnetfx/netinstall.exe,files/nero/neroinstall.exe," & _ 
        "files/overhoor/oh4install.exe,files/pm8/pm8install.exe,files/powerdvd/powerdvdinstall.exe,files/qt/qt.exe,files/shockwave/shockinstall.exe," & _ 
        "files/ts/tsinstall.exe,files/ts3/ts3lite.exe /s,files/wmp10/wmp10install.exe,files/wrar/wrarinstall.exe,files/wzip/wzipinstall.exe,files/xfire/xfireinstall.exe", ',')
;Make all Tray Tip Titles into an array to match same number for Run
Dim $TrayTipTitle = StringSplit("Installeren Adobe Reader 6|Installeren Adobe Reader 7|Installeren Adobe Photoshop|Installeren BitComet|Installeren eags on!|" & _
        "Installeren Flash Plugin|Installeren FileZilla|Installeren HTML-Kit|Installeren Java Environment|Installeren Mozilla Firefox|Installeren MSN Messenger|" & _ 
        "Installeren Messenger Plus!|Installeren Stuffplug NG|Installeren McAfee Enterprise|Updaten McAfee VirusScan|Installeren McAfee Desktop Firewall|Installeren Microsoft .NET Framework 1.1|" & _
        "Installeren Microsoft .NET Framework 2.0|Installeren Nero - Burning ROM|Installeren Overhoor|Installeren Powerquest Partition Magic|Installeren PowerDVD|" & _ 
        "Installeren QuickTime|Installeren Shockwave plugin|Installeren Teamspeak|Installeren TopStyle Lite|Installeren Windows Media Player 10|Installeren WinRAR|" & _ 
        "Installeren WinZip|Installeren Xfire", "|")
;Make all Tray Tip Texts into an array to match same number for Run and Tray Tip Titles
Dim $TrayTipText = StringSplit("Bezig met het installeren van Adobe Reader 6 (9x/ME).|Bezig met het installeren van Adobe Reader 7 (2k/XP).|Bezig met het installeren van Adobe Photoshop CS.|" & _
        "Bezig met het installeren van BitComet.|Bezig met het installeren van eags on!|Bezig met het installeren van Flash-plugin.|Bezig met het installeren van FileZilla.|" & _
        "Bezig met het installeren van HTML-Kit.|Bezig met het installeren van Java Environment.|Bezig met het installeren van Mozilla Firefox.|Bezig met het installeren van MSN Messenger.|" & _
        "Bezig met het installeren van Messenger Plus! 3.|Bezig met het installeren van Stuffplug NG.|Bezig met het installeren van McAfee VirusScan Enterprise.|" & _ 
        "Bezig met het updaten van de McAfee VirusScan dmv. DAT-file.|Bezig met het installeren van McAfee Desktop Firewall.|Bezig met het installeren van Microsoft .NET Framework 1.1.|" & _
        "Bezig met het installeren van Microsoft .NET Framework 2.0.|Bezig met het installeren van Nero - Burning ROM.|Bezig met het installeren van Overhoor.|" & _
        "Bezig met het installeren van Powerquest Partition Magic 8|Bezig met het installeren van PowerDVD.|Bezig met het installeren van QuickTime.|Bezig met het installeren van Shockwave plugin.|" & _
        "Bezig met het installeren van Teamspeak.|Bezig met het installeren van TopStyle Lite.|Bezig met het installeren van Windows Media Player 10.|" & _
        "Bezig met het installeren van WinRAR.|Bezig met het installeren van WinZip.|Bezig met het installeren van Xfire.", "|")
MsgBox(0, '', UBound($TrayTipText) - 1)
; Dingen doen (veld wijzigen, about, installeren, weergeven)
While 1
    $msg = GUIGetMsg()
    $x = 0
    Do
        If $x <> 0 And $msg = $checkbox_ctrl[$x] Then
            $i = 0
            For $i = 0 To 30
                If $i <> $x Then; if $i is not $x then
                    GUICtrlSetState($omschr_list[$i],$GUI_HIDE)
                    GUICtrlSetState($start,$GUI_HIDE)
                EndIf
            Next
            GUICtrlSetState($omschr_list[$x],$GUI_SHOW)
            $x = 31
        Else
            $x = $x + 1
        EndIf
    Until $x = 31
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $about
            MsgBox(64,"Over","Software CD v1.2 door JB PC" & @CR & "Support: helpdesk90@gmail.com" & @CR & "Website: http://www.jbpc.nl.tt" & @CR & "(c) Copyright 2006 Jorik Berkepas")
        Case $msg = $exit
            ExitLoop
        Case $msg = $install Or $msg = $installmenu
            If MsgBox(33,"Installatie","Klik op OK om de geselecteerde programma's te installeren.") = 1 Then
                MsgBox(48,"LET OP","De installaties zullen compleet zelfstandig werken. Gebruik tijdens dit proces de pc niet!",5)
                TrayTip("Installaties","Momenteel bezig met starten van installaties..",20,1)
                For $i = 1 To 30
                    If BitAND(GUICtrlRead($checkbox_ctrl[$i]), $GUI_CHECKED) Then
                        TrayTip($TrayTipTitle[$i], $TrayTipText[$i] , 20, 1)
                        RunWait($RunFiles[$i])
                        Sleep(3000)
                    EndIf
                Next
                TrayTip("Installaties","Alle geselecteerde installaties zijn afgerond. Het programma zal afsluiten.",20,1)
                Sleep(5000)
                Exit
            EndIf
    EndSelect
WEnd
GUIDelete($MainGUI)
Exit

Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.

Link to comment
Share on other sites
Helge Universalist

Helge

Posted
Posted

Hello,

I'm pretty new to AutoIT, and I tried a few things till now.

I came pretty far using the on-site documentation, which is very nice!

You do know that there's a documentation included in the AutoIt installation, right ?
Link to comment
Share on other sites
Jorik90 Seeker

Jorik90

Posted
  • Author
Posted (edited)

You do know that there's a documentation included in the AutoIt installation, right ?

No, I didn't :

I already saw the documentation using SciTE, but I didn't notice it was included. Thanks for the comment, now I know where to look :mellow:. I always used Google to get on the AutoIT site, and used Google to search truth the documentation, and it worked pretty nice :

@ Smoke N

Thanks!

A other thing: what's the difference between For $i = 1 to 10 .. Next and Do ... Until $i = 10? Does it result in the same thing as i used it in 

Do
        If $x <> 0 And $msg = $checkbox_ctrl[$x] Then
            $i = 0
            For $i = 0 To 30
                If $i <> $x Then; if $i is not $x then
                    GUICtrlSetState($omschr_list[$i],$GUI_HIDE)
                    GUICtrlSetState($start,$GUI_HIDE)
                EndIf
            Next
            GUICtrlSetState($omschr_list[$x],$GUI_SHOW)
            $x = 31
        Else
            $x = $x + 1
        EndIf
    Until $x = 31

Another one, in the documentation stays 'For $i = 0 to 4 Step -1, what is the 'step' used for. At the doc stays The final numeric value of the variable.; but I don't get what that menas :)..

Which one is better for use as in my example, the for loop, or the dountil loop?

Edited by Jorik90
Link to comment
Share on other sites
  • 1 month later...
thefluxster Seeker

thefluxster

Posted
Posted

Another one, in the documentation stays 'For $i = 0 to 4 Step -1, what is the 'step' used for. At the doc stays The final numeric value of the variable.; but I don't get what that menas :think:..

The "Step" value is incremental value you would like it to use for each step through the loop. I.e. if you put the step equal to 3 and you are counting from 0 to 9, the first time, the value would be 0, then next time, it would be 3, and then 6 and finally 9.

It makes sense in my mind, but maybe I'm not explaining it very clearly.

“Efficiency is doing things right; effectiveness is doing the right things.”-Peter F. Drucker

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...