Beiträge von Eistee

  • Ein paar kleine fragen zu meiner Sidebar inbezug auf Slider, Shutdown, und Desktopgrösse

    Hallo Liebe Gemeinde

    ich habe mich gestern abend hingesetzt und mir eine Sidebar geschrieben um die Funktionen die ich häufig verwende immer da zu haben und mit (ich weiss ich bin Faul xD) weniger klicks ^^
    Ich habe jetzt nur folgende Fragen/Bitten :
    1. Warum kriege ich die Slider nicht schwarz obwohl ich GuiSetBkColor drinnen habe.
    2. Wie kann ich bei meiner ShutDownControl noch eine Abfrage einbauen wie z.B wollen sie wirklich herunterfahren ? und wenn man auf ja klickt macht er das wenn man auf nein klickt lässt er es ^^
    3. Wenn man ein fenster maximiert wird es ja an den linken und rechten desktop rand gezogen als beispiel eben Firefox, wie kann ich windows sagen das ab jetzt schon 190 Pixel vorher das Maximum erreicht ist das windows sozusagen nichts mehr hinter diesem fenster haben kann ?
    4. Wie kann ich einstellen das sich das programm beim druck von esc nicht schließt sondern nur wenn ich im traymenu auf Beenden gehe ?


    Auf eure Antworten Freue ich mich

    MFG Eistee


    Script :

    Spoiler anzeigen
    [autoit]

    #include <DateTimeConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <audio.au3>
    #Include <Constants.au3>

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

    Global $MicVol = _SoundGetMicrophoneVolume ()
    Global $Vol = _SoundGetMasterVolume ()

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

    Opt('WinTitleMatchMode', 4)
    $aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
    $iWidth = 190
    $iHeight = @DesktopHeight
    $iLeft = $aTaskbarPos[2] - $iWidth - 6
    $iTop = 0

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

    $size = FileGetSize("C:\BS\SideBar\About.exe")
    If $size = 0 then _1 ()
    Func _1 ()
    DirCreate("C:\BS\SideBar")
    FileInstall("google.jpg", "C:\BS\SideBar\google.jpg")
    FileInstall("Border.jpg", "C:\BS\SideBar\Border.jpg")
    FileInstall("loka.jpg", "C:\BS\SideBar\loka.jpg")
    FileInstall("gmx.jpg", "C:\BS\SideBar\gmx.jpg")
    FileInstall("web.jpg", "C:\BS\SideBar\web.jpg")
    FileInstall("ShutDown.jpg", "C:\BS\SideBar\ShutDown.jpg")
    FileInstall("Neustarten.jpg", "C:\BS\SideBar\Neustarten.jpg")
    FileInstall("Standby.jpg", "C:\BS\SideBar\Standby.jpg")
    FileInstall("About.exe", "C:\BS\SideBar\About.exe")
    EndFunc

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

    $Form1 = GUICreate("Form1", $iWidth, $iHeight, $iLeft, $iTop,$WS_POPUP)
    GUISetBkColor(0x000000)
    $Pic1 = GUICtrlCreatePic("C:\BS\SideBar\Border.jpg", 0, 0, 5, $iHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

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

    $Group1 = GUICtrlCreateGroup(" Kalender ", 3, 8, 184, 209)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    $MonthCal1 = GUICtrlCreateMonthCal("2009/07/20", 8, 24, 174, 186)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Group2 = GUICtrlCreateGroup(" Uhrzeit ", 3, 217, 184, 41)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    $Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 68, 237, 51, 19)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Label2 = GUICtrlCreateLabel("VOL. :", 16, 284, 37, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1,"Lautstärke anpassen")
    $Label3 = GUICtrlCreateLabel("MIC. :", 16, 315, 38, 17)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1,"Microfon Lautstärke anpassen")
    $Slider1 = GUICtrlCreateSlider(72, 283, 114, 20)
    GUISetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1,100,0)
    GUICtrlSetData(-1, $Vol)
    $Slider2 = GUICtrlCreateSlider(72, 315, 114, 20)
    GUISetBkColor(-1, 0x000000)
    GUICtrlSetLimit(-1,100,0)
    GUICtrlSetData(-1, $MicVol)
    $Group3 = GUICtrlCreateGroup(" Volume ", 3, 262, 185, 73)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Pic2 = GUICtrlCreatePic("C:\BS\SideBar\google.jpg", 12, 352, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.google.de auf")
    $Pic3 = GUICtrlCreatePic("C:\BS\SideBar\Loka.jpg", 76, 392, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.lokalisten.de auf")
    $Pic4 = GUICtrlCreatePic("C:\BS\SideBar\GMX.jpg", 12, 432, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.gmx.net auf")
    $Pic5 = GUICtrlCreatePic("C:\BS\SideBar\WEB.jpg", 76, 472, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Ruft http://www.web.de auf")
    $Group4 = GUICtrlCreateGroup(" Internet ", 3, 336, 184, 177)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Label4 = GUICtrlCreateLabel(@IPAddress1, 8, 536, 170, 20)
    GUICtrlSetColor(-1, 0xFFFFFF)
    $Group5 = GUICtrlCreateGroup(" IP ", 3, 520, 184, 38)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    $Pic6 = GUICtrlCreatePic("C:\BS\SideBar\ShutDown.jpg", 8, 581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Herunterfahren")
    $Pic7 = GUICtrlCreatePic("C:\BS\SideBar\Neustarten.jpg", 76,581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Neustarten")
    $Pic8 = GUICtrlCreatePic("C:\BS\SideBar\Standby.jpg", 144, 581, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetTip(-1,"Standby")
    $Group6 = GUICtrlCreateGroup(" Shut Down Control ", 3, 560, 184, 73)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xC0C0C0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)

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

    Opt("TrayMenuMode",1)
    $AB = TrayCreateItem("About")
    $EX = TrayCreateItem("Beenden")
    TraySetState()

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

    AdlibEnable("UHR",1000)

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

    While 1
    $nMsg = GUIGetMsg()
    $nMsg2 = TRayGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Pic6
    _Shut ()
    Case $Pic7
    _neu ()
    Case $Pic8
    _stan ()
    Case $Pic2
    _google ()
    Case $Pic3
    _lokalisten ()
    Case $Pic4
    _gmx ()
    Case $Pic5
    _web ()
    Case $Slider2
    _Mic ()
    Case $Slider1
    _Vol ()
    EndSwitch


    Switch $nMsg2
    Case $EX
    Exit
    Case $AB
    _AB ()
    EndSwitch

    WEnd

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

    Func UHR ()
    GUICtrlSetData($Label1,@HOUR & ":" & @MIN & ":" & @SEC)
    Endfunc

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

    Func _Shut ()
    _AnimButton ($Form1, $Pic6)
    Sleep(200)
    MsgBox(0,"Shutdown", "Einen schönen Tag noch.",5)
    Shutdown(1)
    EndFunc



    Func _neu ()
    _AnimButton ($Form1, $Pic7)
    Sleep(200)
    MsgBox(0,"Neustart", "Bis gleich.",5)
    Shutdown(2)
    EndFunc



    Func _stan ()
    _AnimButton ($Form1, $Pic8)
    Sleep(200)
    MsgBox(0,"Standby", "Ich geh dan mal schlafen.",5)
    Shutdown(64)
    EndFunc



    Func _AnimButton($IDgui, $IDbtn, $delay=300)
    Local $pos = ControlGetPos($IDgui, '', $IDbtn)
    Local $pWin = WinGetPos($IDgui)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
    Sleep($delay)
    ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
    EndFunc

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

    Func _google ()
    _AnimButton ($Form1, $Pic2)
    ShellExecute("http://www.google.de")
    EndFunc

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

    Func _lokalisten ()
    _AnimButton ($Form1, $Pic3)
    ShellExecute("http://www.lokalisten.de")
    EndFunc

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

    Func _gmx ()
    _AnimButton ($Form1, $Pic4)
    ShellExecute("http://www.gmx.net")
    EndFunc

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

    Func _web ()
    _AnimButton ($Form1, $Pic5)
    ShellExecute("http://www.web.de")
    EndFunc

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

    Func _Mic ()
    $NeuVolMIC = GUICtrlRead($Slider2)
    _SoundSetMicrophoneVolume($NeuVolMIC)
    EndFunc

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

    Func _VOL ()
    $NeuVol = GUICtrlRead($Slider1)
    _SoundSetMasterVolume($NeuVol)
    EndFunc

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

    Func _AB ()
    Run("C:\BS\SIDEBAR\About.exe")
    EndFunc

    [/autoit]

  • label sekündlich aktualisieren wegen Uhr ?

    ok das beispiel zu AdlibEnable habe ich verstanden aber mit guictrlsetdata kann ich das label nicht aktualisieren was mache ich denn falsch ?


    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Form1", 633, 454, 193, 115)
    $1 = GUICtrlCreateLabel("Label1", 48, 104, 36, 17)
    GUISetState(@SW_SHOW)

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

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

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

    EndSwitch
    WEnd

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

    AdlibEnable("a1",1000)

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

    Func a1 ()
    GUICtrlSetData($1,@HOUR & ":" & @MIN & ":" & @SEC)
    Endfunc

    [/autoit]

  • label sekündlich aktualisieren wegen Uhr ?

    Hallo Liebe Autoit gemeinde

    ich habe schon seit längerem den bedarf an einer Uhr als fenster auf dem Desktop welche ich auch gerne selbst gestalten möchte usw. wie ich die Zeit bekomme also durch @Hour oder durch @Min weis ich ja aber wie bekomme ich es hin das sich ein Label sekündlich diese dann ja wieder neuen werte wiedergibt ?

    ich habe leider auch nichts gefunden was mir da helfen würde nur eine einzige uhr habe ich gefunden so mit design, wecker und so zeug aber das hilft mir leider nicht würde mich sehr freuen wenn ihr mir da helfen könntet

    MFG Eistee

  • Projektidee: AutoIT Setup Builder

    hi
    Ich habe bei meinen Beispiel Scripts schon so etwas liegen, hatt wenn ich micht nicht irre Bugfix geschrieben ( BugFix wenn du es nicht möchtest das dein script hier steht bitte löschen)
    ich poste es mal, vielleicht könnt ihr ja etwas damit anfangen ist wie gewohnt Top Arbeit von BugFix ^^

    MFG Eistee

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ComboConstants.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <ListBoxConstants.au3>
    #include <TabConstants.au3>
    #include <EditConstants.au3>
    #include <DateTimeConstants.au3>
    #include <SliderConstants.au3>
    #include <TreeViewConstants.au3>
    #include <ProgressConstants.au3>
    #include <AVIConstants.au3>
    #include <UpDownConstants.au3>
    #include <Array.au3>
    #include <file.au3>
    #include <string.au3>
    Opt("GUIOnEventMode", 1)
    Dim $aRadio[7], $FileOut, $source, $target, $var, $editStr = "", $fhTmp, $fhOut, $sizeRaw
    Dim $gesFiles = 0 ; Anzahl Dateien gesamt im Installscript
    Dim $count = 0 ; Zähler Durchläufe
    Dim $progressNew = 0 ; Progressschritte neu berechnen wenn > 0
    Dim $aTmpCode ; Code temporär einlesen
    Dim $tmpFile1 = @ScriptDir & "\TmpInstallAU3.txt"
    Dim $tmpFile2 = @ScriptDir & "\TmpInstallAU3.au3"

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

    $GUI = GUICreate("Installationsscript generieren", 695, 646, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "GUIClose")
    $grOpt = GUICtrlCreateGroup("Optionen im Installscript", 11, 10, 672, 50)
    $chStatus = GUICtrlCreateCheckbox("Statusbar", 104, 30, 97, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $chLog = GUICtrlCreateCheckbox("Logdatei + Fehlerbehandlung", 330, 30, 164, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $grSource = GUICtrlCreateGroup("Quellpfad mit Installationsdateien", 11, 70, 672, 50)
    $iPath = GUICtrlCreateInput("", 104, 87, 383, 21)
    $bPath = GUICtrlCreateButton("Auswählen", 522, 87, 85, 21, 0)
    GUICtrlSetOnEvent(-1, "bPathClick")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $grTarget = GUICtrlCreateGroup("Installationsziel", 11, 130, 672, 97)
    $aRadio[0] = GUICtrlCreateRadio("@DesktopDir", 38, 148, 89, 17)
    GUICtrlSetOnEvent(-1, "rDesktopClick")
    $aRadio[1] = GUICtrlCreateRadio("@MyDocumentsDir", 38, 172, 113, 17)
    GUICtrlSetOnEvent(-1, "rMyDocClick")
    $aRadio[2] = GUICtrlCreateRadio("@HomeDrive", 38, 196, 113, 17)
    GUICtrlSetOnEvent(-1, "rHomeDriveClick")
    $aRadio[3] = GUICtrlCreateRadio("@ProgramsDir", 235, 148, 113, 17)
    GUICtrlSetOnEvent(-1, "rProgDirClick")
    $aRadio[4] = GUICtrlCreateRadio("@ProgramFilesDir", 235, 172, 113, 17)
    GUICtrlSetOnEvent(-1, "rProgFileDirClick")
    $aRadio[5] = GUICtrlCreateRadio("@SystemDir", 431, 148, 113, 16)
    GUICtrlSetOnEvent(-1, "rSysDirClick")
    $aRadio[6] = GUICtrlCreateRadio("@WindowsDir", 431, 172, 113, 17)
    GUICtrlSetOnEvent(-1, "rWinDirClick")
    $iTarget = GUICtrlCreateInput("", 235, 194, 428, 21)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $bFileOut = GUICtrlCreateButton("Ausgabedatei", 11, 239, 84, 21, 0)
    GUICtrlSetOnEvent(-1, "bFileOutClick")
    $iFileOut = GUICtrlCreateInput("", 104, 239, 383, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $bGenerieren = GUICtrlCreateButton("Generiere Code", 522, 239, 160, 21, 0)
    GUICtrlSetOnEvent(-1, "bGenerierenClick")
    $grCode = GUICtrlCreateGroup("Code (editieren)", 11, 272, 672, 309)
    $eCode = GUICtrlCreateEdit("", 19, 291, 655, 275)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $bOKnext = GUICtrlCreateButton("Übernehmen", 573, 602, 110, 25, 0)
    GUICtrlSetOnEvent(-1, "bOKnextClick")
    $eInfo = GUICtrlCreateEdit("", 19, 588, 540, 51, $ES_READONLY)
    GUICtrlSetData(-1, _
    "Der aktuell generierte Code wird in eine temporäre Datei übernommen. Nach Übernahme können Dateien aus " & _
    "neuem Quellpfad zugefügt werden. Beim Schließen der GUI werden alle Daten in die Ausgabedatei geschrieben. " & _
    "Wenn nötig, werden Kopf- und Fußbereich zugefügt und die Progressschritte neu berechnet.")
    GUICtrlSetState($bPath, $GUI_FOCUS)
    GUISetState(@SW_SHOW)
    _CodeDisable()

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

    While 1
    Sleep(100)
    WEnd

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

    Func _RadioUncheck()
    For $i = 0 To UBound($aRadio)-1
    GUICtrlSetState($aRadio[$i], $GUI_UNCHECKED)
    Next
    EndFunc

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

    Func _SourceTargetDisable()
    GUICtrlSetState($grSource, $GUI_DISABLE)
    GUICtrlSetState($iPath, $GUI_DISABLE)
    GUICtrlSetState($bPath, $GUI_DISABLE)
    GUICtrlSetState($grTarget, $GUI_DISABLE)
    GUICtrlSetState($iTarget, $GUI_DISABLE)
    For $i = 0 To UBound($aRadio)-1
    GUICtrlSetState($aRadio[$i], $GUI_DISABLE)
    Next
    EndFunc

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

    Func _SourceTargetEnable()
    GUICtrlSetState($grSource, $GUI_ENABLE)
    GUICtrlSetState($iPath, $GUI_ENABLE)
    GUICtrlSetState($bPath, $GUI_ENABLE)
    GUICtrlSetState($grTarget, $GUI_ENABLE)
    GUICtrlSetState($iTarget, $GUI_ENABLE)
    For $i = 0 To UBound($aRadio)-1
    GUICtrlSetState($aRadio[$i], $GUI_ENABLE)
    Next
    EndFunc

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

    Func _OptDisable()
    GUICtrlSetState($grOpt, $GUI_DISABLE)
    GUICtrlSetState($chStatus, $GUI_DISABLE)
    GUICtrlSetState($chLog, $GUI_DISABLE)
    EndFunc

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

    Func _CodeDisable()
    GUICtrlSetState($grCode, $GUI_DISABLE)
    GUICtrlSetState($eCode, $GUI_DISABLE)
    GUICtrlSetState($bOKnext, $GUI_DISABLE)
    EndFunc

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

    Func _CodeEnable()
    GUICtrlSetState($grCode, $GUI_ENABLE)
    GUICtrlSetState($eCode, $GUI_ENABLE)
    GUICtrlSetState($bOKnext, $GUI_ENABLE)
    EndFunc

    Func bFileOutClick()
    $FileOut = FileOpenDialog("Ausgabedatei festlegen.", @MyDocumentsDir & "\", "AutoIt Datei (*.au3)", 8, "Install.au3")
    If @error Then
    MsgBox(16,"","Keine Datei gewählt.")
    Return
    Else
    GUICtrlSetData($iFileOut, $FileOut)
    EndIf
    EndFunc

    Func bGenerierenClick()
    $source = GUICtrlRead($iPath)
    $target = GUICtrlRead($iTarget)
    If ($source <> "") And ($target <> "") And ($FileOut <> "") Then
    _OptDisable()
    _SourceTargetDisable()
    _CodeEnable()
    GUICtrlSetState($bFileOut, $GUI_DISABLE)
    GUICtrlSetState($bGenerieren, $GUI_DISABLE)
    $count += 1
    If $count > 1 And GUICtrlRead($chStatus) = $GUI_CHECKED Then $progressNew = 1
    Select
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; m. Statusbar, m. Log/Fehle
    _WriteInstall($source, $target, $tmpFile1)
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; m. Statusbar, o. Log/Fehler
    _WriteInstall($source, $target, $tmpFile1, -1, 0)
    Case GUICtrlRead($chStatus) = $GUI_UNCHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; o. Statusbar, m. Log/Fehler
    _WriteInstall($source, $target, $tmpFile1, 0)
    Case GUICtrlRead($chStatus) = $GUI_UNCHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; o. Statusbar, o. Log/Fehler
    _WriteInstall($source, $target, $tmpFile1, 0, 0)
    EndSelect
    If Not _FileReadToArray($tmpFile1, $aTmpCode) Then ; in Array einlesen
    MsgBox(16, 'ACHTUNG!', "Datei: '" & $tmpFile1 &"' nicht vorhanden oder leer!")
    Return
    EndIf
    $sizeRaw = FileGetSize($tmpFile1)
    FileDelete($tmpFile1)
    For $i = 1 To $aTmpCode[0] ; String für Edit erzeugen
    If $i = 1 Then
    $editStr = $aTmpCode[$i]
    Else
    $editStr &= @CRLF & $aTmpCode[$i]
    EndIf
    Next
    GUICtrlSetData($eCode, $editStr)
    $editStr = GUICtrlRead($eCode)
    $editStr = StringSplit($editStr, @LF)
    $fhTmp = FileOpen($tmpFile2, 1)
    For $i = 1 To $editStr[0]
    FileWriteLine($fhTmp, $editStr[$i] & @CRLF)
    Next
    FileClose($fhTmp)
    Else
    If $source = "" Then
    MsgBox(16,"ACHTUNG!", "Kein Quell-Pfad mit Installationsdateien ausgewählt!")
    ElseIf $target = "" Then
    MsgBox(16,"ACHTUNG!", "Kein Ziel-Pfad für Installationsdateien ausgewählt!")
    Else
    MsgBox(16,"ACHTUNG!", "Keine Ausgabedatei festgelegt!")
    EndIf
    EndIf
    EndFunc

    Func bOKnextClick()
    If FileGetSize($tmpFile2) <> $sizeRaw Then $progressNew = 1 ; Datei wurde editiert
    GUICtrlSetData($eCode, "")
    _SourceTargetEnable()
    _RadioUncheck()
    _CodeDisable()
    GUICtrlSetData($iPath, "")
    GUICtrlSetData($iTarget, "")
    GUICtrlSetState($bGenerieren, $GUI_ENABLE)
    EndFunc

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


    Func bPathClick()
    $var = FileSelectFolder("Ordner mit zu installierenden Dateien:","", 2+4)
    If @error Then
    If GUICtrlRead($iPath) = "" Then MsgBox(16,"ACHTUNG!", "Kein Ordner gewählt!")
    Return
    Else
    GUICtrlSetData($iPath, $var)
    EndIf
    EndFunc

    Func GUIClose()
    Local $percent, $aTmp
    If $count = 0 Then Exit
    _FileReadToArray($tmpFile2, $aTmp)
    FileDelete($tmpFile2)
    $fhOut = FileOpen($FileOut, 1)
    If $progressNew = 1 Then ; Progresschritte neu berechnen
    For $i = 1 To $aTmp[0]
    If StringInStr($aTmp[$i], 'ProgressSet') Then
    $gesFiles += 1
    EndIf
    Next
    $k = 0
    For $i = 1 To $aTmp[0]
    If StringInStr($aTmp[$i], 'ProgressSet') Then
    $k += 1
    $percent = Round(100/$gesFiles*$k)
    $var = _StringBetween($aTmp[$i], "(", "," )
    $aTmp[$i] = StringReplace($aTmp[$i], $var[0], $percent)
    EndIf
    Next
    EndIf
    Select
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED
    FileWrite($fhOut, "#include <file.au3>" & @CRLF)
    FileWrite($fhOut, "Dim $fehler = 0" & @CRLF)
    FileWrite($fhOut, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
    Case GUICtrlRead($chLog) = $GUI_CHECKED
    FileWrite($fhOut, "#include <file.au3>" & @CRLF)
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED
    FileWrite($fhOut, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
    EndSelect
    For $i = 1 To $aTmp[0]
    If $aTmp[$i] <> "" Then FileWrite($fhOut, $aTmp[$i] & @CRLF) ; aus Tmp2 in Ausgabedatei schreiben
    Next
    Select ; Fußbereich zufügen
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_CHECKED ; Statusbar m. Log/Fehler
    FileWrite($fhOut, 'If $fehler = 1 Then' & @CRLF)
    FileWrite($fhOut, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & ' & ' & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
    FileWrite($fhOut, 'Else' & @CRLF)
    FileWrite($fhOut, @TAB & 'ProgressSet( 100, "Beendet", "Installation erfolgreich!")' & @CRLF)
    FileWrite($fhOut, 'EndIf' & @CRLF)
    FileWrite($fhOut, 'Sleep(3000)' & @CRLF)
    FileWrite($fhOut, 'ProgressOff()' & @CRLF)
    Case GUICtrlRead($chStatus) = $GUI_CHECKED And GUICtrlRead($chLog) = $GUI_UNCHECKED ; Statusbar o. Log/Fehler
    FileWrite($fhOut, 'ProgressSet( 100, "", "Installation abgeschlossen!")' & @CRLF)
    FileWrite($fhOut, 'Sleep(3000)' & @CRLF)
    FileWrite($fhOut, 'ProgressOff()' & @CRLF)
    EndSelect
    FileClose($fhOut)
    MsgBox(64, "Script Generator", "Ausgabedatei" & @LF & @LF & $FileOut & @LF & @LF & "erstellt." )
    Exit
    EndFunc

    Func rDesktopClick()
    GUICtrlSetData($iTarget, "@DesktopDir")
    EndFunc

    Func rHomeDriveClick()
    GUICtrlSetData($iTarget, "@HomeDrive")
    EndFunc

    Func rMyDocClick()
    GUICtrlSetData($iTarget, "@MyDocumentsDir")
    EndFunc

    Func rProgDirClick()
    GUICtrlSetData($iTarget, "@ProgramsDir")
    EndFunc

    Func rProgFileDirClick()
    GUICtrlSetData($iTarget, "@ProgramFilesDir")
    EndFunc

    Func rSysDirClick()
    GUICtrlSetData($iTarget, "@SystemDir")
    EndFunc

    Func rWinDirClick()
    GUICtrlSetData($iTarget, "@WindowsDir")
    EndFunc

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

    ; DIE FOLGENDE FUNKTION WURDE FÜR DIESEN EINSATZ ETWAS VERÄNDERT. IM ORIGINAL SIND
    ; DIE HIER AUSKOMMENTIERTEN BEREICHE FREI.
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; Funktion _WriteInstall($SOURCEPATHES, $TARGET, $FILENAME[, $S_BAR=-1[, $LOG=-1]])
    ;
    ; Beschreibung Erzeugt eine Installationsdatei, mit FileInstall()-Routinen
    ; für alle Dateien des bzw. der Quellpfade, Optional Install-Log und
    ; Progressbar für Installationsfortschritt
    ;
    ; Parameter $SOURCEPATHES Pfad(e) des/der Quellordner getrennt mit "|"
    ; als String - keine Macros oder Variablen
    ; $TARGET Zielordner für Installation,
    ; Macros und Variablen können verwendet werden
    ; $FILENAME Name der zu erzeugenden Datei (z.B. 'setup.au3')
    ; als String - keine Macros oder Variablen
    ; $S_BAR Statusbar generieren (-1 JA, 0 NEIN) [Optional], Default -1
    ; $LOG Logdatei und Fehlercheck (-1 JA, 0 NEIN) [Optional], Default -1
    ;
    ; Autor BugFix ( [email='bugfix@autoit.de'][/email] )
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    Func _WriteInstall($SOURCEPATHES, $TARGET, $FILENAME, $S_BAR=-1, $LOG=-1)
    Dim $QUELLPFADE, $aFILES[1], $FH = FileOpen($FILENAME,1), $PERCENT
    $aFILES[0] = 0
    #cs
    If ($S_BAR = -1) And ($LOG = -1) Then
    FileWrite($FH, "#include <file.au3>" & @CRLF)
    FileWrite($FH, "Dim $fehler = 0" & @CRLF)
    FileWrite($FH, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
    ElseIf $LOG = -1 Then
    FileWrite($FH, "#include <file.au3>" & @CRLF)
    ElseIf ($S_BAR = -1) And ($LOG <> -1) Then
    FileWrite($FH, 'ProgressOn("Installation", "Installationsfortschritt", "")' & @CRLF)
    EndIf
    #ce
    If StringInStr($SOURCEPATHES, "|") Then $QUELLPFADE = StringSplit($SOURCEPATHES, "|")
    If IsArray($QUELLPFADE) Then
    For $i = 1 To $QUELLPFADE[0]
    $var = _GetFileList($QUELLPFADE[$i], "*.*")
    For $k = 1 To $var[0]
    _ArrayAdd($aFILES, $var[$k])
    $aFILES[0] += 1
    Next
    Next
    Else
    $var = _GetFileList($SOURCEPATHES, "*.*")
    If Not IsArray($var) Then
    MsgBox(16, 'Achtung', 'In ' & $SOURCEPATHES & ' sind keine Dateien vorhanden!')
    Return 0
    EndIf
    For $i = 1 To $var[0]
    _ArrayAdd($aFILES, $var[$i])
    $aFILES[0] += 1
    Next
    EndIf
    Select
    Case ($S_BAR = -1) And ($LOG = -1) ; mit Statusbar und Log/Fehlercheck
    For $i = 1 To $aFILES[0]
    $PERCENT = Round(100/$aFILES[0]*$i)
    $DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
    If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
    FileWrite($FH, 'ProgressSet(' & $PERCENT & ', "' & StringRight($aFILES[$i], StringLen($aFILES[$i])- StringInStr($aFILES[$i], "\",0,-1)) & '")' & @CRLF)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'If DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = OK")' & @CRLF)
    FileWrite($FH, @TAB & 'Else' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = Fehler")' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, @TAB & 'EndIf' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
    Else
    FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'If DirCreate("' & $TARGET & $DIERECTORIES & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = OK")' & @CRLF)
    FileWrite($FH, @TAB & 'Else' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = Fehler")' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, @TAB & 'EndIf' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
    EndIf
    FileWrite($FH, 'Else' & @CRLF)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
    Else
    FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
    EndIf
    FileWrite($FH, @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    Next
    #cs
    FileWrite($FH, 'If $fehler = 1 Then' & @CRLF)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & ' & ' & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
    Else
    FileWrite($FH, @TAB & 'ProgressSet( 100, "s. ' & $TARGET & '\Install.log", "Installation fehlerhaft!")' & @CRLF)
    EndIf
    FileWrite($FH, 'Else' & @CRLF)
    FileWrite($FH, @TAB & 'ProgressSet( 100, "Beendet", "Installation erfolgreich!")' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'Sleep(3000)' & @CRLF)
    FileWrite($FH, 'ProgressOff()' & @CRLF)
    #ce
    Case ($S_BAR = -1) And ($LOG <> -1) ; mit Statusbar, ohne Log/Fehlercheck
    For $i = 1 To $aFILES[0]
    $PERCENT = Round(100/$aFILES[0]*$i)
    $DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
    If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
    FileWrite($FH, 'ProgressSet(' & $PERCENT & ', "' & StringRight($aFILES[$i], StringLen($aFILES[$i])- StringInStr($aFILES[$i], "\",0,-1)) & '")' & @CRLF)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '")' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
    Else
    FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'DirCreate("' & $TARGET & $DIERECTORIES & '")' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
    EndIf
    Next
    #cs
    FileWrite($FH, 'ProgressSet( 100, "", "Installation abgeschlossen!")' & @CRLF)
    FileWrite($FH, 'Sleep(3000)' & @CRLF)
    FileWrite($FH, 'ProgressOff()' & @CRLF)
    #ce
    Case ($S_BAR <> -1) And ($LOG = -1) ; ohne Statusbar, mit Log/Fehlercheck
    For $i = 1 To $aFILES[0]
    $DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
    If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'If DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = OK")' & @CRLF)
    FileWrite($FH, @TAB & 'Else' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '\ = Fehler")' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, @TAB & 'EndIf' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
    Else
    FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'If DirCreate("' & $TARGET & $DIERECTORIES & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = OK")' & @CRLF)
    FileWrite($FH, @TAB & 'Else' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '_FileWriteLog("' & $TARGET & $DIERECTORIES & '\ = Fehler")' & @CRLF)
    FileWrite($FH, @TAB & @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, @TAB & 'EndIf' & @CRLF)
    FileWrite($FH, 'If FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '") = 1 Then' & @CRLF)
    FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = OK")' & @CRLF)
    EndIf
    FileWrite($FH, 'Else' & @CRLF)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, @TAB & '_FileWriteLog(' & $TARGET & ' & ' & '"\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
    Else
    FileWrite($FH, @TAB & '_FileWriteLog("' & $TARGET & '\Install.log", "' & StringTrimLeft($aFILES[$i],2) & ' = Fehler")' & @CRLF)
    EndIf
    FileWrite($FH, @TAB & '$fehler = 1' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    Next
    Case ($S_BAR <> -1) And ($LOG <> -1) ; ohne Statusbar, ohne Log/Fehlercheck
    For $i = 1 To $aFILES[0]
    $DIERECTORIES = StringTrimLeft(StringLeft($aFILES[$i], StringInStr($aFILES[$i],"\",0,-1)-1 ), 2 )
    If StringRight($TARGET, 1) = "\" Then $TARGET = StringTrimRight($TARGET, 1)
    If StringInStr($TARGET, "@") Then
    FileWrite($FH, 'If Not FileExists(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'DirCreate(' & $TARGET & ' & ' & '"' & $DIERECTORIES & '")' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", ' & $TARGET & ' & ' & '"' & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
    Else
    FileWrite($FH, 'If Not FileExists("' & $TARGET & $DIERECTORIES & '") Then' & @CRLF)
    FileWrite($FH, @TAB & 'DirCreate("' & $TARGET & $DIERECTORIES & '")' & @CRLF)
    FileWrite($FH, 'EndIf' & @CRLF)
    FileWrite($FH, 'FileInstall("' & $aFILES[$i] & '", "' & $TARGET & StringTrimLeft($aFILES[$i],2) & '")' & @CRLF)
    EndIf
    Next
    EndSelect
    FileClose($FH)
    EndFunc ;==>_WriteInstall

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

    ;********************************************************************************
    ; AutoIt Version: 3.0
    ; Language: English
    ; Platform: Win9x/NT/XP
    ; Author: jos van der Zande
    ;
    ; Find files in directory and subdirectories and return it in an Array, all coded in Autoit3
    ;
    ; _GetFileList($DIR, $FILEMASK, 1) ; _GetFileList($DIR, $FILEMASK [, Flag]) Flag GetFile(Default) = 0 , GetDirOnly = 1
    ;********************************************************************************
    ;Recursive search for filemask
    ;********************************************************************************

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

    Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
    Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
    Local $N_DIRCOUNT = 0
    Local $N_FILE
    Local $N_SEARCH
    Local $N_TFILE
    Local $N_OFILE
    Local $T_FILENAMES
    Local $T_FILECOUNT
    Local $T_DIRCOUNT = 1
    Local $FILEMASK
    ; check Filemask \ for empty File-Array by GetDirOnly
    If $FILEMASK = "n" Then $FILEMASK = "*.no"
    ; remove the end \ If specified
    If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
    $N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
    ; Exit if base dir doesn't exists
    If Not FileExists($T_DIR) Then Return 0
    ; keep on looping until all directories are scanned
    While $T_DIRCOUNT > $N_DIRCOUNT
    $N_DIRCOUNT = $N_DIRCOUNT + 1
    ; find all subdirs in this directory and save them in a array
    $N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
    While 1
    $N_FILE = FileFindNextFile($N_SEARCH)
    If @error Then ExitLoop
    ; skip these references
    If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
    $N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
    ; if Directory than add to the list of directories to be processed
    If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Then
    $T_DIRCOUNT = $T_DIRCOUNT + 1
    $N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
    EndIf
    Wend
    FileClose($N_SEARCH) ; find all Files that mtach the MASK
    $N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
    If $N_SEARCH = -1 Then ContinueLoop
    While 1
    $N_FILE = FileFindNextFile($N_SEARCH)
    If @error Then ExitLoop
    ; skip these references
    If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
    $N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
    ; if Directory than add to the list of directories to be processed
    If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
    $T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
    $T_FILECOUNT = $T_FILECOUNT + 1
    ;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
    EndIf
    Wend
    FileClose($N_SEARCH)
    Wend
    If $DIR_ONLY = 0 Then
    $T_FILENAMES = StringTrimRight($T_FILENAMES,1)
    $N_OFILE = StringSplit($T_FILENAMES,@CR)
    Return( $N_OFILE )
    Else
    ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
    $N_DIRNAMES[0] = $N_DIRCOUNT
    Return $N_DIRNAMES
    EndIf
    EndFunc ;==>_GetFileList

    [/autoit]

  • Traymenu seit dem läuft der script nichtmehr ?

    Vielen Dank BugFix

    habe nur ein Problem und zwar wo sage ich dem script welche bilder er installieren soll ?

    ok habe es jetzt getestet

    1. er erstellt zwar die Ordner aber er installiert die bilder nicht
    2. wenn ich bei _install den code von dir durch meinen ersetze installiert er die bilder
    3. er wechselt den hintergrund nicht

    kein plan vielleicht übersehe ich irgendwas ? HIer mal der script mit meiner fileinstall anpassung

    Spoiler anzeigen
    [autoit]

    Global Const $SPIF_SENDWININICHANGE = 0x2
    Global Const $SPIF_UPDATEINIFILE = 0x1
    Global Const $SPI_SETDESKWALLPAPER = 20
    Global $arBild[10] = [ _
    "C:\BS\PICCHANGE\1\bild.bmp", _
    "C:\BS\PICCHANGE\2\bild.bmp", _
    "C:\BS\PICCHANGE\3\bild.bmp", _
    "C:\BS\PICCHANGE\4\bild.bmp", _
    "C:\BS\PICCHANGE\5\bild.bmp", _
    "C:\BS\PICCHANGE\6\bild.bmp", _
    "C:\BS\PICCHANGE\7\bild.bmp", _
    "C:\BS\PICCHANGE\8\bild.bmp", _
    "C:\BS\PICCHANGE\9\bild.bmp", _
    "C:\BS\PICCHANGE\10\bild.bmp"]
    Global $pos = 0

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

    #Include <Constants.au3>
    $size = FileGetSize("C:\BS\PICCHANGE\1\" & $arBild[0])
    If $size = 0 then _Install ()

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

    Func _Install ()
    For $i = 1 To 10
    DirCreate("C:\BS\PICCHANGE\" & $i)
    FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
    FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
    FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
    FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
    FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
    FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
    FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
    FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
    FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
    FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
    Next
    EndFunc

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

    Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.

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

    $E = TrayCreateMenu("Einstellungen")
    $In = TrayCreateItem("Intervall", $E)
    $B = TrayCreateItem("Bilder Tauschen", $E)
    $AB = TrayCreateItem("About")
    $EX = TrayCreateItem("Beenden")

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

    TraySetState()
    AdlibEnable('_chgWallpaper', 300000)

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

    While 1
    $msg = TrayGetMsg()
    Switch $msg
    Case $AB
    Msgbox(64,"Über:","AutoIt3-Tray-Beispiel")
    Case $EX
    Exit
    EndSwitch
    WEnd

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

    Func _chgWallpaper()
    If $pos = 10 Then $pos = 0
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, _
    "uint", 0, "str", $arBild[$pos], "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    $pos += 1
    EndFunc

    [/autoit]

  • Traymenu seit dem läuft der script nichtmehr ?

    Hallo Liebe Gemeinde

    ich habe mir ein programm geschrieben das mir alle 5 minuten ein anderes wallpaper aufs desktop macht und wollte da noch ein traymenu mit rein bauen, seit dieses mit drinnen ist wird mein script erst ausgeführt wenn ich im traymenu auf beenden gehe und der script lässt sich dann auch nicht mehr beenden. Könnte da evtl. mal jemand drüberschauen ich finde den fehler nicht...


    MFG Eistee


    Spoiler anzeigen
    [autoit]

    Global Const $SPIF_SENDWININICHANGE = 0x2
    Global Const $SPIF_UPDATEINIFILE = 0x1
    Global Const $SPI_SETDESKWALLPAPER = 20
    Global $bild1 = "C:\BS\PICCHANGE\1\bild.bmp"
    Global $bild2 = "C:\BS\PICCHANGE\2\bild.bmp"
    Global $bild3 = "C:\BS\PICCHANGE\3\bild.bmp"
    Global $bild4 = "C:\BS\PICCHANGE\4\bild.bmp"
    Global $bild5 = "C:\BS\PICCHANGE\5\bild.bmp"
    Global $bild6 = "C:\BS\PICCHANGE\6\bild.bmp"
    Global $bild7 = "C:\BS\PICCHANGE\7\bild.bmp"
    Global $bild8 = "C:\BS\PICCHANGE\8\bild.bmp"
    Global $bild9 = "C:\BS\PICCHANGE\9\bild.bmp"
    Global $bild10 = "C:\BS\PICCHANGE\10\bild.bmp"
    #Include <Constants.au3>
    $size = FileGetSize("C:\BS\PICCHANGE\1\bild.bmp")
    If $size = 0 then _Install ()

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

    Func _Install ()
    DirCreate("C:\BS\PICCHANGE\1")
    DirCreate("C:\BS\PICCHANGE\2")
    DirCreate("C:\BS\PICCHANGE\3")
    DirCreate("C:\BS\PICCHANGE\4")
    DirCreate("C:\BS\PICCHANGE\5")
    DirCreate("C:\BS\PICCHANGE\6")
    DirCreate("C:\BS\PICCHANGE\7")
    DirCreate("C:\BS\PICCHANGE\8")
    DirCreate("C:\BS\PICCHANGE\9")
    DirCreate("C:\BS\PICCHANGE\10")
    FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
    FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
    FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
    FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
    FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
    FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
    FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
    FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
    FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
    FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
    EndFunc

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

    Opt("TrayMenuMode",1) ; Standard Traymenüeinträge (Script pausieren/beenden) werden nicht angezeigt.

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

    $E = TrayCreateMenu("Einstellungen")
    $I = TrayCreateItem("Intervall", $E)
    $B = TrayCreateItem("Bilder Tauschen", $E)
    $AB = TrayCreateItem("About")
    $EX = TrayCreateItem("Beenden")

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

    TraySetState()

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    _1 ()
    Case $msg = $AB
    Msgbox(64,"Über:","AutoIt3-Tray-Beispiel")
    Case $msg = $EX
    ExitLoop
    Exit
    EndSelect
    WEnd

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

    _1 ()

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

    Func _1 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild1, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _2()
    EndFunc

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

    Func _2 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild2, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _3()
    EndFunc

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

    Func _3 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild3, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _4()
    EndFunc

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

    Func _4 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild4, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _5()
    EndFunc

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

    Func _5 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild5, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _6()
    EndFunc

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

    Func _6 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild6, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _7()
    EndFunc

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

    Func _7 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild7, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _8()
    EndFunc

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

    Func _8 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild8, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _9()
    EndFunc

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

    Func _9 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild9, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _10()
    EndFunc

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

    Func _10 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild10, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _1()
    EndFunc

    [/autoit]

  • Desktophintergrund ändern aber das bild zentrieren ?

    Hallo liebe autoit Gemeinde

    ich habe das Forum nach ener möglichkeit gesucht ohne verzögerung den desktop hintergrund zu ändern und bin auch fündig geworden das problem ist nur das der script den ich gefunden habe das bild als "nebeneinander" einstellt
    das schlechte daran ist das ich mmit etwas kleineren Bildern arbeiten möchte da es auch bei freunden Funktionieren soll . Und jetzt die Frage/bitte wie kann ich den folgenden Code umschreiben sodass er das bild asl "Zentriert" einstellt

    MFG Eistee

    Spoiler anzeigen
    [autoit]

    Global Const $SPIF_SENDWININICHANGE = 0x2
    Global Const $SPIF_UPDATEINIFILE = 0x1
    Global Const $SPI_SETDESKWALLPAPER = 20
    Global $bild1 = "C:\BS\PICCHANGE\1\bild.bmp"
    Global $bild2 = "C:\BS\PICCHANGE\2\bild.bmp"
    Global $bild3 = "C:\BS\PICCHANGE\3\bild.bmp"
    Global $bild4 = "C:\BS\PICCHANGE\4\bild.bmp"
    Global $bild5 = "C:\BS\PICCHANGE\5\bild.bmp"
    Global $bild6 = "C:\BS\PICCHANGE\6\bild.bmp"
    Global $bild7 = "C:\BS\PICCHANGE\7\bild.bmp"
    Global $bild8 = "C:\BS\PICCHANGE\8\bild.bmp"
    Global $bild9 = "C:\BS\PICCHANGE\9\bild.bmp"
    Global $bild10 = "C:\BS\PICCHANGE\10\bild.bmp"

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

    $size = FileGetSize("C:\BS\PICCHANGE\1\bild.bmp")
    If $size = 0 then _Install ()

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

    Func _Install ()
    DirCreate("C:\BS\PICCHANGE\1")
    DirCreate("C:\BS\PICCHANGE\2")
    DirCreate("C:\BS\PICCHANGE\3")
    DirCreate("C:\BS\PICCHANGE\4")
    DirCreate("C:\BS\PICCHANGE\5")
    DirCreate("C:\BS\PICCHANGE\6")
    DirCreate("C:\BS\PICCHANGE\7")
    DirCreate("C:\BS\PICCHANGE\8")
    DirCreate("C:\BS\PICCHANGE\9")
    DirCreate("C:\BS\PICCHANGE\10")
    FileInstall("1.bmp", "C:\BS\PICCHANGE\1\bild.bmp")
    FileInstall("2.bmp", "C:\BS\PICCHANGE\2\bild.bmp")
    FileInstall("3.bmp", "C:\BS\PICCHANGE\3\bild.bmp")
    FileInstall("4.bmp", "C:\BS\PICCHANGE\4\bild.bmp")
    FileInstall("5.bmp", "C:\BS\PICCHANGE\5\bild.bmp")
    FileInstall("6.bmp", "C:\BS\PICCHANGE\6\bild.bmp")
    FileInstall("7.bmp", "C:\BS\PICCHANGE\7\bild.bmp")
    FileInstall("8.bmp", "C:\BS\PICCHANGE\8\bild.bmp")
    FileInstall("9.bmp", "C:\BS\PICCHANGE\9\bild.bmp")
    FileInstall("10.bmp", "C:\BS\PICCHANGE\10\bild.bmp")
    _1 ()
    EndFunc

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

    _1 ()

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

    Func _1 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild1, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _2()
    EndFunc

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

    Func _2 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild2, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _3()
    EndFunc

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

    Func _3 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild3, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _4()
    EndFunc

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

    Func _4 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild4, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _5()
    EndFunc

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

    Func _5 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild5, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _6()
    EndFunc

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

    Func _6 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild6, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _7()
    EndFunc

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

    Func _7 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild7, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _8()
    EndFunc

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

    Func _8 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild8, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _9()
    EndFunc

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

    Func _9 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild9, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _10()
    EndFunc

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

    Func _10 ()
    DllCall("user32.dll", "int", "SystemParametersInfo", "uint", $SPI_SETDESKWALLPAPER, "uint", 0, "str", $bild10, "uint", BitOR($SPIF_SENDWININICHANGE,$SPIF_UPDATEINIFILE))
    Sleep(300000)
    _1()
    EndFunc

    [/autoit]

  • Sammel Fragen von Eistee zu Eigenem Player

    ähm wieso funktioniert Die play func bitte nicht ?
    jetzt wird doch endlich der jeweilige titel in den Listview gesetzt, was geht denn jetzt schon wieder schief ?

    ich poste mal meinen gesamten bisherigen code :

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <GuiListView.au3>
    #include <Sound.au3>
    #NoTrayIcon ;Sorgt dafür das unten im tray kein Symbol erscheint

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

    Global $VOLIST = _SoundGetWaveVolume () ;Bringt die momentane Stufe der Volume in Erfahrung und speichert diese Global in $VOLIST
    Global $WM_DROPFILES = 0x233
    Global $gaDropFiles[1], $str = ""

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

    $GUI = GUICreate("MP3", 600, 265, -1, -1,$WS_POPUP,$WS_EX_ACCEPTFILES) ;Erstellt eine GUI mit dem namen MP3 welches sich zentriert öffnet und ohne den Windows Rahmen arbeitet
    GUISetBkColor(0x000000) ;Färbt den hintergrund der GUI schwarz

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

    $LIST = GUICtrlCreateListView("Titel", 5, 30, 590, 150) ;Erstellt einen ListView mit zwei Spalten :Titel,Pfad
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    GUICtrlSendMsg(-1, 0x101E, 0, 200) ;Weiss ich nicht
    GUICtrlSendMsg(-1, 0x101E, 1, 386) ;Weiss ich nicht
    GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman") ;Setzt die Schriftart auf Times New Roman
    GUICtrlSetCursor (-1, 2) ;Verpasst dem Slider einen anderen Cursor

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

    $GROUP = GUICtrlCreateGroup(" Titel ", 5, 185, 100, 50) ;Erstellt eine Group zwecks der Optik
    GUICtrlSetFont(-1, 10, 400, 0, "Demonized") ;Stellt den Font auf Demonized
    GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss

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

    $LABEL = GUICtrlCreateLabel("00:00", 15, 205, 57, 23) ;Erstellt ein Textlabel in der Group
    GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;Weisst das Label der Group zu

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

    $GROUP2 = GUICtrlCreateGroup(" Volume ", 420, 185, 175, 50) ;Erstellt eine Group zwecks der Optik
    GUICtrlSetFont(-1, 10, 400, 0, "Demonized") ;Stellt den Font auf Demonized
    GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss

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

    $SLIDER = GUICtrlCreateSlider(430, 205, 160, 20) ;Erstellt meinen Volume Slider
    GUICtrlSetLimit(-1,100,0) ;Sagt dem Slider das er von 0 - 100 Regeln soll
    GUICtrlSetData($SLIDER, $VOLIST) ;Sagt dem Slider wo er starten soll
    GUICtrlSetCursor (-1, 0) ;Verpasst dem Slider einen anderen Cursor
    GUICtrlSetBkColor(-1, 0x000000) ;Färbt den Hintergrund schwarz ein
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;Weisst den Slider der Goup zu

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

    $BACK = GUICtrlCreateButton("Back", 120, 195, 60, 30, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $PLAY = GUICtrlCreateButton("Play", 195, 195, 60, 30, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $STOP = GUICtrlCreateButton("Stop", 270, 195, 60, 30, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $FORWARD = GUICtrlCreateButton("Forward", 345, 195, 60, 30, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $CLOSE = GUICtrlCreateButton("X", 570, 3, 25, 25, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $MINI = GUICtrlCreateButton("_", 544, 3, 25, 25, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $ABOUT = GUICtrlCreateButton("?", 518, 3, 25, 25, 0) ;Erstellt einen Button
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetCursor (-1, 0) ;Weisst einen anderen Cursor zu

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

    $LABELCOPY = GUICtrlCreateLabel("<c> by BlackShark", 504, 248, 93, 18) ;Erstellt ein Textlabel mit meinem Copyright
    GUICtrlSetFont(-1, 8, 800, 2, "Times New Roman") ;Stellt Font auf Times New Roman
    GUICtrlSetColor(-1, 0xFFFFFF) ;Setzt die Schriftfarbe auf Weiss

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

    GUISetState(@SW_SHOW) ;Setzt die GUI auf "ZEIGEN"

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

    GUIRegisterMsg ($WM_DROPFILES, "WM_DROPFILES_FUNC")

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

    While 1 ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Anfang
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $GUI_EVENT_DROPPED
    For $i = 0 To UBound($gaDropFiles) - 1
    GUICtrlCreateListViewItem(StringRegExpReplace($gaDropFiles[$i], '.*\\(.*)\..*', '$1'), $List)
    _GUICtrlListView_SetColumnWidth($List, 0, $LVSCW_AUTOSIZE)
    Next

    Case $CLOSE ;Hier bestimmt man um welches GUI Element es sich handelt
    _CLOSE () ;Hier sagt man ihm was er machen soll in diesem Fall _CLOSE ()
    Case $MINI
    _MINI ()
    Case $ABOUT
    _ABOUT ()
    Case $SLIDER
    _VOLUME ()
    Case $PLAY
    _PLAY ()

    EndSwitch
    WEnd ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Ende

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

    Func _PLAY()
    $TITEL = Guictrlread($LIST)
    _SoundPlay($TITEL,0)
    EndFunc

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

    Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
    Local $nSize, $pFileName
    Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
    For $i = 0 To $nAmt[0] - 1
    $nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
    $nSize = $nSize[0] + 1
    $pFileName = DllStructCreate("char[" & $nSize & "]")
    DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
    ReDim $gaDropFiles[$i+1]
    $gaDropFiles[$i] = DllStructGetData($pFileName, 1)
    $pFileName = 0
    Next
    EndFunc

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

    Func _VOLUME () ;Setzt die derzeitige Lautstärke auf den vom Benutzer gewählten bereich
    $VOLNEW = GUICtrlRead($SLIDER)
    SoundSetWaveVolume($VOLNEW)
    EndFunc

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

    Func _SoundGetWaveVolume() ;Bring den momentanen Wert der Lautstärke in erfahrung von Autoit.de User Deepred
    Local $WaveVol = -1, $p, $ret
    Const $MMSYSERR_NOERROR = 0
    $p = DllStructCreate("dword")
    If @error Then
    SetError(2)
    Return -2
    EndIf
    $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p))
    If ($ret[0] == $MMSYSERR_NOERROR) Then
    $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), 8), 4)) / 0xFFFF * 100)
    Else
    SetError(1)
    EndIf
    $p = 0
    Return $WaveVol
    EndFunc

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

    Func _ABOUT () ;Startet meine ABOUT.exe welche mein logo anzeigt
    GUISetState(@SW_MINIMIZE, $GUI)
    Run("C:\BS\MP3\ABOUT.exe")
    Sleep(2100)
    GUISetState(@SW_RESTORE, $GUI)
    EndFunc

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

    Func _MINI () ;Hiermit kann ich meine GUI minimieren
    GUISetState(@SW_MINIMIZE, $GUI)
    EndFunc

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

    Func _CLOSE () ;Hiermit kann ich meine GUI schließen
    Exit
    EndFunc

    [/autoit]

    hoffe ihr könnt helfen

    MFG Eistee

  • Sammel Fragen von Eistee zu Eigenem Player

    @ Oscar ich weiss ^^ dein Player war schuld dran das ich auch einen schreiben will ^^ das problem ist nur das dein Source Code so Gross ist das ich nicht durchsteige
    weshalb er mir leider nicht weitergeholfen hatt,tut mir leid dein Code ist zu gut . Würde mich freuen wenn du mir auch so ein wenig helfen kannst

    Mfg Eistee


    P.s.

    Soweit bin ich im moment habe diesen beitra im englischen forum gesehen

    das problem ist das er das feld ständig resetet wenn man was hinzufügen will da sitz ich jetz schon ein par stunden dran...


    Spoiler anzeigen
    [autoit]

    #include<GuiListView.au3>
    #Include <GuiEdit.au3>
    #include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein

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

    Global $WM_DROPFILES = 0x233
    Global $gaDropFiles[1], $str = ""

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

    ### Koda GUI section start ###
    $hGUI = GUICreate("Test", 400, 200, 219, 178, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_TOPMOST))
    $hList = GUICtrlCreateList("", 5, 5, 390, 190)
    GUICtrlSetState (-1, $GUI_DROPACCEPTED)
    GUISetState(@SW_SHOW)
    ### Koda GUI section end ###

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

    GUIRegisterMsg ($WM_DROPFILES, "WM_DROPFILES_FUNC")

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $GUI_EVENT_DROPPED
    $str = ""
    For $i = 0 To UBound($gaDropFiles) - 1
    $str &= "|" & $gaDropFiles[$i]
    Next
    GUICtrlSetData($hList, $str)
    EndSwitch
    WEnd

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

    Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam)
    Local $nSize, $pFileName
    Local $nAmt = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", 0xFFFFFFFF, "ptr", 0, "int", 255)
    For $i = 0 To $nAmt[0] - 1
    $nSize = DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", 0, "int", 0)
    $nSize = $nSize[0] + 1
    $pFileName = DllStructCreate("char[" & $nSize & "]")
    DllCall("shell32.dll", "int", "DragQueryFile", "hwnd", $wParam, "int", $i, "ptr", DllStructGetPtr($pFileName), "int", $nSize)
    ReDim $gaDropFiles[$i+1]
    $gaDropFiles[$i] = DllStructGetData($pFileName, 1)
    $pFileName = 0
    Next
    EndFunc

    [/autoit]

    MFG

  • Sammel Fragen von Eistee zu Eigenem Player

    Hallo Leute ich bins mal wieder

    ich würde gerne wissen wie ich z.B. mp3 dateien in einen Listview ziehen kann (drag and Drop)
    und dieser dann die MusikTitel auflistet und ich diese titel dan theoretisch mit soundplay abspielen kann ^^
    gibt es da bereits möglichkeiten ?

    MFG EISTEE


    bisheriger testcode:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <GUIConstantsEx.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <ListViewConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <SliderConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <StaticConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #include <WindowsConstants.au3> ;Bindet einige dateien mit fertigen Befehlen und Funktionen in den Script ein
    #NoTrayIcon ;Sorgt dafür das unten im tray kein Symbol erscheint

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

    $GUI = GUICreate("MP3", 600, 265, -1, -1,$WS_POPUP) ;Erstellt eine GUI mit dem namen MP3 welches sich zentriert öffnet und ohne den Windows Rahmen arbeitet
    GUISetBkColor(0x000000)

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

    $LIST = GUICtrlCreateListView("Titel|Pfad", 5, 30, 590, 150) ;Erstellt einen ListView mit zwei Spalten :Titel,Pfad
    GUICtrlSendMsg(-1, 0x101E, 0, 200) ;Weiss ich nicht
    GUICtrlSendMsg(-1, 0x101E, 1, 386) ;Weiss ich nicht
    GUICtrlSetState($LIST, $GUI_DROPACCEPTED)
    GUICtrlSetFont(-1, 8, 800, 0, "Times New Roman") ;Setzt die Schriftart auf Times New Roman
    GUICtrlSetCursor (-1, 2)

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

    While 1 ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Anfang
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd ;Bereich zuweisung von Funktionen auf GUI Elemente beziehend Ende

    [/autoit]

  • Sammel Fragen von Eistee zu Eigenem Player

    Hallo Liebe Community
    Wie die Überschrift schon sagt versuche ich mich gerade an einem eigenen Player, diesbezüglich habe ich ein paar grundlegende Frage und bin mir sicher das im laufe der zeit noch einige hinzukommen werden weshalb ich einen Sammelthread gemacht habe ^^


    Die erste frage die mich interressiert ist folgende :

    wie sage ich einem erstellten slider an welcher stelle er in seiner verschiebeleiste zu beginn stehen soll ? Mit Guictrlsetdata habe ich nur herausbekommen wie ich ihm sage von welchem wert bis zu welchem Wert er verschiebbar ist.
    Ich möchte mit soundgetwavevolume den momentanen wert der lautstärke auslesen lassen und dafür sorgen das der Slider auch an der stelle des momentanen Wertes beginnt

    Für eure Hilfe die ich im moment sehr gut gebrauchen kann danke ich euch schon einmal im vorraus

    MFG Eistee

    P.S. hier schon mal der Slider MFG


    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #NoTrayIcon
    Global $VOLIST = _SoundGetWaveVolume ()

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

    $GUI = GUICreate("MP3", 601, 268, -1, -1,$WS_POPUP)
    GUISetBkColor(0x000000)

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

    $SLIDER = GUICtrlCreateSlider(430, 205, 160, 20)
    GUICtrlSetLimit(-1,100,0)
    GUICtrlSetCursor (-1, 0)
    GUICtrlSetBkColor(-1, 0x000000)
    GUICtrlCreateGroup("", -99, -99, 1, 1)

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

    Func _SoundGetWaveVolume()
    Local $WaveVol = -1, $p, $ret
    Const $MMSYSERR_NOERROR = 0
    $p = DllStructCreate("dword")
    If @error Then
    SetError(2)
    Return -2
    EndIf
    $ret = DllCall("winmm.dll", "long", "waveOutGetVolume", "long", -1, "long", DllStructGetPtr($p))
    If ($ret[0] == $MMSYSERR_NOERROR) Then
    $WaveVol = Round(Dec(StringRight(Hex(DllStructGetData($p, 1), 8), 4)) / 0xFFFF * 100)
    Else
    SetError(1)
    EndIf
    $p = 0
    Return $WaveVol
    EndFunc

    [/autoit]