fehler in zählschleife?

1. offizieller Beitrag
    [autoit]

    $i = 1
    While $i = 1
    Select
    case $quake4check = 1
    $quake4check = 0
    $u = + 1
    case $quake3check = 1
    $quake3check = 0
    $u = + 1
    case $ut04check = 1
    $ut04check = 0
    $u = + 1
    case $cc3check = 1
    $cc3check = 0
    $u = + 1
    case $csscheck = +1
    $csscheck = 0
    $u = + 1
    EndSelect
    $i = 0
    WEnd

    [/autoit]

    Problem: $u ist immer 1... muss ein logischer fehler von mir sein ^^

    Einmal editiert, zuletzt von Lon (18. Mai 2007 um 10:11)

    Hi,

    =+ ist nicht das gleiche wie += , außerdem gibt es den Operator =+ in Autoit nicht ;) . ersetze mal das $u =+1 mit $u +=1.

    Code
    \\Server\install\installmanagerscript.au3 (106) : ==> Badly formated variable or macro.: 
$u + = 1 
$u ^ ERROR


    =(!

    Das ist die Version des Editors SciTE.
    führe mal die folgende Zeile aus, dann bekommst Du die Autoit-Version angezeigt.

    [autoit]


    msgbox(0,"",@AutoItVersion)

    [/autoit]

    kurrzeitig ist hier mal die gesamte baustelle:

    Spoiler anzeigen
    [autoit]

    Global $u
    Global $quake4check
    Global $q4select
    Global $quake3check
    Global $q3select
    Global $ut04check
    Global $ut04select
    Global $cc3check
    Global $cc3select
    global $csscheck
    global $cssselect
    Global $q4crackpfad = "..."
    Global $q4quellpfad = "\\server\install\quake4\setup.exe"
    global $q3quellpfad = "\\Server\install\quake3"
    global $ut04quellpfad = "\\Server\install\UT2004\Disk1\setup.exe"
    global $cc3quellpfad = "\\Server\install\cc3\setup.exe"
    Global $cc3crackpfad ="..."
    Global $cssquellpfad = "\\Server\install\css\setup.exe"

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

    #include <GUIConstants.au3>
    Opt("GUIOnEventMode", 1)
    GUICreate("AutoInstall_Manager (C)2007 L.Marquardt", 600, 600)

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

    ;Allgemeine Buttons
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    $okbutton = GUICtrlCreateButton("Installation Beginnen - Kaffee Trinken", 100, 550, 300)
    GUICtrlSetOnEvent($okbutton, "okbuttonclicked")
    GUICtrlCreateLabel("Für einen reibungslosen Installationsverlauf sind folgende Punkt zu beachten:", 30, 300, 600, 20,)
    $progressbar = GUICtrlCreateProgress (550,20,30,500,$PBS_VERTICAL)
    GUICtrlSetData ($progressbar, $u)
    ;Quake 4 GUI
    $q4pfad = GUICtrlCreateEdit("C:\Programme\IDSoftware\", 200, 20, 280, 20, -1)
    $q4pfadselect = GUICtrlCreateButton("...", 485, 20, 20, 15)
    $quake4box = GUICtrlCreateCheckbox("Qauke 4", 30,20)
    GUICtrlSetOnEvent($q4pfadselect, "q4select")
    GUICtrlSetOnEvent($quake4box, "quake4boxclick")
    GUICTRLSetState($q4pfad, $GUI_HIDE)
    GUICTRLSetState($q4pfadselect, $GUI_HIDE)
    ;Quake 3 GUI
    $q3pfad = GUICtrlCreateEdit("C:\Programme\IDSoftware", 200, 50, 280, 20, -1)
    $q3pfadselect = GUICtrlCreateButton("...", 485, 50, 20, 15)
    $quake3box = GUICtrlCreateCheckbox("Qauke 3 (500 MB)", 30,50)
    GUICtrlSetOnEvent($quake3box,"quake3boxclick")
    GUICTRLSetOnEvent($q3pfadselect, "q3select")
    GUICTRLSetState($q3pfad, $GUI_HIDE)
    GUICTRLSetState($q3pfadselect, $GUI_HIDE)
    ;Unreal Tournament 2004 GUI
    $ut04pfad= GUICtrlCreateEdit("C:\Programme\IDSoftware", 200, 80, 280, 20, -1)
    $ut04pfadselect = GUICtrlCreateButton("...", 485, 80, 20, 15)
    $ut04box = GUICtrlCreateCheckbox("UT 2004 (6 GB) ", 30,80)
    GUICtrlSetOnEvent($ut04box,"ut04boxclick")
    GUICTRLSetOnEvent($ut04pfadselect, "ut04select")
    GUICTRLSetState($ut04pfad, $GUI_HIDE)
    GUICTRLSetState($ut04pfadselect, $GUI_HIDE)
    ;Command & Conquer 3 GUI
    $cc3pfad = GUICtrlCreateEdit("C:\Programme\Electronic Arts", 200, 110, 280, 20, -1)
    $cc3pfadselect = GUICtrlCreateButton("...", 485, 110, 20, 15)
    $cc3box = GUICtrlCreateCheckbox("Command + Conquer 3 (3,6 GB)", 30, 110)
    GUICtrlSetOnEvent($cc3pfadselect, "cundc3select")
    GUICtrlSetOnEvent($cc3box,"cc3boxclick")
    GUICTRLSetState($cc3pfad, $GUI_HIDE)
    GUICTRLSetState($cc3pfadselect, $GUI_HIDE)
    ;Counter-Strike Source GUI
    $csspfad = GUICtrlCreateEdit("C:\Programme\Valve", 200, 140, 280, 20, -1)
    $csspfadselect = GUICtrlCreateButton("...", 485, 140, 20, 15)
    $cssbox = GUICtrlCreateCheckbox("Counter-Strike Source (3,3 GB)", 30,140)
    GUICtrlSetOnEvent($cssbox,"cssboxclick")
    GUICtrlSetOnEvent($csspfadselect, "csspfadselect")
    GUICTRLSetState($csspfad, $GUI_HIDE)
    GUICTRLSetState($csspfadselect, $GUI_HIDE)

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

    GUISetState(@SW_SHOW)
    While 1
    Sleep(1000) ; Just idle around
    WEnd

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

    ;allgemein
    Func CLOSEClicked()
    Exit
    EndFunc

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

    Func okbuttonclicked()
    Global $quake4pfad = GUICtrlRead($q4pfad, 1) &"\Quake 4"
    Global $quake3pfad = GUICtrlRead($q3pfad, 1) &"\Quake 3"
    Global $ut2004pfad = GUICtrlRead($ut04pfad, 1) &"\Unreal Tournament 2004"
    Global $cundc3pfad = GUICtrlRead($cc3pfad, 1) &"\C&C Tiberium Wars"
    Global $csourcepfad = GUICtrlRead($csspfad, 1) &"\Counter-Strike Source"
    ;MsgBox(0, "pfad?", $ut2004pfad)
    auswahl()
    EndFunc

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

    func auswahl()
    $i = 1
    While $i = 1
    Select
    case $quake4check = 1
    $quake4check = 0
    $u + = 1
    case $quake3check = 1
    $quake3check = 0
    $u + = 1
    case $ut04check = 1
    $ut04check = 0
    $u + = 1
    case $cc3check = 1
    $cc3check = 0
    $u + = 1
    case $csscheck = +1
    $csscheck = 0
    $u + = 1
    EndSelect
    $i = 0
    WEnd
    MsgBox(0, "Anzahl", $u)
    exit
    Select
    case $quake4check = 1
    quake4()
    ContinueCase
    case $quake3check = 1
    quake3()
    ContinueCase
    case $ut04check = 1
    unrealtournamend2004()
    ContinueCase
    case $cc3check = 1
    cundc3()
    ContinueCase
    case $csscheck = 1
    csource()
    ContinueCase
    EndSelect
    ;msgbox(0,"Fertig!", "Installation(nen) sind erfoglreich abgeschlossen")
    Exit
    EndFunc

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

    ;quake 4
    func quake4boxclick()
    global $quake4check = GUICtrlRead( $quake4box, 0)
    Select
    case $quake4check = 1
    GUICTRLSetState($q4pfad, $GUI_SHOW)
    GUICTRLSetState($q4pfadselect, $GUI_show)
    case $quake4check = 4
    GUICTRLSetState($q4pfad, $GUI_HIDE)
    GUICTRLSetState($q4pfadselect, $GUI_HIDE)
    EndSelect
    endfunc

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

    func q4select()
    $q4selectpfad = FileSelectFolder("Installationspfad für Quake 4 auswählen", " ")
    GUIctrlsetdata($q4pfad, $q4selectpfad)
    endfunc

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

    func quake4()
    AutoitSetOption("WinTitleMatchMode", 2)
    run($q4quellpfad)
    winwait("Choose Setup Language")
    controlclick("Choose Setup Language", "OK", "Button1")
    winwait("Quake 4(TM)","CD Key Check")
    msgbox(0, "pufferbox", " Ohne Bedeutung", 1)
    controlsend("Quake 4(TM)", "CD Key Check", "Edit1", $edit[1])
    controlsend("Quake 4(TM)", "CD Key Check", "Edit2", $edit[2])
    controlsend("Quake 4(TM)", "CD Key Check", "Edit3", $edit[3])
    controlsend("Quake 4(TM)", "CD Key Check", "Edit4", $edit[4])
    controlsend("Quake 4(TM)", "CD Key Check", "Edit5", $edit[5])
    ControlClick("CD Key Check", "OK", "Button1")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button1")
    winwait("CD Key Check")
    sleep(1000)
    ControlClick("CD Key Check", "OK", "Button1")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button1")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "I &accept the terms of the license agreement", "Button5")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Ja", "Button1")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "I &accept the terms of the license agreement", "Button5")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(2000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "B&rowse...", "Button4")
    winwait("Browse")
    sleep(1000)
    controlsend("Browse", "Please select the installation folder.", "Edit1", $quake4pfad)
    winwait("Browse")
    sleep(1000)
    ControlClick("Browse", "OK", "Button1")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Next", "Button1")
    winwait("Quake 4(TM)")
    winwaitclose("Quake 4(TM)", "Cancel")
    sleep(1000)
    ControlClick("Quake 4(TM)", "&Nein", "Button2")
    winwait("Quake 4(TM)")
    sleep(1000)
    ControlClick("Quake 4(TM)", "No, I do not want to install DirectX at this time.", "Button7")
    winwait("Quake 4(TM)")
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    ControlClick("Quake 4(TM)", "&Ja", "Button1")
    winwait("Quake 4(TM)")
    ControlClick("Quake 4(TM)", "View ReadMe when setup is complete.", "Button5")
    winwait("Quake 4(TM)")
    ControlClick("Quake 4(TM)", "&Next", "Button2")
    winwait("Quake 4(TM)")
    ControlClick("Quake 4(TM)", "Finish", "Button4")
    RunWait(@ComSpec & " /c " & " copy /y" & " " & $q4crackpfad & " " & $quake4pfad)
    EndFunc

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

    ;quake 3
    func quake3boxclick()
    global $quake3check = GUICtrlRead( $quake3box, 0)
    Select
    case $quake3check = 1
    GUICTRLSetState($q3pfad, $GUI_SHOW)
    GUICTRLSetState($q3pfadselect, $GUI_SHOW)
    case $quake3check = 4
    GUICTRLSetState($q3pfad, $GUI_HIDE)
    GUICTRLSetState($q3pfadselect, $GUI_HIDE)
    EndSelect
    EndFunc

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

    func q3select()
    $q3selectpfad = FileSelectFolder("Installationspfad für Quake 3 auswählen", " ")
    GUIctrlsetdata($q3pfad, $q3selectpfad)
    EndFunc

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

    func quake3()
    RunWait(@ComSpec & " /c " & "mkdir " &$quake3pfad)
    RunWait(@ComSpec & " /c " & " xcopy /e /y" & " " & $q3quellpfad & " " & $quake3pfad)
    endfunc

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

    ;ut2004
    func ut04boxclick()
    global $ut04check = GUICtrlRead( $ut04box, 0)
    Select
    case $ut04check = 1
    GUICTRLSetState($ut04pfad, $GUI_SHOW)
    GUICTRLSetState($ut04pfadselect, $GUI_SHOW)
    case $ut04check = 4
    GUICTRLSetState($ut04pfad, $GUI_HIDE)
    GUICTRLSetState($ut04pfadselect, $GUI_HIDE)
    EndSelect
    EndFunc

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

    func ut04select()
    $ut04selectpfad = FileSelectFolder("Installationspfad für Unreal Tournament 2004 auswählen", " ")
    GUIctrlsetdata($ut04pfad, $ut04selectpfad)
    EndFunc

    Func unrealtournamend2004()

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

    $edit = stringsplit(wingettext("UT2004"), "-")
    controlclick("UT2004", "&Quit", "Button1")
    $edit[1] = stringtrimleft($edit[1], 12)
    Run($ut04quellpfad)
    WinWait("Unreal Tournament 2004 - InstallShield Wizard", "Willkommen bei InstallShield Wizard für Unreal Tournament 2004")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "&Weiter >", "Button1")
    WinWait("Unreal Tournament 2004 - InstallShield Wizard","ENDBENUTZER-LIZENZVEREINBARUNG")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "Ich &bin mit den Bedingungen dieser Lizenzverinbarung einverstanden.", "Button3")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "&Weiter", "Button1")
    controlsend("InstallShield Wizard", "Bitte geben Sie ihren CD-Schlüssel ein. Der CD-Schlüssel kann auf der Innenseite Ihrer Unreal Tournament 2004 DVD Hülle. Sobald der CD-Schlüssel korrekt eingegeben wurde, kann die Installation fortfahren.", "Edit1", $edit[1])
    controlsend("InstallShield Wizard", "Bitte geben Sie ihren CD-Schlüssel ein. Der CD-Schlüssel kann auf der Innenseite Ihrer Unreal Tournament 2004 DVD Hülle. Sobald der CD-Schlüssel korrekt eingegeben wurde, kann die Installation fortfahren.", "Edit2", $edit[2])
    controlsend("InstallShield Wizard", "Bitte geben Sie ihren CD-Schlüssel ein. Der CD-Schlüssel kann auf der Innenseite Ihrer Unreal Tournament 2004 DVD Hülle. Sobald der CD-Schlüssel korrekt eingegeben wurde, kann die Installation fortfahren.", "Edit3", $edit[3])
    controlsend("InstallShield Wizard", "Bitte geben Sie ihren CD-Schlüssel ein. Der CD-Schlüssel kann auf der Innenseite Ihrer Unreal Tournament 2004 DVD Hülle. Sobald der CD-Schlüssel korrekt eingegeben wurde, kann die Installation fortfahren.", "Edit4", $edit[4])
    WinWait("Unreal Tournament 2004 - InstallShield Wizard","Unreal Tournament 2004 in folgendem Ordner installieren:")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "Ä&ndern...", "Button3")
    WinWait("Ordner auswählen", "Wählen Sie den Ordner für die Installation aus.")
    send($ut2004pfad)
    sleep(500)
    ControlClick("Ordner auswählen", "OK", "Button1")
    WinWait("Unreal Tournament 2004 - InstallShield Wizard","Unreal Tournament 2004 in folgendem Ordner installieren:")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "&Weiter", "Button1")
    WinWait("Unreal Tournament 2004 - InstallShield Wizard")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "&Installieren", "Button1")
    WinWait("Frage")
    ControlClick("Frage", "&Nein", "Button2")
    WinWait("Unreal Tournament 2004 - InstallShield Wizard")
    ControlClick("Unreal Tournament 2004 - InstallShield Wizard", "Fertig stellen", "Button2")
    EndFunc

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

    ; C&C 3
    func cc3boxclick()
    global $cc3check = GUICtrlRead( $cc3box, 0)
    Select
    case $cc3check = 1
    GUICTRLSetState($cc3pfad, $GUI_SHOW)
    GUICTRLSetState($cc3pfadselect, $GUI_SHOW)
    case $cc3check = 4
    GUICTRLSetState($cc3pfad, $GUI_HIDE)
    GUICTRLSetState($cc3pfadselect, $GUI_HIDE)
    EndSelect
    EndFunc

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

    func cundc3select()
    $cc3selectpfad = FileSelectFolder("Installationspfad für Command And Conquer: Tiberiumwars auswählen", " ", 1)
    GUIctrlsetdata($cc3pfad, $cc3selectpfad)
    EndFunc

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

    func cundc3()
    $edit = stringsplit(wingettext("C&C 3 Tiberium Wars"), "-")
    controlclick("C&C 3 Tiberium Wars", "Button2", "Button2")
    $edit[1] = stringtrimleft($edit[1], 15)
    Run($cc3quellpfad)
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Weiter", "Button1")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung", "Button3")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition", "&Weiter", "Button5")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition")
    controlsend("Command & Conquer 3 Tiberium Wars™ Kane Edition", "Bitte den kompletten Code eingeben, der auf der Handbuchrückseite oder der Verpackung zu finden ist.", "Edit1", $edit[1])
    controlsend("Command & Conquer 3 Tiberium Wars™ Kane Edition", "Bitte den kompletten Code eingeben, der auf der Handbuchrückseite oder der Verpackung zu finden ist.", "Edit2", $edit[2])
    controlsend("Command & Conquer 3 Tiberium Wars™ Kane Edition", "Bitte den kompletten Code eingeben, der auf der Handbuchrückseite oder der Verpackung zu finden ist.", "Edit3", $edit[3])
    controlsend("Command & Conquer 3 Tiberium Wars™ Kane Edition", "Bitte den kompletten Code eingeben, der auf der Handbuchrückseite oder der Verpackung zu finden ist.", "Edit4", $edit[4])
    controlsend("Command & Conquer 3 Tiberium Wars™ Kane Edition", "Bitte den kompletten Code eingeben, der auf der Handbuchrückseite oder der Verpackung zu finden ist.", "Edit5", $edit[5])
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition", "OK", "Button1")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition", "&Weiter", "Button2")
    Sleep(1000)
    ProcessClose("EReg.exe")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Angepasst", "Button3")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Weiter", "Button5")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Ändern...", "Button3")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlSend("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "", "RichEdit20W1", $cundc3pfad)
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "OK", "Button1")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Weiter", "Button4")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Installieren", "Button1")
    WinWait("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "InstallShield Wizard abgeschlossen")
    ControlClick("Command & Conquer 3 Tiberium Wars™ Kane Edition - InstallShield Wizard", "&Fertigstellen", "Button1")
    run("\cc3\patch\cc3_1_04patch.exe")
    WinWait("WinZip Self-Extractor")
    ControlClick("WinZip Self-Extractor", "&Ja", "Button1")
    WinWait("Command & Conquer 3 Tiberium Wars™")
    ControlClick("Command & Conquer 3 Tiberium Wars™", "OK", "Button1")
    RunWait(@ComSpec & " /c " & " copy /y" & " " & $cc3crackpfad & " " & $cundc3pfad & "Retail Exe/1.04/")
    EndFunc

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

    ;Counter-Strike Source
    func cssboxclick()
    global $csscheck = GUICtrlRead( $cssbox, 0)
    Select
    case $csscheck = 1
    GUICTRLSetState($csspfad, $GUI_SHOW)
    GUICTRLSetState($csspfadselect, $GUI_show)
    case $csscheck = 4
    GUICTRLSetState($csspfad, $GUI_HIDE)
    GUICTRLSetState($csspfadselect, $GUI_HIDE)
    EndSelect
    EndFunc

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

    func csspfadselect()
    $cssselectpfad = FileSelectFolder("Installationspfad für Counter-Strike Source auswählen", " ")
    GUIctrlsetdata($csspfad, $cssselectpfad)
    EndFunc

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

    func csource()
    RunWait(@ComSpec & " /c " & "mkdir " &$quake3pfad)
    RunWait(@ComSpec & " /c " & " xcopy /e /y" & " " & $q3quellpfad & " " & $quake3pfad)
    endfunc
    #cs run("\css\setup.exe")
    WinWait("Setup - Counter-Strike Source", "Welcome to the Counter-Strike Source Setup Wizard")
    ControlClick("Setup - Counter-Strike Source", "&Next", "TButton1")
    WinWait("Setup - Counter-Strike Source", "Select Destination Location")
    ControlSend("Setup - Counter-Strike Source", "", "TEdit1", $csourcepfad)
    ControlClick("Setup - Counter-Strike Source", "&Next", "TButton3")
    WinWait("Setup - Counter-Strike Source")
    ControlClick("Setup - Counter-Strike Source", "&Next", "TButton4")
    WinWait("Setup - Counter-Strike Source")
    ControlClick("Setup - Counter-Strike Source", "&Next", "TButton4")
    WinWait("Setup - Counter-Strike Source")
    ControlClick("Setup - Counter-Strike Source", "&Install", "TButton4")
    EndFunc
    #ce

    [/autoit]

    Edit:
    die version ist
    3.2.4.0

    Edit bernd670: Spoiler-Tags geaddet und Beiträge zusammengefasst

    das += muß direkt zusammen geschrieben werden. Wenn Du + = schreibst werden die beiden Operatoren getrennt ausgewertet und als Fehler gemeldet.

    EDIT:
    Die Version ist OK, beim mir kommt diese Fehlermeldung allerdings nicht, die kenne ich eigentlich nur von den Autoitversionen die += noch nicht kannten.

    Edit2:
    Vermutlich kennt der Scite4Autoit diesen Operator noch nicht, am besten mal den Editor updaten ... dann sollte die Meldung nicht mehr kommen.

    3 Mal editiert, zuletzt von jonk (18. Mai 2007 um 10:33)

    Was willst du mit der Schleife erreichen?
    Was soll in $u stehen was in $i?

    Problem ist im Moment vor allem, dass deine Schleife null Sinn macht und du sie ebenso löschen könntest^^

    Du willst die Schleife ausführen solange $i=1 ist, das hast du ja vorher immerhin als 1 definiert - top.

    Am Ende der Schleife setzt du $i auf 0, d.h. die Schleife wird automatisch immer nur einmal ausgeführt, da nach der ersten Ausführung $i=0 ist und die Bedingung nicht mehr erfüllt ist.

    Da es so aussieht, als würdest du nichts machen wollen mit der Schleife.
    -->mach sie weg!
    (oder erklär mal, warum du den Codeabschnitt öfters durchgehen willst)

    im grunde ist der ganze aufwand nur für die progressbar (die zählschleife). ich will, dass die anzahl der gewählten installationen gezählt wird, was rauskommt durch 100 geteilt wird, und bei der folgenden schleife bei jedem durchlauf die progressbar zunimmt. so war mein erster ansatz ^^ aber wenn da jemand eine bessere idee hat freue ich mich

    dankeschön & sorry

    Edit:

    so ists richtig :->

    20 stunden am pc hocken zehren halt etwas an der konzentration xD

    Edit bend670: Beiträge zusammengefasst!