Beiträge von Masterraven9

  • HTML Seite als Hintergrund

    thx

    Aber da ich auch auf php Dateien und einen MySQL Server zugreife die auf einem anderen PC sind, klappt das nicht so gut (soweit ich die Funktionsweise von hta Dateien verstanden hab).
    Außerdem funktioniert ja schon alles meine Fragen sind eher Designtechnisch z.B. wie kann ich Buttons über das Fenster legen, wie kann ich den Scrollbalken an der Seite verschwinden lassen und wie kann ich die Taskliste in den Hintergrund setzen.

    thx

  • HTML Seite als Hintergrund

    Hy,

    ich versuche gerade ein Programm zu schreiben das als Hintergrund eine HTML Seite hat auf der ich gerne arbeiten möchte.
    Ich möchte das Programm im Vollbildmodus (1680x1050) haben ohne Ränder.
    Bis jetzt hab ich zwar schon die Seite als Hintergrund mit der ich arbeiten kann, doch leider wird unten noch die Taskleiste angezeigt und rechts ein scrollbalken.
    Außerdem werden die Buttons nicht über das Objekt gelegt, geht das überhaupt?

    Ich hoffe jemand kann mir helfen.

    bisheriger Code

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $oIE = ObjCreate("Shell.Explorer.2")

    [/autoit] [autoit][/autoit] [autoit]

    $main = GUICreate ( "", 1680, 1050, 0, 0, $WS_POPUP,$WS_EX_TOOLWINDOW)
    $GUIActiveX = GUICtrlCreateObj ( $oIE, 0, 0, 1680, 1050)
    $GUI_Button_Back = GuiCtrlCreateButton ("Back", 10, 620, 100, 30)
    $GUI_Button_Forward = GuiCtrlCreateButton ("Forward", 120, 620, 100, 30)

    [/autoit] [autoit][/autoit] [autoit]

    $GUI_Button_X = GuiCtrlCreateButton ("X", 950, 30, 50, 50)
    GUICtrlSetState($GUI_Button_X,$GUI_ONTOP)
    $GUI_Button_Home = GuiCtrlCreateButton ("Home", 230, 620, 100, 30)
    $GUI_Button_Play = GuiCtrlCreateButton ("Play", 330, 620, 100, 30)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState () ;Show GUI

    [/autoit] [autoit][/autoit] [autoit]

    $oIE.navigate("http://192.168.0.254/index.html")

    [/autoit] [autoit][/autoit] [autoit]

    ; Waiting for user to close the window
    While 1
    $msg = GUIGetMsg()

    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    $oIE.navigate("http://192.168.0.254/index.html")
    Case $msg = $GUI_Button_Back
    $oIE.GoBack
    Case $msg = $GUI_Button_Forward
    $oIE.GoForward
    Case $msg = $GUI_Button_X
    Exit
    Case $msg = $GUI_Button_Play
    $file = $oIE.Document.documentElement.outerHTML
    $file = StringTrimLeft($file, StringInStr( $file, "<:-:", 1) + 3)
    $file = StringTrimRight($file, StringLen($file) - StringInStr( $file, ":-:>", 1) + 1)
    MsgBox(0,"titel",$file)
    EndSelect

    Wend

    [/autoit] [autoit][/autoit] [autoit]

    GUIDelete ()

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit]

    Ich habe auch schon verschiedene Arten mit GUICTRLSETSTATE versucht doch leider hat es nicht funktioniert.

    thx

  • Seriendatenbank

    thx erstmal für die Antworten ich hatte auch keine Probleme mit der Kommunikation zwischen Autoit und MySQL, auch die Abfrage ist nicht das Problem sondern ich hatte einfach keine Idee wie ich das alles Ausgeben könnte aber BugFix hat da ja jetzt ein par Beispiele gebracht.

    thx

  • Seriendatenbank

    Hy Leude,

    heut hab ich mal ein ganz anderes Problem.
    Ich würde gerne eine Seriendatenbank erstellen auf MySQL Basis, die Serien, Infos und Verlinkungen zu den Files sind alle schon in einer Datenbank.
    Über ein PHP Script kann ich auch schon das wichtigste auslesen.
    Nun zu meinem Problem ich würde gerne eine Suchfunktion einbauen die wenn ein Teil gefunden wird die dazugehörige Serie, Staffel usw. anzeigt.

    Bsp.:
    ______________________________
    Suche "das":

    Serie Autoit
    |
    |-Staffel 02
    |
    |--Folge 3 das Programm
    |--Folge 34 das weiß man nicht
    ________________________________

    So nun würde ich gerne auf die Serie klicken können so das alle Teile die von der Serie verfügbar sind angezeigt werden, genau das selbe soll passieren wenn man auf die Staffel klickt und wenn man auf die Folge klickt soll sich ein Beschreibungsfenster öffnen.

    So nun mein Problem:

    Ich habe keine Ahnung wie ich das realisieren kann d.h. wie erstelle ich zum Beispiel dynamisch erzeugte Buttons inkl. Funktion oder hat vll einer eine bessere Idee wie man das aufteilen/anzeigen könnte.

    Hoffe hier kann mir jemand helfen.

    thx

  • transparentes Label?

    Hy,

    ich hab mal wieder ne Frage. Ich habe eine Prog was eine GUI erzeugt mit einem Hintergrundbild nun wüsste ich gerne wie ich ein Label so einstellen kann das die Schrift noch zu lesen ist aber das Hintergrundbild zu sehen ist undnicht dieser Kasten?

    thx

  • WinFuture Hotfix Installer

    So da ich jetzt schon mehrere Anfragen bekommen habe poste ich den Quellcode einfach mal es ist sehr einfach gehalten und auch nicht wirklich irgendwas tolles dabei und fertig ist es leider auch nicht.

    Spoiler anzeigen
    [autoit]


    #include <GuiConstants.au3>
    #include <File.au3>
    #requireadmin

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $autorun = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Computer-Company", "Unattended-autorun")

    [/autoit] [autoit][/autoit] [autoit]

    If $autorun = 1 Then
    $hotfix_title = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Unattended-autorun")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Unattended-autorun")
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel")
    MsgBox(4096, "Status Unattended", "Setup wird überwacht", 5)
    Sleep(10000)
    WinWait($hotfix_title,"Status")
    WinWait($hotfix_title,"Jetzt nicht neu starten")
    WinActivate($hotfix_title,"Jetzt nicht neu starten")
    ControlClick($hotfix_title,"Beenden","TButton2")
    Exit
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; GUI
    GuiCreate("Unattended Installer v0.8.1", 400, 580)
    GuiSetIcon("installer.ico", 0)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel("powerd by", 160, 5)
    GUISetFont (14, 400, 1)
    GUICtrlCreateLabel("Firma :-)", 110, 21)
    GUICtrlSetTip(-1, "and Masterraven9")
    GUISetFont (9, 400, 0)
    GUICtrlSetColor(-1,0xD18127)

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Haupt-Auswahl
    GuiCtrlCreateGroup("", 5, 45, 390, 35)
    $auswahl_1 = GuiCtrlCreateRadio("Installation", 40, 55, 90)
    GuiCtrlSetState(-1, $GUI_CHECKED)
    $CLEAN = GUICtrlCreateButton("clean", 160, 56, 60, 20)
    GUICtrlSetTip(-1, "Bereinigt den Systemstart.")
    $auswahl_2 = GuiCtrlCreateRadio("Updates", 260, 55, 90)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Haupt-Auswahl

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Windows Version
    GuiCtrlCreateGroup("Windows Version Auswahl", 5, 130, 390, 70, $BS_CENTER)
    $winver_1 = GuiCtrlCreateRadio("Windwos ME", 40, 150, 90)
    $winver_2 = GuiCtrlCreateRadio("Windwos XP", 150, 150, 90)
    $winver_3 = GuiCtrlCreateRadio("Windwos Vista", 260, 150, 100)
    $hotfix = GUICtrlCreateCheckbox ("Hotfixes", 160, 172, 125, 20)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Windows Version

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Design
    GuiCtrlCreateGroup("Design Auswahl", 5, 205, 390, 45, $BS_CENTER)
    $design_standart = GUICtrlCreateCheckbox ("Standartdesign", 30, 222, 150, 20)
    $design_klassisch = GUICtrlCreateCheckbox ("klassisches Design", 220, 222, 150, 20)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Design

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Standart-Tools
    GuiCtrlCreateGroup("Standart-Tools", 5, 255, 390, 82, $BS_CENTER)
    $avast = GUICtrlCreateCheckbox ("AVAST! Home", 30, 275, 100, 20)
    $spybot = GUICtrlCreateCheckbox ("Spybot", 135, 275, 70, 20)
    $ccleaner = GUICtrlCreateCheckbox ("CCleaner", 220, 275, 80, 20)
    If GUICtrlRead($winver_1) = $GUI_CHECKED Then
    $acrobat = GUICtrlCreateCheckbox ( "A. Reader 5", 300, 275, 80, 20)
    Else
    $acrobat = GUICtrlCreateCheckbox ( "A. Reader 8", 300, 275, 80, 20)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetTip(-1, "5.0 für ME, ab 2k/XP 8.0")
    $web = GUICtrlCreateCheckbox ("Smart Surfer", 30, 310, 100, 20)
    $winrar = GUICtrlCreateCheckbox ("Winrar", 135, 310, 80, 20)
    $firefox = GUICtrlCreateCheckbox ("Firefox", 220, 310, 70, 20)
    $gimp = GUICtrlCreateCheckbox ("The GIMP", 300, 310, 80, 20)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Standart-Tools

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH PowerDVD
    GuiCtrlCreateGroup("PowerDVD Version", 5, 345, 390, 50, $BS_CENTER)
    $pdvdver_1 = GuiCtrlCreateRadio("Version 5", 40, 365, 90)
    $pdvdver_2 = GuiCtrlCreateRadio("Version 7", 150, 365, 70)
    $pdvdver_3 = GuiCtrlCreateRadio("nicht installieren", 250, 365, 110)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group PowerDVD

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Nero
    GuiCtrlCreateGroup("Nero Version", 5, 402, 390, 45, $BS_CENTER)
    $nero_1 = GuiCtrlCreateRadio("Version 6", 40, 419, 90)
    $nero_2 = GuiCtrlCreateRadio("Version 7", 150, 419, 70)
    $nero_3 = GuiCtrlCreateRadio("nicht installieren", 250, 419, 110)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Nero

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Office
    GuiCtrlCreateGroup("Erkanntes Office", 5, 450, 390, 45, $BS_CENTER)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Office

    [/autoit] [autoit][/autoit] [autoit]

    $UPDATE = GUICtrlCreateButton("Updates Laden", 125, 500, 150, 20)
    GuiCtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetTip(-1, "First run the Installation")
    $INSTALL = GUICtrlCreateButton("Installation durchführen", 65, 530, 275, 40)
    GUICtrlSetTip(-1, "Starts the Silent Installation")

    [/autoit] [autoit][/autoit] [autoit]

    ; Windows Versions Check
    $winverstr = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")

    [/autoit] [autoit][/autoit] [autoit]

    If GUICtrlRead($winver_1) = $GUI_UNCHECKED AND GUICtrlRead($winver_2) = $GUI_UNCHECKED AND GUICtrlRead($winver_3) = $GUI_UNCHECKED Then

    Select
    Case StringInStr($winverstr,"Vista") <> 0
    GUICtrlSetState($winver_3, $GUI_CHECKED)
    winver()
    Case StringInStr($winverstr,"XP") <> 0 Or StringInStr($winverstr,"2000") <> 0
    GUICtrlSetState($winver_2, $GUI_CHECKED)
    winver()
    Case StringInStr($winverstr,"ME") <> 0 Or StringInStr($winverstr,"98") <> 0 Or StringInStr($winverstr,"95") <> 0
    GUICtrlSetState($winver_1, $GUI_CHECKED)
    winver()
    Case StringInStr($winverstr,"2003") <> 0
    MsgBox(4096, "Wichtig!!","Unknown or Unsupportet Windows. Funktion ist nicht gewährleistet.")
    Case StringInStr($winverstr,"") <> 0
    MsgBox(4096, "Wichtig!!","Unknown or Unsupportet Windows. Funktion ist nicht gewährleistet.")
    EndSelect
    EndIf
    ; ende Windows Versions Check

    [/autoit] [autoit][/autoit] [autoit]

    ; GROUP WITH Windows Version
    GuiCtrlCreateGroup("Erkannte Windows Version", 5, 85, 390, 40, $BS_CENTER)
    GUICtrlCreateLabel($winverstr, 20, 103, 360, 20, $SS_CENTER)
    GUICtrlCreateGroup ("",-99,-99,1,1)
    ;close group Windows Version

    [/autoit] [autoit][/autoit] [autoit]

    ; GUI MESSAGE LOOP
    GuiSetState()
    While 1
    $MSG = GUIGetMsg()

    [/autoit] [autoit][/autoit] [autoit]

    Select
    Case $MSG = $winver_1
    $Button = $winver_1
    winver()

    Case $MSG = $winver_2
    $Button = $winver_2
    winver()

    Case $MSG = $winver_3
    $Button = $winver_3
    winver()

    Case $MSG = $auswahl_1
    $Button = $auswahl_1
    install_auswahl()

    Case $MSG = $auswahl_2
    $Button = $auswahl_2
    update_auswahl()

    Case $MSG = $CLEAN

    ; kopiert Datei wget (frage ob WINME)
    If GUICtrlRead($winver_1) = $GUI_CHECKED Then
    MsgBox(0,"Autostart Cleaner", "Unter Windows ME funktioniert dies nicht.")
    Else
    RunWait(@ScriptDir & "\regclean\start.bat", @ScriptDir & "\regclean\")
    MsgBox(0,"Autostart Cleaner", "Der Autostart wurde aufgeräumt.")
    EndIf
    ; kopieren der Datei beendet

    Case $MSG = $UPDATE

    $pingfield = Ping("www.google.de")
    If $pingfield <> 0 Then
    update()
    Else
    MsgBox(0, "Status", "Es besteht keine Internet Verbindung")
    EndIf

    Case $MSG = $INSTALL
    installation()


    EndSelect


    If $MSG = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ; Installtions Routine Windows 9x/ME/2k/XP/Vista
    Func installation()
    $width = @DesktopWidth
    $height = @DesktopHeight
    If ($width = 800) And ($height = 600) Then
    $guifield = GUICreate("Status", 200, 130, 150, 150)
    Else
    $guifield = GUICreate("Status", 200, 130, 750, 300)
    EndIf
    GUISetState(@SW_SHOW, $guifield)
    $myedit=GUICtrlCreateEdit (""& @CRLF, 20,10,160,110,$ES_AUTOVSCROLL+$WS_VSCROLL)

    ; Kontrollfrage Standart-Design
    If GUICtrlRead($design_standart) = $GUI_CHECKED Then
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1"); Deaktiviert Windows Desktop Aufräum Assistent
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz", "NoRun", "REG_DWORD", "1")
    GUICtrlSetData ($myedit, "Desktopbereinigungs-Assistent wird deaktiviert"& @CRLF,1)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "0"); Fügt Arbeitsplatz Icon hinzu
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "0")
    GUICtrlSetData ($myedit, "Der Arbeitsplatz wird zum Desktop hinzugefügt"& @CRLF,1)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{450D8FBA-AD25-11D0-98A8-0800361B1103}", "REG_DWORD", "0"); Fügt Eigene Dateien Icon hinzu
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{450D8FBA-AD25-11D0-98A8-0800361B1103}", "REG_DWORD", "0")
    GUICtrlSetData ($myedit, "Die Eigenen Dateien zum Desktop hinzugefügt"& @CRLF,1)
    RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", "0"); Fügt Internet-Explorer Icon hinzu
    RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu", "{871C5380-42A0-1069-A2EA-08002B30309D}", "REG_DWORD", "0")
    GUICtrlSetData ($myedit, "Der Internet-Explorer wird zum Desktop hinzugefügt"& @CRLF,1)
    RegWrite("HKEY_CURRENT_USER\Control Panel\Desktop", "ConvertedWallpaper", "REG_SZ", @WindowsDir & "\web\wallpaper\Windows XP.jpg"); ändert das Hintergrundbild
    GUICtrlSetData ($myedit, "Hintergrundbild wird angepasst"& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Standart-Design wurde abgearbeitet

    ; Kontrollfrage Avast
    If GUICtrlRead($avast) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Avast wird installiert"& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    ; Key Auslesen
    Dim $key = IniRead(@ScriptDir & "\config.ini", "avast", "avast_key", "W7408643H5100A1106-5UBK0NH2")

    [/autoit] [autoit][/autoit] [autoit]

    RunWait(@ScriptDir & '\Avast\setupger.exe /VERYSILENT /NORESTART /SP-', @ScriptDir & "\Avast\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Avast wird registriert"& @CRLF,1)
    ; Suche des Avast-Installationsordner
    Sleep(1000)

    IF RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ALWIL Software\Avast\4.0","Avast4ProgramFolder") <> "" Then
    Dim $avastDir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ALWIL Software\Avast\4.0","Avast4ProgramFolder")
    Else
    Dim $avastDir = "C:\Programme\Alwil Software\Avast4"
    EndIf
    ; Suche beendet

    [/autoit] [autoit][/autoit] [autoit]

    Dim $pid = Run($avastDir & "\VisthLic.exe")
    ProcessWait ("VisthLic.exe", 5)
    If Not $pid Then Exit

    [/autoit] [autoit][/autoit] [autoit]

    Dim $var, $handle

    [/autoit] [autoit][/autoit] [autoit]

    ;1st dialog
    While 1
    $var = WinList()
    For $i = 1 to $var[0][0]
    If $var[$i][0] And WinGetProcess($var[$i][1]) = $pid And WinGetClassList($var[$i][1]) Then
    $handle = $var[$i][1]
    WinActivate($handle)
    ControlSetText($handle, "", 1010, $key)
    ControlClick($handle, "", 1) ;Ok
    ExitLoop 2
    EndIf
    Next
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    ;2nd dialog
    While 1
    $var = WinList()
    For $i = 1 to $var[0][0]
    If $var[$i][0] And WinGetProcess($var[$i][1]) = $pid And WinGetClassList($var[$i][1]) And $var[$i][1]<>$handle Then
    WinActivate($var[$i][1])
    ControlClick($var[$i][1], "", 1) ;Ok
    ExitLoop 2
    EndIf
    Next
    WEnd

    GUICtrlSetData ($myedit, "Installation von Avast abgeschlossen."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Avast Anweisung wurde ausgeführt
    ; Kontrollfrage Spybot
    If GUICtrlRead($spybot) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Spybot wird installiert"& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & '\Spybot\spybotsd15.exe /verysilent /COMPONENTS="!update,main,language,skins" /tasks="!launchteatimer,!launchsdhelper,desktopicon,fileassoc" /nocancel', @ScriptDir & '\Spybot\', @SW_HIDE)
    GUICtrlSetData ($myedit, "Spybot wurde erfolgreich installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Spybot Anweisung wurde ausgeführt
    ; Kontrollfrage Ccleaner
    If GUICtrlRead($ccleaner) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "CCleaner wird installiert"& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & '\ccleaner\ccleanersetup.exe /S', @ScriptDir & "\ccleaner\", @SW_HIDE)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\CCleaner", "UpdateCheck", "REG_SZ", "0")
    GUICtrlSetData ($myedit, "CCleaner wurde installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Ccleaner Anweisung wurde ausgeführt
    ; Kontrollfrage Adobe Acrobat Reader
    If GUICtrlRead($acrobat) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Adobe Acrobat Reader wird installiert"& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    If GUICtrlRead($winver_1) = $GUI_CHECKED Then
    RunWait(@ScriptDir & '\acrobat5\Setup.exe -s', @ScriptDir & "\acrobat5\", @SW_HIDE)
    FileDelete( @DesktopCommonDir & '\Acrobat Reader 5.0.lnk')
    Else
    RunWait(@ScriptDir & '\acrobat8\Setup.exe /sAll /rs', @ScriptDir & "\acrobat8\", @SW_HIDE)
    FileDelete( @DesktopCommonDir & '\Adobe Reader 8.lnk')
    EndIf
    GUICtrlSetData ($myedit, "Acrobat Reader wurde installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Adobe Acrobat Reader Anweisung wurde ausgeführt
    ; Kontrollfrage Web.de Smart-Surfer
    If GUICtrlRead($web) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Web.de Smart Surfer wird auf dem System installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\smart-surfer\WEBDE.exe /S", @ScriptDir & "\smart-surfer\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Smart Surfer Installation abgeschlossen."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Web.de Smart-Surfer Anweisung wurde ausgeführt
    ; Kontrollfrage WinRAR Installation
    If GUICtrlRead($winrar) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "WinRAR wird auf dem System installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\winrar\wrar.exe /S", @ScriptDir & "\winrar\", @SW_HIDE)
    GUICtrlSetData ($myedit, "WinRAR wurde erfolgreich installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; WinRAR Anweisung wurde ausgeführt
    ; Kontrollfrage Firefox Setup
    If GUICtrlRead($firefox) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Firefox wird auf dem System installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\firefox\Firefox_Setup.exe -ms", @ScriptDir & "\firefox\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Firefox wurde erfolgreich installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Firefox Anweisung wurde ausgeführt
    ; Kontrollfrage The GIMP
    If GUICtrlRead($gimp) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Die Entwicklungsumbegung für The Gimp wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & '\the-gimp\gtk-setup.exe /SILENT /SP- /NORESTART', @ScriptDir & "\the-gimp\", @SW_HIDE)
    GUICtrlSetData ($myedit, "The Gimp wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & '\the-gimp\gimp-setup.exe /SILENT /SP- /NORESTART', @ScriptDir & "\the-gimp\", @SW_HIDE)
    GUICtrlSetData ($myedit, "The Gimp und die Entwicklungsumgebung wurden installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; GIMP Anweisung wurde ausgeführt

    ; Kontrollfrage PowerDVD5
    If GUICtrlRead($pdvdver_1) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "PowerDVD Version 5 wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\PDVD5\Setup.exe", @ScriptDir & "\PDVD5\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Installation von PowerDVD Version 5 erfolgreich beendet."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; PowerDVD5 Anweisung wurde ausgeführt
    ; Kontrollfrage PowerDVD7
    If GUICtrlRead($pdvdver_2) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "PowerDVD Version 7 wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\PDVD7\Setup.exe", @ScriptDir & "\PDVD7\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Installation von PowerDVD Version 7 erfolgreich beendet."& @CRLF,1)
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "LanguageShortcut")
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; PowerDVD7 Anweisung wurde ausgeführt
    ; Kontrollfrage Nero6
    If GUICtrlRead($nero_1) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit, "Nero 6 wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@ScriptDir & "\Nero6\Nerosetup.exe /silent /noreboot /no_ui /sn=1a23-0609-4030-2333-6402-0097 /write_sn", @ScriptDir & "\Nero6\", @SW_HIDE)
    GUICtrlSetData ($myedit, "Nero 6 wurde in das bestehende System Integriert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    EndIf
    ; Nero6 Anweisung wurde ausgeführt
    ; Kontrollfrage Nero7
    If GUICtrlRead($nero_2) = $GUI_CHECKED Then
    RunWait("dxdiag /x " & @WindowsDir & "\TEMP\dxdiag.log")
    GUICtrlSetData ($myedit, "System wird für die Installation von Nero 7 geprüft."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)

    GUICtrlSetData ($myedit, "Wichtige Systemdateien für Nero7 werden kopiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    DirCreate(@WindowsDir & "\TEMP\Nero7")
    RunWait("xcopy /Y /E /C Nero7\*.* " & @WindowsDir & "\TEMP\Nero7\*.*",@ScriptDir,@SW_HIDE)

    $directx9 = 0

    Dim $lRead
    _FileReadToArray(@WindowsDir & "\TEMP\dxdiag.log", $lRead)
    For $lNum = 1 To $lRead[0]
    If StringLeft($lRead[$lNum], 8) = "DirectX 9.0c" Then
    $directx9 = 1
    ExitLoop
    EndIf
    Next

    If $directx9 <> 1 Then
    GUICtrlSetData ($myedit, "DirextX 9.0C wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@WindowsDir & "\TEMP\Nero7\Redist\DirectX\dxsetup.exe /silent", @WindowsDir & "\TEMP\Nero7\Redist\DirectX\", @SW_HIDE)
    EndIf
    GUICtrlSetData ($myedit, "Nero 7 wird installiert."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    RunWait(@WindowsDir & '\TEMP\Nero7\SetupX.exe /qb! /NORESTART RebootYesNo="No" NERO_SCOUT="FALSE" serialnum_userval="1C82-0000-19E5-MAAX-4005-0331-2675" AgreeToLicense="Yes" EULA_AGREEMENT=1', @WindowsDir & "\TEMP\Nero7\", @SW_HIDE)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Installation\Settings", "AutomaticUpdate", "REG_SZ", "0")
    GUICtrlSetData ($myedit, "Nero 7 wurde in das bestehende System Integriert."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    GUICtrlSetData ($myedit, "Nero 7 Installationskomponenten werden entfernt."& @CRLF,1)
    GUICtrlSetData ($myedit, ""& @CRLF,1)
    RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "NeroFilterCheck")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Ahead\Nero Home\MediaLibrary", "DisableNeroScout", "REG_DWORD", "1")
    DirRemove(@WindowsDir & "\TEMP\Nero7", 1)
    If FileExists(@WindowsDir & "\TEMP\dxdiag.log") Then
    FileDelete(@WindowsDir & "\TEMP\dxdiag.log")
    EndIf
    EndIf
    ; Nero7 Anweisung wurde ausgeführt
    ; Kontrollfrage Hotfixes
    If GUICtrlRead($hotfix) = $GUI_CHECKED Then
    If (GUICtrlRead($winver_2) = $GUI_CHECKED) And (@OSServicePack <> "Service Pack 2") Then
    GUICtrlSetData ($myedit, "Service Pack wird von Hotfixes nicht unterstützt."& @CRLF,1)
    GUICtrlSetData ($myedit, "Installation wird beendet."& @CRLF,1)
    Else
    If GUICtrlRead($winver_2) = $GUI_CHECKED Then
    $hotfix_pfad = IniRead(@ScriptDir & "\config.ini", "Pfade_Hotfixes", "hotfix_xp", "")
    $hotfix_title = IniRead(@ScriptDir & "\config.ini", "Fenster_name", "hotfix_xp_name", "")
    Else
    $hotfix_pfad = IniRead(@ScriptDir & "\config.ini", "Pfade_Hotfixes", "hotfix_vi", "")
    $hotfix_title = IniRead(@ScriptDir & "\config.ini", "Fenster_name", "hotfix_vi_name", "")
    EndIf
    GUICtrlSetData ($myedit, "Hotfixes werden für die installation vorbereitet."& @CRLF,1)
    GUICtrlSetData ($myedit, "......."& @CRLF,1)
    Run(@ScriptDir & "\" & $hotfix_pfad)
    WinWait($hotfix_title, "Info")
    ControlClick($hotfix_title, "Weiter","TButton4")
    WinWait($hotfix_title, "ERGÄNZENDER")
    ControlClick($hotfix_title, "Ich stimme zu","TRadioButton2")
    ControlClick($hotfix_title, "Weiter","TButton3")
    WinWait($hotfix_title, "Abbrechen")
    ControlClick($hotfix_title, "Weiter","TButton3")
    ; Hotfixes installieren

    $i = 0
    Do
    If WinWait("Neu starten","Jetzt neu starten",2) = 1 Then
    $i = $i + 1
    EndIf
    Sleep(2000); wartet 2 sec
    If WinWait($hotfix_title,"Jetzt nicht neu starten",2) = 1 Then
    $i = $i + 1
    EndIf
    Sleep(2000); wartet 2 sec
    Until $i = 1

    If WinExists("Neu starten","Jetzt neu starten") Then ; Installation mit zwischenzeitlichem neustart
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Unattended-autorun", "REG_SZ", "1")
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Firma :-)", "Hotfixtitel", "REG_SZ", $hotfix_title)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Unattended-autorun", "REG_SZ", @ScriptDir & "\" & @ScriptName)
    WinActivate("Neu starten","Jetzt neu starten")
    ControlClick("Neu starten","Jetzt neu starten","TButton1")
    Else ; Installation ohne zwischenzeitlichem neustart
    WinActivate($hotfix_title,"Jetzt nicht neu starten")
    ControlClick($hotfix_title,"Beenden","TButton2")
    EndIf
    EndIf
    EndIf
    GUIDelete($guifield)
    ; Hotfixes Anweisung wurde ausgeführt
    ; Hinweis
    MsgBox(0,"Installation abegeschlossen.", "Alle ausgewählten Programme wurden installiert.")
    EndFunc
    ; ende der Installationsroutine

    ; Update Routine Windows 9x/ME/2k/XP/Vista
    Func update()
    $guifield2 = GUICreate("Status", 200, 130, 750, 300)
    GUISetState(@SW_SHOW, $guifield2)
    $myedit2=GUICtrlCreateEdit (""& @CRLF, 20,10,160,110,$ES_AUTOVSCROLL+$WS_VSCROLL)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetData ($myedit2, "WGET.exe wird kopiert."& @CRLF,1)
    GUICtrlSetData ($myedit2, "......."& @CRLF,1)
    ; kopiert Datei wget (frage ob WINME)
    If GUICtrlRead($winver_1) = $GUI_CHECKED Then
    RunWait(@ScriptDir & "\wget\xcopy /Y wget.exe %windir%\System\", @ScriptDir & "\wget\", @SW_HIDE)
    Else
    RunWait(@ScriptDir & "\wget\xcopy /Y wget.exe %windir%\System32\", @ScriptDir & "\wget\", @SW_HIDE)
    EndIf
    ; kopieren der Datei beendet
    GUICtrlSetData ($myedit2, "WGET.exe wurde kopiert."& @CRLF,1)
    GUICtrlSetData ($myedit2, ""& @CRLF,1)

    ; Kontrollfrage Updates Avast
    If GUICtrlRead($avast) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit2, "Avast Updates werden heruntergeladen."& @CRLF,1)
    GUICtrlSetData ($myedit2, "......."& @CRLF,1)
    RunWait("wget -q http://files.avast.com/iavs4pro/vpsupd.exe", @TempDir, @SW_HIDE)
    GUICtrlSetData ($myedit2, "Avast Updates werden installiert."& @CRLF,1)
    RunWait("vpsupd.exe /SILENT /SP- /NORESTART", @TempDir, @SW_HIDE)
    GUICtrlSetData ($myedit2, "Avast Updates wurden erfolgreich installiert."& @CRLF,1)
    GUICtrlSetData ($myedit2, ""& @CRLF,1)
    EndIf
    ; Avast Updates wurden ausgeführt
    ; Kontrollfrage Updates Spybot
    If GUICtrlRead($spybot) = $GUI_CHECKED Then
    GUICtrlSetData ($myedit2, "Spybot Updates werden heruntergeladen."& @CRLF,1)
    GUICtrlSetData ($myedit2, "......."& @CRLF,1)
    RunWait("wget -q http://www.spybotupdates.com/updates/files/…sd_includes.exe", @TempDir, @SW_HIDE)
    RunWait("wget -q http://www.spybotupdates.com/updates/files/spybotsd_tools.exe", @TempDir, @SW_HIDE)
    RunWait("wget -q http://www.spybotupdates.com/updates/files/…sd_advcheck.exe", @TempDir, @SW_HIDE)
    GUICtrlSetData ($myedit2, "Spybot Updates werden installiert."& @CRLF,1)
    RunWait("spybotsd_includes.exe /S", @TempDir, @SW_HIDE)
    RunWait("spybotsd_tools.exe /S", @TempDir, @SW_HIDE)
    RunWait("spybotsd_advcheck.exe /S", @TempDir, @SW_HIDE)
    GUICtrlSetData ($myedit2, "Spybot Updates wurden erfolgreich installiert."& @CRLF,1)
    GUICtrlSetData ($myedit2, ""& @CRLF,1)
    EndIf
    ; Spybot Updates wurden ausgeführt
    MsgBox(0,"Update-Status", "Updates wurden installiert.")

    EndFunc
    ; ende der Updateroutine

    [/autoit] [autoit][/autoit] [autoit]

    ; Funktion zur auswahl der Installationen
    Func install_auswahl()
    If GUICtrlRead($winver_1) = $GUI_CHECKED Then
    GUICtrlSetState($hotfix, $GUI_UNCHECKED)
    GUICtrlSetState($hotfix, $GUI_DISABLE)
    GUICtrlSetState($CLEAN, $GUI_DISABLE)
    Else
    If StringInStr($winverstr,"2000") <> 0 Then
    GUICtrlSetState($hotfix, $GUI_ENABLE)
    GUICtrlSetState($hotfix, $GUI_UNCHECKED)
    GUICtrlSetState($CLEAN, $GUI_ENABLE)
    Else
    If GUICtrlRead($winver_2) = $GUI_CHECKED Then
    If StringInStr(@OSServicePack,"2") Then
    GUICtrlSetState($hotfix, $GUI_ENABLE)
    GUICtrlSetState($hotfix, $GUI_CHECKED)
    GUICtrlSetState($CLEAN, $GUI_ENABLE)
    Else
    GUICtrlSetState($hotfix, $GUI_UNCHECKED)
    GUICtrlSetState($hotfix, $GUI_DISABLE)
    MsgBox(0,"WICHTIG!!", "Service Pack 2 ist nicht installiert.")
    EndIf
    Else
    GUICtrlSetState($hotfix, $GUI_ENABLE)
    GUICtrlSetState($hotfix, $GUI_CHECKED)
    GUICtrlSetState($CLEAN, $GUI_ENABLE)
    EndIf
    EndIf
    EndIf

    GUICtrlSetState($avast, $GUI_CHECKED)
    GUICtrlSetState($spybot, $GUI_CHECKED)
    GUICtrlSetState($ccleaner, $GUI_ENABLE)
    GUICtrlSetState($ccleaner, $GUI_CHECKED)
    GUICtrlSetState($acrobat, $GUI_ENABLE)
    GUICtrlSetState($acrobat, $GUI_CHECKED)
    GUICtrlSetState($web, $GUI_ENABLE)
    GUICtrlSetState($winrar, $GUI_ENABLE)
    GUICtrlSetState($firefox, $GUI_ENABLE)
    GUICtrlSetState($gimp, $GUI_ENABLE)

    Select
    Case GUICtrlRead($winver_1) = $GUI_CHECKED
    GUICtrlSetState($design_standart, $GUI_UNCHECKED)
    GUICtrlSetState($design_standart, $GUI_DISABLE)
    GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
    GUICtrlSetState($design_klassisch, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_1, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_2, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_1, $GUI_CHECKED)
    GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
    GUICtrlSetState($nero_1, $GUI_ENABLE)
    GUICtrlSetState($nero_2, $GUI_DISABLE)
    GUICtrlSetState($nero_3, $GUI_ENABLE)
    GUICtrlSetState($nero_1, $GUI_CHECKED)
    GUICtrlSetState($nero_2, $GUI_UNCHECKED)
    GUICtrlSetState($nero_3, $GUI_UNCHECKED)

    [/autoit] [autoit][/autoit] [autoit]

    Case GUICtrlRead($winver_2) = $GUI_CHECKED
    GUICtrlSetState($design_standart, $GUI_UNCHECKED)
    GUICtrlSetState($design_standart, $GUI_ENABLE)
    GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
    GUICtrlSetState($design_klassisch, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_1, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_2, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_1, $GUI_CHECKED)
    GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
    GUICtrlSetState($nero_1, $GUI_ENABLE)
    GUICtrlSetState($nero_2, $GUI_ENABLE)
    GUICtrlSetState($nero_3, $GUI_ENABLE)
    GUICtrlSetState($nero_1, $GUI_CHECKED)
    GUICtrlSetState($nero_2, $GUI_UNCHECKED)
    GUICtrlSetState($nero_3, $GUI_UNCHECKED)

    Case GUICtrlRead($winver_3) = $GUI_CHECKED
    GUICtrlSetState($design_standart, $GUI_UNCHECKED)
    GUICtrlSetState($design_standart, $GUI_DISABLE)
    GUICtrlSetState($design_klassisch, $GUI_UNCHECKED)
    GUICtrlSetState($design_klassisch, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_1, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_2, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_3, $GUI_ENABLE)
    GUICtrlSetState($pdvdver_1, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_2, $GUI_CHECKED)
    GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
    GUICtrlSetState($nero_1, $GUI_DISABLE)
    GUICtrlSetState($nero_2, $GUI_ENABLE)
    GUICtrlSetState($nero_3, $GUI_ENABLE)
    GUICtrlSetState($nero_1, $GUI_UNCHECKED)
    GUICtrlSetState($nero_2, $GUI_CHECKED)
    GUICtrlSetState($nero_3, $GUI_UNCHECKED)

    EndSelect

    GUICtrlSetState($UPDATE, $GUI_DISABLE)
    GUICtrlSetState($INSTALL, $GUI_ENABLE)

    If GUICtrlRead($winver_3) = $GUI_CHECKED Then
    MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das Sie den UAC deaktiviert haben.")
    EndIf
    EndFunc
    ; ende der Installationen Auswahl

    [/autoit] [autoit][/autoit] [autoit]

    ; Funktion zur auswahl der Updates
    Func update_auswahl()
    GUICtrlSetState($hotfix, $GUI_UNCHECKED)
    GUICtrlSetState($hotfix, $GUI_DISABLE)
    GUICtrlSetState($avast, $GUI_CHECKED)
    GUICtrlSetState($spybot, $GUI_CHECKED)
    GUICtrlSetState($ccleaner, $GUI_UNCHECKED)
    GUICtrlSetState($ccleaner, $GUI_DISABLE)
    GUICtrlSetState($acrobat, $GUI_UNCHECKED)
    GUICtrlSetState($acrobat, $GUI_DISABLE)
    GUICtrlSetState($web, $GUI_UNCHECKED)
    GUICtrlSetState($web, $GUI_DISABLE)
    GUICtrlSetState($winrar, $GUI_UNCHECKED)
    GUICtrlSetState($winrar, $GUI_DISABLE)
    GUICtrlSetState($firefox, $GUI_UNCHECKED)
    GUICtrlSetState($firefox, $GUI_DISABLE)
    GUICtrlSetState($gimp, $GUI_UNCHECKED)
    GUICtrlSetState($gimp, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_1, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_2, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_3, $GUI_UNCHECKED)
    GUICtrlSetState($pdvdver_1, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_2, $GUI_DISABLE)
    GUICtrlSetState($pdvdver_3, $GUI_DISABLE)
    GUICtrlSetState($nero_1, $GUI_UNCHECKED)
    GUICtrlSetState($nero_2, $GUI_UNCHECKED)
    GUICtrlSetState($nero_3, $GUI_UNCHECKED)
    GUICtrlSetState($nero_1, $GUI_DISABLE)
    GUICtrlSetState($nero_2, $GUI_DISABLE)
    GUICtrlSetState($nero_3, $GUI_DISABLE)

    GUICtrlSetState($UPDATE, $GUI_ENABLE)
    GUICtrlSetState($INSTALL, $GUI_DISABLE)

    If GUICtrlRead($winver_3) = $GUI_CHECKED Then
    MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das Sie den UAC deaktiviert haben.")
    EndIf

    MsgBox(0,"WICHTIG!!", "Gehen Sie sicher das der PC mit dem Internet Verbunden ist.")

    EndFunc
    ; ende der Updaes Auswahl

    [/autoit] [autoit][/autoit] [autoit]

    ; Windows 2k/XP auswahl
    Func winver()
    If GUICtrlRead($auswahl_2) = $GUI_CHECKED Then
    update_auswahl()
    Else
    install_auswahl()
    EndIf
    EndFunc
    ; ende Windows 2k/XP Auswahl

    [/autoit]

    mfg

  • veränderbares Bild klickbar machen

    Ok hab das Problem selber gelöst.
    Manchmal sieht man den Wald vor lauter Bäumen nicht.

    Ich habs so gelöst:

    Spoiler anzeigen
    [autoit]


    #include <GuiConstants.au3>
    #include <File.au3>
    #include <array.au3>
    #NoTrayIcon
    #requireadmin

    [/autoit] [autoit][/autoit] [autoit]

    $guiname = IniRead(@ScriptDir & "\config.ini", "main", "name", "philsign")
    $guiwidth = IniRead(@ScriptDir & "\config.ini", "main", "width", "1680")
    $guiheight = IniRead(@ScriptDir & "\config.ini", "main", "height", "1050")
    $posguix = IniRead(@ScriptDir & "\config.ini", "main", "posguix", "0")
    $posguiy = IniRead(@ScriptDir & "\config.ini", "main", "posguiy", "0")

    [/autoit] [autoit][/autoit] [autoit]

    $anzbtn = IniRead(@ScriptDir & "\config.ini", "main", "anzahl-button", "4")
    $guipic = IniRead(@ScriptDir & "\config.ini", "main", "pfad-hg", "")
    $pospicx = IniRead(@ScriptDir & "\config.ini", "main", "pospicx", "0")
    $pospicy = IniRead(@ScriptDir & "\config.ini", "main", "pospicy", "0")

    [/autoit] [autoit][/autoit] [autoit]

    $background = GUICreate($guiname,$guiwidth,$guiheight,$posguix,$posguiy,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GuiCtrlCreatePic($guipic,$pospicx,$pospicy,$guiwidth,$guiheight)
    GUICtrlSetState(-1,$GUI_DISABLE)

    [/autoit] [autoit][/autoit] [autoit]

    Dim $btnname[$anzbtn], $btnposx[$anzbtn], $btnposy[$anzbtn], $btnwidth[$anzbtn], $btnheight[$anzbtn], $btnpic1[$anzbtn], $btnpic2[$anzbtn], $btnprog[$anzbtn], $btnprogdir[$anzbtn], $button[$anzbtn]

    [/autoit] [autoit][/autoit] [autoit]

    $i = 0
    Do
    $btnname[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "name", "")
    $btnposx[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posx", "")
    $btnposy[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posy", "")
    $btnwidth[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "width", "")
    $btnheight[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "height", "")
    $btnpic1[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic1", "")
    $btnpic2[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic2", "")
    $btnprog[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programm", "Meldung")
    $btnprogdir[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programmdir", "")

    $i = $i + 1
    Until $i = $anzbtn

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $i = 0
    Do
    $button[$i] = GUICtrlCreatePic($btnpic1[$i], $btnposx[$i], $btnposy[$i], $btnwidth[$i], $btnheight[$i])
    $i = $i + 1
    Until $i = $anzbtn

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1

    $nMsg = GUIGetMsg()

    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit
    EndSelect

    $i = 0
    Do
    _PicButtonFromFile($background, $button[$i], $btnpic1[$i], $btnpic2[$i], $btnpic2[$i], $btnname[$i])
    $i = $i + 1
    Until $i = $anzbtn

    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _PicButtonFromFile($hWnd, $controlID, $defaultPic, $onHoverPic, $onClickPic, $Function = "")

    [/autoit] [autoit][/autoit] [autoit]

    Local $resFunc
    If $onClickPic = '' Or $onClickPic = -1 Then $onClickPic = $onHoverPic
    $cMsg = GUIGetCursorInfo($hWnd)
    If $cMsg[4] = $controlID Then
    GUICtrlSetImage( $controlID, $onHoverPic)
    $cMsg = GUIGetCursorInfo($hWnd)
    While $cMsg[4] = $controlID
    If GUIGetMsg() = $controlID Then
    GUICtrlSetImage( $controlID, $onClickPic)
    $resFunc = Call("_aufruf",$Function)
    EndIf
    Sleep(10)
    $cMsg = GUIGetCursorInfo($hWnd)
    WEnd
    GUICtrlSetImage($controlID, $defaultPic)
    Return $resFunc
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>_PicButtonFromFile

    [/autoit] [autoit][/autoit] [autoit]

    Func _aufruf($name)

    $i = 0
    $zahl = 0

    Do
    If $name = $btnname[$i] Then
    $zahl = $i
    ExitLoop
    EndIf
    $i = $i + 1
    Until $i = $anzbtn

    Select

    Case $btnprog[$zahl] = 'EXIT'
    Exit

    Case $btnprog[$zahl] = ''
    MsgBox(4096,"Meldung","Dieser Button wurde noch nicht belegt")

    Case $btnprog[$zahl] <> ''
    Run($btnprog[$zahl], $btnprogdir[$zahl])

    EndSelect

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit]

    Und nochmals BIG THX an Greenhorn der mich erst soweit gebracht hat :thumbup:

  • veränderbares Bild klickbar machen

    Nochmals thx für deine Hilfe.

    Nun hab ich aber ein anderes Problem ich möchte gerne diese Schaltflächen aus einer *.ini Datei in einer Schleife erstellen.

    Das funktioniert auch bis auf das ich keine Funktionen in einer Schleife erstellen kann.

    Spoiler anzeigen
    [autoit]


    #include <GuiConstants.au3>
    #include <File.au3>
    #NoTrayIcon
    #requireadmin

    [/autoit] [autoit][/autoit] [autoit]

    $guiname = IniRead(@ScriptDir & "\config.ini", "main", "name", "philsign")
    $guiwidth = IniRead(@ScriptDir & "\config.ini", "main", "width", "1680")
    $guiheight = IniRead(@ScriptDir & "\config.ini", "main", "height", "1050")
    $posguix = IniRead(@ScriptDir & "\config.ini", "main", "posguix", "0")
    $posguiy = IniRead(@ScriptDir & "\config.ini", "main", "posguiy", "0")

    [/autoit] [autoit][/autoit] [autoit]

    $anzbtn = IniRead(@ScriptDir & "\config.ini", "main", "anzahl-button", "4")
    $guipic = IniRead(@ScriptDir & "\config.ini", "main", "pfad-hg", "")
    $pospicx = IniRead(@ScriptDir & "\config.ini", "main", "pospicx", "0")
    $pospicy = IniRead(@ScriptDir & "\config.ini", "main", "pospicy", "0")
    $i = 0

    [/autoit] [autoit][/autoit] [autoit]

    $background = GUICreate($guiname,$guiwidth,$guiheight,$posguix,$posguiy,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GuiCtrlCreatePic($guipic,$pospicx,$pospicy,$guiwidth,$guiheight)
    GUICtrlSetState(-1,$GUI_DISABLE)

    [/autoit] [autoit][/autoit] [autoit]

    Do
    $btnname[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "name", "")
    $btnposx[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posx", "")
    $btnposy[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "posy", "")
    $btnwidth[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "width", "")
    $btnheight[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "height", "")
    $btnpic1[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic1", "")
    $btnpic2[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "pic2", "")
    $btnprog[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programm", "Meldung")
    $btnprogdir[$i] = IniRead(@ScriptDir & "\config.ini", "button" & $i, "programmdir", "")

    $i = $i + 1
    Until $i = $anzbtn

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $i = 0
    Do
    $button[$i] = GUICtrlCreatePic($btnpic1[$i], $btnposx[$i], $btnposy[$i], $btnwidth[$i], $btnheight[$i])
    $i = $i + 1
    Until $i = $anzbtn

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1

    $nMsg = GUIGetMsg()

    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit
    EndSelect

    $i = 0
    Do
    _PicButtonFromFile($background, $button[$i], $btnpic1[$i], $btnpic2[$i], $btnpic2[$i], $btnname[$i])
    $i = $i + 1
    Until $i = $anzbtn

    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _PicButtonFromFile($hWnd, $controlID, $defaultPic, $onHoverPic, $onClickPic, $Function = '')

    [/autoit] [autoit][/autoit] [autoit]

    Local $resFunc
    If $onClickPic = '' Or $onClickPic = -1 Then $onClickPic = $onHoverPic
    $cMsg = GUIGetCursorInfo($hWnd)
    If $cMsg[4] = $controlID Then
    GUICtrlSetImage( $controlID, $onHoverPic)
    $cMsg = GUIGetCursorInfo($hWnd)
    While $cMsg[4] = $controlID
    If GUIGetMsg() = $controlID Then
    GUICtrlSetImage( $controlID, $onClickPic)
    $resFunc = Call($Function)
    EndIf
    Sleep(10)
    $cMsg = GUIGetCursorInfo($hWnd)
    WEnd
    GUICtrlSetImage($controlID, $defaultPic)
    Return $resFunc
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>_PicButtonFromFile

    [/autoit] [autoit][/autoit] [autoit]

    $i = 0

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Do

    Func _funktion()

    Select

    Case $btnprog[$i] = 'EXIT'
    Exit

    Case $btnprog[$i] = 'Meldung'
    MsgBox(4096,"Meldung","Dieser Button wurde noch nicht belegt")

    Case Else
    Run($btnprog[$i], $btnprogdir[$i])

    EndSelect

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    $i = $i + 1

    Until $i = $anzbtn

    [/autoit]

    und hier noch die *.ini datei

    Spoiler anzeigen


    [main]
    name=philsign
    width=1680
    height=1050
    posguix=0
    posguiy=0

    pfad-hg=hg.jpg
    pospicx=0
    pospicy=0

    anzahl-button=4


    [button0]
    name=x
    posx=1640
    posy=0
    width=40
    height=40
    pic1=x1.jpg
    pic2=x2.jpg
    programm=EXIT
    programmdir=

    [button1]
    name=tv
    posx=1275
    posy=85
    width=205
    height=109
    pic1=tv1.jpg
    pic2=tv2.jpg
    programm=C:\Programme\WinTV\WinTV2K.EXE
    programmdir=C:\Programme\WinTV\

    [button2]
    name=musik
    posx=1210
    posy=481
    width=352
    height=84
    pic1=musik1.jpg
    pic2=musik2.jpg
    programm=C:\Programme\Winamp\winamp.exe
    programmdir=C:\Programme\Winamp\

    [button3]
    name=video
    posx=1202
    posy=868
    width=343
    height=92
    pic1=vid1.jpg
    pic2=vid2.jpg
    programm=movie.exe
    programmdir=

    Ist das überhaupt möglich?

    Bin für jede Hilfe dankbar.

    thx

  • veränderbares Bild klickbar machen

    Hy,

    ich hab da ein Problem. Und zwar möchte ich auf einem Hintergrundbild mehrere Buttons erzeugen die auch Bilder sind. Wenn man mit der Maus drüber fährt soll sich das Bild ändern und man soll dieses Bild dann als Button benutzen können.

    So hier erstmal das Script wie weit ich gekommen bin:

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    #include <GuiConstants.au3>
    #NoTrayIcon
    #requireadmin
    #include <array.au3>

    [/autoit] [autoit][/autoit] [autoit]

    $background = GUICreate("hintergrund",1024,768,0,0,$WS_POPUP,$WS_EX_TOOLWINDOW)
    GUISetState(@SW_SHOW, $background)
    GuiCtrlCreatePic("pic.jpg",0,0,1024,768)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Sleep(500)
    $mainbutton1 = GUICreate("mainbutton1", 400, 200, 600,80,$WS_POPUP,$WS_EX_TOOLWINDOW & $WS_EX_TOPMOST)
    GUISetState(@SW_HIDE, $mainbutton1)
    $button1 = GUICtrlCreatePic(@ScriptDir & "\bilder\2.jpg",0,0,200,120)
    GUICtrlSetState($button1, $GUI_ENABLE)

    $mainbutton2 = GUICreate("mainbutton2", 400, 200, 600,80,$WS_POPUP,$WS_EX_TOOLWINDOW & $WS_EX_TOPMOST)
    GUISetState(@SW_SHOW, $mainbutton2)
    $button2 = GUICtrlCreatePic(@ScriptDir & "\bilder\1.jpg",0,0,200,120)
    GUICtrlSetState($button2, $GUI_ENABLE)

    [/autoit] [autoit][/autoit] [autoit]

    Opt("MouseCoordMode", 0)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    GuiSetState()

    [/autoit] [autoit][/autoit] [autoit]

    while 1

    $MSG = GUIGetMsg()

    $a = GUIGetCursorInfo($mainbutton2)

    Select

    Case $MSG = $button2
    MsgBox(4096,"meldung2","passt2")

    Case $a[0] > 0 And $a[0] < 400 And $a[1] > 0 And $a[1] < 200
    GUISetState(@SW_HIDE, $mainbutton2)
    GUISetState(@SW_SHOW, $mainbutton1)
    if $MSG = $button2 Then
    MsgBox(4096,"meldung22","passt22")
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    Case Else
    GUISetState(@SW_HIDE, $mainbutton1)
    GUISetState(@SW_SHOW, $mainbutton2)

    EndSelect

    If $MSG = $GUI_EVENT_CLOSE Then ExitLoop

    sleep(500)

    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit]


    Das Problem ist irgendwie Funktioniert das Script auch aber wenn ich drauf klicke erscheint die Meldung erst ca. 30 sec. später. Hat einer vll eine Lösung parat?

    thx

  • WinFuture Hotfix Installer

    Hy Leude

    ich hät da ein Problem wollte mir ein Programm schreiben das die Installation der Hotfixes automatisch macht. Dies ist mir auch fast gelungen, das einzige Problem was ich nun habe ist das die Installation ab einem bestimmten Punkt neustarten will. An sich müsste man nur in einem Fenster auf einem Button klicken aber leider kann ich mit WinWait auch nicht auf das Fenster warten da es keinen Taskeintrag besitzt.

    Soweit bin ich bis jetzt:

    Spoiler anzeigen
    [autoit]

    Run("WinFuture_XP.exe")

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(2000)

    [/autoit] [autoit][/autoit] [autoit]

    WinWaitActive("WinFuture Update Pack für Windows XP SP2 (November 2007)")

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(2000)

    [/autoit] [autoit][/autoit] [autoit]

    Send("{ENTER}")

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(2000)

    [/autoit] [autoit][/autoit] [autoit]

    Send("{TAB}")

    [/autoit] [autoit][/autoit] [autoit]

    Send("{TAB}")

    [/autoit] [autoit][/autoit] [autoit]

    Send("{ENTER}")

    [/autoit] [autoit][/autoit] [autoit]

    Sleep(2000)

    [/autoit] [autoit][/autoit] [autoit]

    Send("{DOWN}")

    [/autoit] [autoit][/autoit] [autoit]

    Send("{UP}")

    [/autoit] [autoit][/autoit] [autoit]

    Send("{TAB}")

    [/autoit] [autoit][/autoit] [autoit]

    Send("{ENTER}")

    [/autoit] [autoit][/autoit] [autoit]

    WinWaitActive("Neustarten") --> Problem

    [/autoit] [autoit][/autoit] [autoit]

    Send("{ENTER}")

    [/autoit]

    Setup.zip

    Mein Problem ist denk ich mal auf dem Bild ersichtlich.

    thx

  • Online-Datei einlesen?

    Hy,

    ich suche eine Möglichkeit wie ich eien Datei die Online Verfügbar ist in ein Array einzulesen.

    habe schon "_FileReadToArray("http://www.google.de/index.html",$aRecords)" versucht aber das funktioniert nicht.

    Gibt es überhaupt eien möglichkeit die Datei direkt einzulesen?

    thx

  • Counter

    Also ich habs jetzt mal mit AdlibEnable versucht versteh es aber nicht so ganz

    Spoiler anzeigen
    [autoit]


    #include <GuiConstants.au3>
    GUICreate("test", 200, 150)

    [/autoit] [autoit][/autoit] [autoit]

    $i = 59
    $i2 = 29

    [/autoit] [autoit][/autoit] [autoit]

    AdlibEnable("sec",1000)

    [/autoit] [autoit][/autoit] [autoit]

    func sec()
    IF $i = 0 Then
    $i = 59
    EndIf
    $i = $i-1
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    AdlibEnable("min",1800000)

    [/autoit] [autoit][/autoit] [autoit]

    func min()
    IF $i2 = 0 Then
    $i2 = 29
    EndIf
    $i2 = $i2-1
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlCreateLabel($i2, 10, 10)
    GUICtrlCreateLabel(":", 25, 10)
    GUICtrlCreateLabel($i, 35, 10)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $MSG = GUIGetMsg()

    If $MSG = $GUI_EVENT_CLOSE Then ExitLoop

    WEnd

    [/autoit]

  • Counter

    Leider bringt mir dein Script nix weil die 30 min konstant bleiben.
    Jetzt steh ich gerade vor mehreren Problemen z.B.
    mit welchem Befehl kann ich das regeln das ich das Program auch während es runterzählt mit einem Klick auf "x" beenden kann oder
    wie kann ich ein neues GUI Fenster erstellen in dem ich auch Anweisungen ausführen kann.

    thx

  • programm blockieren?

    Also rechts Klick auf den Arbeitsplatz und "Verwalten" auswählen.

    Im folgenden Fenster auf "Dienste und Anwendungen" klicken und dann nochmal auf "Dienste".

    Dann gibts dort in der Liste 3 Dienste die mit "Media Center" anfangen.

    Jetzt musst du nur noch den richtigen Dienst heraus suchen, indem du einen recht klick auf den Dienst machst und "Eigenschaften" wählst.

    Im nächsten Fenster schaust du jetzt unter "Pfad zur EXE-Datei:" bei welchem Dienst diese "ehshell.exe" steht, wählst dort unter Starttyp "Deaktivert" aus und klickst dann noch auf "Beenden.

    Fertig

    PS: Wenn es der Media Center Planer Dienst ist wird nach dem beenden des Dienstes die Media Center oberfläche nicht mehr 100%ig funktionieren.

    Dafür musst du dann den Dienst wieder aktivieren.