Beiträge von Alina

  • 1 Button x-Löschungen

    Moin Moin zusammen.

    Ich würde gerne mit nur einem Button ($Button1) folgendes löschen.

    1.) $Input1 bis $Input44
    2.) $Label2 - $Label17 // $Label 26 //$Label29 // $Label 31 und $Label32 // $Label34 - $Label41 // $Label43 - $Label60
    3.) $Pic1 - $Pic28
    4.) $Button7 - $Button18 //$Button27 - $Button37
    5.) $Radio1 - $Radio67
    6.) $Date1 - $Date4
    7.) $List1 - $List3
    8.) $Edit1

    Wie gesagt, soll das alle weg, wenn ich auf Button-2 drücke. Drücke ich aber auf Button-1, soll es alles wieder da sein.

    Wie mache ich das am besten. Ich kann zwar jedes Element nach und nach weg nehmen, aber sicherlich bekommt man das auch in eine Schleife, oder? Habe deshalb auch brav nach Möglichkeit fortlaufende Nummern verwendet, soweit dieses möglich ist.

    Ich bedanken mich für evtl. Lsg. und wünsche allen mal ein schönes Wochenende.

  • Ordner an das ENDE hängen.

    Moin-Moin zusammen.

    Erst einmal ein Bild zum Verständlisssss ;)
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Ich habe dort folgende Felder:
    Quellverzeichnis : "Input 1"
    Zielverzeichnis : "Input 2"

    Wenn ich nun den Radiobutton (evtl. Checkbox besser ?) anklicke, soll er den letzten Ordner vom Quellverzeichnis an das Zielverzeichnis anhängen.

    Das ist mit folgendem Script immer möglich, solange im Zielverzeichnis nicht z. B. f:\ steht, dann macht er nämlich hinter der Laufwerkangabe ein zwei tes "\". Ich muß ihm irgendwie sagen, das wenn an dritter Position ein "\" sich befindet, dann übernehme den Ordner aus dem Quellverzeichnis ohne dem "\" vorweg, ansonsten mit dem "\" vorweg.

    Folgende Anfangseingaben müssen erlaubt sein, bevor man den Ordner anhängt:
    g: <----- da muss auf jeden Fall immer ein "\" hinter. Ergebnis : g:\ordnername
    g:\ <------ Nur den Ordnernamen anhängen OHNE "\" nochmals vor den Ordnernamen zu schreiben. Ergebnis : g:\ordnername
    g:\meine_ordner <------ Ordnernamen anhängen MIT "\" vor den Ordnernamen. Ergebnis : g:\meine_ordner\ordnername
    UNC-Pfade sollen auch erlaubt sein, also "\\" beginnende Pfadangaben.
    Wenn in Input1 und Input 2 die hintersten Ordner identisch sind, dann den Ordner nicht nochmal anhängen.

    Habe ein Beispeilscript:

    Spoiler anzeigen
    [autoit]


    #include<GUIConstantsEx.au3>

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

    $Inhalt_Input1 = "C:\test\muster\mann\beispiel"
    $Inhalt_Input2 = "G:\"

    #include <GUIConstants.au3>

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

    $Form1 = GUICreate("Gui No. 1", 241, 119, 193, 125)
    $Radio1 = GUICtrlCreateRadio("Radio1", 8, 56, 113, 41)
    $Input1 = GUICtrlCreateInput($Inhalt_Input1, 8, 8, 217, 21)
    $Input2 = GUICtrlCreateInput($Inhalt_Input2, 8, 32, 217, 21)
    GUISetState(@SW_SHOW)

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

    While 1

    if GUICtrlRead($radio1)=$GUI_CHECKED Then
    $ja = GUICtrlRead($Input1)
    $j2a = GUICtrlRead($Input2)
    $splitter1 = StringSplit($ja, "\")
    $erg_1 = $splitter1[0]
    GUICtrlSetData($Input2,$j2a & "\" & $splitter1[$erg_1])
    GUICtrlSetstate($radio1,$GUI_UNCHECKED)
    EndIf

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

    So, mal schauen was da zu machen ist ;)

    Lieben Dank schon jetzt und wir lesen uns ;)

  • Eine Bestimmte zeit eine MsgBox auf rufen mit hilfe einer Variablen

    Meinst Du es so:

    Spoiler anzeigen
    [autoit]


    MsgBox(4096, "Test1", "Diese Msgbox ist die erste")

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

    $var = 1000; 000
    adlibenable("_msgbox", 1000 + $var)

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

    sleep($var)

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

    ;... Deine Funktionen

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

    func _msgbox()
    MsgBox(4096, "Test3", "Diese MsgBox ist 3te wo bei die an 2 stehle steht")
    adlibdisable()
    endfunc

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

    MsgBox(4096, "Test2", "und die Msgbox ist die 2")

    [/autoit]

  • RadioButton Problem: "Aktuelles Tab auf Top setzen"

    Moin zusammen.

    "Aktuelles Tab auf Top setzen"
    Ich habe 6 TabSheet's. Wenn ich z. B. auf den 3. TabSheet gehe und dann den Radio-Button "Aktuelles Tab auf Top setzen", dann soll jedes mal wenn ich auf Button 1 klicke, alle TabSheets angezeigt werden, aber aktiv der TabSheet 6. Also so als wenn ich den ausgewählt habe.

    Derzeitiger Entwurf:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    #Include <GuiEdit.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 928, 617, -1, -1)
    $Button1 = GUICtrlCreateButton("Tabs auswählen", 8, 73, 105, 17, 0)
    $Button2 = GUICtrlCreateButton("TXT Anzeigen", 8, 92, 105, 17, 0)
    $Button3 = GUICtrlCreateButton("E-Mail Daten", 8, 111, 105, 17, 0)
    $Button4 = GUICtrlCreateButton("Button4", 8, 131, 105, 17, 0)
    $Button5 = GUICtrlCreateButton("Button5", 8, 151, 105, 17, 0)
    $Button6 = GUICtrlCreateButton("Button6", 8, 170, 105, 17, 0)
    $Tab1 = GUICtrlCreateTab(120, 48, 801, 561)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
    $TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
    $TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
    $TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
    $TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
    $TabSheet6 = GUICtrlCreateTabItem("TabSheet6")
    GUICtrlCreateTabItem("")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Radio1 = GUICtrlCreateRadio("Aktuelles Tab auf Top setzen", 760, 51, 161, 17)
    $Label1 = GUICtrlCreateLabel("MENÜ", 32, 48, 60, 21)
    GUICtrlSetFont(-1, 14, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0x0000FF)
    $Group1 = GUICtrlCreateGroup("TXT Informationen", 120, 48, 801, 561)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)

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

    $Label2 = GUICtrlCreateLabel("", 130, 68, 781, 531)
    $Label2b = _GUICtrlEdit_SetText($Label2, FileRead(@ScriptDir & "\test.txt"))

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

    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetState($Group1, $GUI_HIDE)

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

    aus_alle()
    an_button1()

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Button1
    aus_alle()
    an_button1()

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

    case $Button2
    aus_alle()
    an_button2()

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


    case $Button3
    aus_alle()


    Case $Button4
    aus_alle()

    case $Button5
    aus_alle()


    Case $Button6
    aus_alle()

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

    EndSwitch
    WEnd

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

    Func aus_alle()
    GUICtrlSetState($Tab1, $GUI_HIDE )
    GUICtrlSetState($Radio1, $GUI_HIDE)
    GUICtrlSetState($Group1, $GUI_HIDE)
    GUICtrlSetState($Label2, $GUI_HIDE)
    EndFunc

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

    Func an_button1()
    GUICtrlSetState($Tab1, $GUI_SHOW)
    GUICtrlSetState($Radio1, $GUI_SHOW)
    EndFunc

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

    Func an_button2()
    GUICtrlSetState($Group1, $GUI_SHOW)
    GUICtrlSetState($Label2, $GUI_SHOW)
    EndFunc

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

  • In gesperrte Datei schreiben??

    Du kannst doch schauen ob die Datei vorhanden ist. Wenn "ja", dann ... und wenn "nein" dann ... .

    Ansonst gibt es ja noch:
    16 = erzwinge binäres (Byte) auslesen und schreiben für FileRead und FileWrite und schreibe es binär rein ;)

    Da Du aber nicht sagst um welches Programm (Datei) es sich handelt, kann man da wenig machen ;)

  • In gesperrte Datei schreiben??

    Hast Du die Attribute mal angesehen (attrib -r) ?
    Ansonst kann es sein, das das Programm in der Laufzeit die Datei schreibschützt und dann müssen wir schon mal wissen um welches Programm es sich handelt. Glaskugeln sind da nämlich sehr ungenau ;)

  • Checkboxen auswerten

    Andy

    Das war erstens nur eine mögliche Art der Verarbeitung und dann die Frage, was machst Du, wenn statt "Box" immer was anderes da steht? ;)

    Das es nicht für eine größere Anzahl von Checkboxen geeignet ist, ist schon aus der Berechnung "Anzahl der Checkboxen hoch zwei" zu sehen, aber für kleine Mengen an Checkboxen sollte das gerade für Anfänger/innen ausreichen.

  • Checkboxen abgleich über Progressbar

    Hallo zusammen.

    Habe mir einiges bei Euch abgeschaut, aber so sollte es auch möglich sein, oder?

    test2 und test3 bitte zusammen auswählen und nur die beiden, damit Du siehst das man so z. B. zwei Programme ausführen könnte. Aber Du kannst auch alle anderenButton austesten, nur haben die normale Dummy-Daten.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <SendMessage.au3>
    #Region ### START Koda GUI section ### Form=c:\users\chef\desktop\projekt\installgui.kxf
    $Form2 = GUICreate("Automatisches Installationspacket für Vista", 1085, 709, 301, 131)
    $Checkbox1 = GUICtrlCreateCheckbox(" test1 ", 48, 88, 241, 25)
    GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
    $Checkbox2 = GUICtrlCreateCheckbox(" test2", 48, 128, 233, 25)
    GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
    $Start = GUICtrlCreateButton("Start", 840, 592, 209, 41)
    GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
    $Checkbox3 = GUICtrlCreateCheckbox(" test3 ", 48, 168, 241, 25)
    GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
    $Checkbox4 = GUICtrlCreateCheckbox(" test4 ", 48, 208, 217, 25)
    GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
    $Vista_Light = GUICtrlCreateButton("Hier mit kannst du message 1", 456, 88, 593, 33)
    GUICtrlSetFont(-1, 8, 800, 2, "Comic Sans MS")
    $Vista_Normal = GUICtrlCreateButton("Hier mit kannst du message 2", 456, 136, 593, 33)
    GUICtrlSetFont(-1, 8, 800, 2, "Comic Sans MS")
    $Pic1 = GUICtrlCreatePic("C:\Users\Chef\Pictures\01831_greensimplicity_1920x1080.jpg", 0, 0, 1084, 708, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Label1 = GUICtrlCreateLabel("Hallo, ", 536, 240, 429, 39)
    GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Label2 = GUICtrlCreateLabel("bitte klickt das an was ihr benötigt.", 536, 279, 429, 39)
    GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Progress1 = GUICtrlCreateProgress(48, 672, 1006, 17)
    $Label3 = GUICtrlCreateLabel("Es wird Automatisch installiert! ", 536, 318, 429, 39)
    GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFF0000)
    $Label4 = GUICtrlCreateLabel("Viel Spaß !!! ", 536, 357, 429, 39)
    GUICtrlSetFont(-1, 18, 800, 2, "Comic Sans MS")
    GUICtrlSetBkColor(-1, 0xFF0000)

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Start
    $comboaktiv_1 = GUICtrlRead($Checkbox1)
    $comboaktiv_2 = GUICtrlRead($Checkbox2)
    $comboaktiv_3 = GUICtrlRead($Checkbox3)
    $comboaktiv_4 = GUICtrlRead($Checkbox4)

    $ted = $comboaktiv_1 & $comboaktiv_2 & $comboaktiv_3 & $comboaktiv_4

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

    if $ted ="1444" then MsgBox(0, "Checkboxauswertung","Checkbox 1 ist alleine aktiv")
    If $ted ="4144" then MsgBox(0, "Checkboxauswertung","Checkbox 2 ist alleine aktiv")
    If $ted ="1144" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 2 sind aktiv") ;
    If $ted ="4414" then MsgBox(0, "Checkboxauswertung","Checkbox 3 ist alleine aktiv")
    If $ted ="1414" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 3 sind aktiv")
    If $ted ="4114" then _start_1()
    If $ted ="1114" then MsgBox(0, "Checkboxauswertung","Checkbox 1 bis 3 sind aktiv")
    If $ted ="4441" then MsgBox(0, "Checkboxauswertung","Checkbox 4 ist alleine aktiv")
    If $ted ="1441" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 4 sind aktiv")
    If $ted ="4141" then MsgBox(0, "Checkboxauswertung","Checkbox 2 und 4 sind aktiv")
    If $ted ="1141" then MsgBox(0, "Checkboxauswertung","Checkbox 1, 2 und 4 sind aktiv")
    If $ted ="4411" then MsgBox(0, "Checkboxauswertung","Checkbox 3 und 4 sind aktiv")
    If $ted ="1411" then MsgBox(0, "Checkboxauswertung","Checkbox 1, 3 und 4 sind aktiv")
    If $ted ="4111" then MsgBox(0, "Checkboxauswertung","Checkbox 2, 3 und 4 sind aktiv")
    If $ted ="1111" then MsgBox(0, "Checkboxauswertung","Checkbox 1 bis 4 sind aktiv")
    If $ted ="4444" then MsgBox(0, "Checkboxauswertung","Es ist keine Checkbox aktiv")

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

    Case $Vista_Light
    MsgBox(0,"Info", " Vista Light wurde ausgewählt")

    Case $Vista_Normal
    Msgbox(0,"Info", "Vista Normal wurde ausgewählt.")
    EndSwitch
    WEnd

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

    Opt('MustDeclareVars', 1)

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

    Func _Start_1()
    Local $checked = 2
    Local $toks = 1

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

    While 1
    if $toks = 1 Then Msgbox(0,"","Prog 1 instaliert")
    GUICtrlSetData($progress1, Floor($toks*(100/$checked)))
    $toks = $toks +1
    Sleep(2000)

    if $toks = 2 Then Msgbox(0,"","Prog 2 instaliert")
    GUICtrlSetData($progress1, Floor($toks*(100/$checked)))
    $toks = $toks -1
    ExitLoop
    Sleep(2000)
    WEnd

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

    EndFunc ;==>_Start

    [/autoit]

  • Mit FileInstall kompletten Ordner in das Skript einbinden?

    funkey

    Ich möchte auch nicht mit Variablen direkt arbeiten, sondern aus der dann entstandenen INI könnte mit das Script dann erstellen lassen, das dann die FileInstall-Dateien einlesen würde.

    Ich denke da an einen Scriptschreibeprogramm.

    1. Text-Datei (anfang.txt)
    Alle Zeilen die vor den FileInstall Zeilen sind.

    2.) Text-Datei (mitte.txt)
    Alle Zeilen mit einem FileInstall

    3.) Text-Datei (ende.txt)
    Alle Zeilen die nach den FileInstall Zeilen sind

    Danach die drei Text-Dateien zusammen in eine AU3-Datei (alles.au3) zusammenfassen.

  • Checkboxen auswerten

    Moin Moin zusammen. Ich habe mich heute nacht im Bett gefragt, wie man am besten Checkboxen auswerten kann.

    Mit vier Checkboxen wäre das eine Idee, die mir nur so im Kopf herum flog.
    Was spricht gegen diese Art der Auswertung? Was dafür?
    Ich würde mich freuen Eure Meinung zu lesen.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    GUICreate("Checkboxauswertung ",140,100)

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

    $1 = GUICtrlCreateCheckbox("Box 1", 10, 10)
    $2 = GUICtrlCreateCheckbox("Box 2", 10, 30)
    $3 = GUICtrlCreateCheckbox("Box 3", 10, 50)
    $4 = GUICtrlCreateCheckbox("Box 4", 10, 70)

    $Button = GUICtrlCreateButton("OK",75,20,50,50)
    GUICtrlSetState(-1, $GUI_FOCUS) ; "OK" - Button im Fokus

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

    GUISetState()
    Example()

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

    Func Example()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop

    Case $msg = $Button

    $comboaktiv_1 = GUICtrlRead($1)
    $comboaktiv_2 = GUICtrlRead($2)
    $comboaktiv_3 = GUICtrlRead($3)
    $comboaktiv_4 = GUICtrlRead($4)

    $ted = $comboaktiv_1 & $comboaktiv_2 & $comboaktiv_3 & $comboaktiv_4

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

    if $ted ="1444" then MsgBox(0, "Checkboxauswertung","Checkbox 1 ist alleine aktiv")
    If $ted ="4144" then MsgBox(0, "Checkboxauswertung","Checkbox 2 ist alleine aktiv")
    If $ted ="1144" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 2 sind aktiv") ;
    If $ted ="4414" then MsgBox(0, "Checkboxauswertung","Checkbox 3 ist alleine aktiv")
    If $ted ="1414" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 3 sind aktiv")
    If $ted ="4114" then MsgBox(0, "Checkboxauswertung","Checkbox 2 und 3 sind aktiv")
    If $ted ="1114" then MsgBox(0, "Checkboxauswertung","Checkbox 1 bis 3 sind aktiv")
    If $ted ="4441" then MsgBox(0, "Checkboxauswertung","Checkbox 4 ist alleine aktiv")
    If $ted ="1441" then MsgBox(0, "Checkboxauswertung","Checkbox 1 und 4 sind aktiv")
    If $ted ="4141" then MsgBox(0, "Checkboxauswertung","Checkbox 2 und 4 sind aktiv")
    If $ted ="1141" then MsgBox(0, "Checkboxauswertung","Checkbox 1, 2 und 4 sind aktiv")
    If $ted ="4411" then MsgBox(0, "Checkboxauswertung","Checkbox 3 und 4 sind aktiv")
    If $ted ="1411" then MsgBox(0, "Checkboxauswertung","Checkbox 1, 3 und 4 sind aktiv")
    If $ted ="4111" then MsgBox(0, "Checkboxauswertung","Checkbox 2, 3 und 4 sind aktiv")
    If $ted ="1111" then MsgBox(0, "Checkboxauswertung","Checkbox 1 bis 4 sind aktiv")
    If $ted ="4444" then MsgBox(0, "Checkboxauswertung","Es ist keine Checkbox aktiv")
    EndSelect
    WEnd
    EndFunc

    [/autoit]


    Berichtigt. ich meine na klar: Checkboxen

  • Mit FileInstall kompletten Ordner in das Skript einbinden?

    Im Compiler gibt es den Reiter "Run Before/Afer". Dort eine Batch-Datei oder Exedatei aufrufen.

    Beispeil:
    start bevor.bat "%out%" "C:\Scripte\AutoIt3\SciTE\aktuelles_script\"


    Diese Datei (bevor.bat) die Du dort startes, muß folgendes machen: (geht auch mit einer Text-Datei)
    1.) Ordner in eine INI schreiben:

    [ordner]
    ordnername = aktuell

    2.) Dateipfade in die INI schreiben, die dann so aus schaut:

    [ordner]
    ordnername = aktuell

    [dateien]
    datei[0] = c:\bsp\test\aktuell\test_01.au3
    datei[1] = c:\bsp\test\aktuell\test_01.exe
    datei[2] = c:\bsp\test\aktuell\test_koe.au3
    datei[3] = c:\bsp\test\aktuell\test_koe.exe
    datei[4] = c:\bsp\test\aktuell\test_loe.dll
    datei[5] = c:\bsp\test\aktuell\test_koe.hlp
    datei[6] = c:\bsp\test\aktuell\test_koe.abc


    Wenn die INI-Datei richtig erstellt ist, dann mit dem IniRead auslesen und mit FileInstall in die Datei aufnehmen.
    Wenn ich jetzt auf die schnelle sagen könnte, wie Teil eins und Teil zwei zu programmieren wären, würde ich es glatt posten.

    Aber versuche Dich selber mal und wir helfen gerne bei Fragen. Es gibt aber eine super DEUTSCHE HILFE und beim duruchlesen lernst Du auch noch hammer viel.


    Edit:
    BugFix hat mal die Funktion "_GetFilesFolder_Rekursiv" entwickelt. Ist über die Suchfunktion zu finden. Ist unter Scripte auf jeden Fall zu finden, da es da um MutiCopy geht.

  • Daten voneinander abziehen

    Beispiel für einen Stundencountdown und einen Tagescountdown:

    24 Stundencountdown:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    If _countDown("24:00:00") Then MsgBox(0, "CountDown", "Jipi") ; SS:MM:SS

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

    Func _countDown($countdown)
    $begin = TimerInit()

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

    Local $string = ""

    While 1
    $start = Round(TimerDiff($begin) / 1000)

    $countUp = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($start / 3600, 24), Mod(($start / 60), 60), Mod($start, 60))

    $sec = _DateDiff('s', "2006/01/01 " & $countUp, "2006/01/01 " & $countdown)
    If $sec = 0 Then Return 1

    $string = StringFormat("%.02d" & ":" & "%.02d" & ":" & "%.02d", _
    Mod($sec / 3600, 24), Mod(($sec / 60), 60), Mod($sec, 60))

    ToolTip($string)
    Sleep(100)
    WEnd
    EndFunc ;==>_countDown

    [/autoit]


    Countdown zum 31.12.2009 ; 23:59:59

    Spoiler anzeigen
    [autoit]


    #include<Date.au3>
    HotKeySet("{esc}", "end")
    ; "YYYY/MM/DD[ HH:MM:SS]"
    While 1
    ToolTip("Date" & @CRLF & "============" & @CRLF & _counter("2009/12/31", "23:59:59") & " left", _
    @DesktopWidth - 100, 30)
    Sleep(1)
    WEnd

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

    ; "YYYY/MM/DD[ HH:MM:SS]"
    Func _counter($s_Date, $s_time)
    If _DateIsValid($s_Date & " " & $s_time) Then
    Local $NumberOfSeconds = _DateDiff("s", _NowCalc(), $s_Date & " " & $s_time)
    Return StringFormat("Days = %.02d" & @CRLF & "Hours = %.02d" & @CRLF & "Min = %.02d" & @CRLF & "Sec = %.02d" & @CRLF & _
    "Msec = %.03d", $NumberOfSeconds / 86400, Mod($NumberOfSeconds / 3600, 24), Mod(($NumberOfSeconds / 60), 60), _
    Mod($NumberOfSeconds, 60), 1000 - _MSec())
    Else
    Return -1
    EndIf
    EndFunc ;==>_counter

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

    Func _MSec()
    Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
    DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))
    $sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8))
    $stSystemTime = 0
    Return $sMilliSeconds
    EndFunc ;==>_MSec

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

    Func end()
    Exit (0)
    EndFunc ;==>end

    [/autoit]

    Das sollte helfen. Besonders weil vieles dazu in der Hilfe sehr gut erklärt ist. Aber wenn Du mal nicht weiter kommst, wir sind ja da ;)