Beiträge von RR04

  • USB Stick suchen

    Hi !

    Ja, das ist richtig. Auf diese Weise haben Alle etwas und nicht nur der mit einer Seriennr.
    Das Ganze kann bestimmt noch erweitert werden.

    Edit: Besonders Nutzer von CardReadern wird es freuen, wenn sie aus vielen LW nicht mehr eines suchen müssen.
    Viel Spaß damit ! :thumbup:

  • USB Stick suchen

    Zitat von BugFix


    Das setzt aber voraus, dass dein Stick eine Seriennummer hat. Von meinen 5 Sticks sind 3 ohne SNr. :D

    Auf diese Weise ist keine Seriennr. nötig.

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Global $HDD = DriveGetDrive("REMOVABLE")
    If @error Then Exit MsgBox _
    (64,"Error", "Es wurde kein USB-Laufwerk gefunden !" & @TAB)

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

    GUICreate(" USB - Manager", 300, 400)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_quit")
    GUICtrlCreateLabel("USB - Manager", 10, 10, 280, 17, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
    For $i = 1 To $HDD[0]
    $lbLW = GUICtrlCreateLabel("Auf " & $HDD[$i] _
    & " sind " & Round(DriveSpaceFree($HDD[$i]), 2) _
    & " MB frei.", 10, 10 + $i * 32, 180, 22)
    Next
    $bnCancel = GUICtrlCreateButton("Cancel", 215, 368, 75, 22)
    GUICtrlSetOnEvent(-1, "_quit")

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _quit()
    MsgBox(64, " USB - Manager", _
    "Viel Spaß wünscht Ritzelrocker04 !" & @TAB)
    Exit
    EndFunc ;==>_quit
    ; Ende

    [/autoit]


    Viel Erfolg ! :thumbup:

  • Array Problem

    Hi Alina !
    Unser BugFix hat das mal aufbereitet. ;)

    Viele Funktionen geben als Ergebnis ein Array zurück. Dabei wird häufig die Arrayposition [0] genutzt um die Anzahl der Arrayelemente anzugeben.
    Ein Bsp. hierfür ist StringSplit().
    Nehmen wir an, wir haben einen String mit durch '|' getrennten Werten.

    $string = 'a|b|d|f|h|i|k'

    Wir möchten jetzt jeden Wert einzeln haben:

    $arSplit = StringSplit($string, '|')

    Und das ist jetzt der Inhalt von $arSplit

    $arSplit[0] = 7
    $arSplit[1] = 'a'
    $arSplit[2] = 'b'
    $arSplit[3] = 'd'
    $arSplit[4] = 'f'
    $arSplit[5] = 'h'
    $arSplit[6] = 'i'
    $arSplit[7] = 'k'

    Quelle:
    http://www.bug-fix.info/array_tut.htm

  • Nach Button click geht nix mehr OO

    Spoiler anzeigen
    [autoit]


    ; Der Inhalt der Termine.ini
    ;[Sound]
    ;Pfad=C:\Dokumente und Einstellungen\USER\Eigene Dateien\My Sound\tada.wav

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

    ;### [ ... ]
    Case $Sound
    $pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    If @error Then
    MsgBox(4096, "", "Keine Datei(en) ausgewählt")
    Else
    $pfad = StringReplace($pfad, "|", @CRLF)
    GUICtrlSetData($settings4, $pfad)
    EndIf

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

    ;Deine Einstellungen
    ;$pfad = FileOpenDialog("Bitte ein Sound wählen !", @MyDocumentsDir, "Alle(*.*)", 1)
    ;Sleep(100)
    ;GUICtrlSetData($settings4, $pfad)

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

    ;### Ort der Termine.ini angeben
    Case $save2
    IniWrite(@ScriptDir & "\Termine.ini", "Sound", "Pfad", GUICtrlRead($settings4))
    ;### [ ... ]

    [/autoit]


    Viel Erfolg ! :thumbup:

  • Nach Button click geht nix mehr OO

    Hi, Deine Termine.ini bei mir sieht so aus:

    Spoiler anzeigen


    [PC Shutdown]
    =4
    [PC Restart]
    =1
    [Abmelden]
    =4
    [Sound]
    Pfad=

    [autoit]


    IniWrite("C:\Temp\meineDatei.ini", "sektion2", "Schlüssel", "Das ist ein neuer Wert")

    [/autoit]


    Den Schlüssel vergessen anzugeben ? ;)

  • Nach Button click geht nix mehr OO

    :) Hi,
    hier ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    #Region - GUI Create
    $GUI0 = GUICreate('Planer')
    $bnSetting = GUICtrlCreateButton("Einstellungen", 10, 20, 75, 22)
    $GUI1 = GUICreate('Planer Einstellungen')
    $bnSettingClose = GUICtrlCreateButton("zurück", 10, 20, 75, 22)
    GUISetState(@SW_SHOW, $GUI0)
    #EndRegion - GUI Create

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

    #Region - GUI SelectLoop
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    Case $msg = $bnSetting
    GUISetState(@SW_SHOW, $GUI1)
    Case $msg = $bnSettingClose
    GUISetState(@SW_HIDE, $GUI1)
    ;Case $msg =
    ;Case $msg =
    EndSelect
    WEnd
    #EndRegion - GUI SelectLoop

    [/autoit]

  • GUI Hintergrundbild

    Herzlich Willkommen !

    Bildgröße und GUI müssen stimmen.
    Das Bild befindet sich im gleichen Ordner, wie das Script.
    Hier ein Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>

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

    GUICreate("Titel", 635, 293, 187, 122)
    $Pic = GUICtrlCreatePic(@ScriptDir & "\DeinHintergrundBild.jpg", 0, 0, 635, 293)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    GUISetState()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    ; Ende

    [/autoit]

  • Dynamische Button bedienen

    Danke an BugFix und Oscar für die Unterstützung.
    Das Ergebnis liegt im Spoiler. ;)

    Spoiler anzeigen
    [autoit]


    ; by Ritzelrocker04
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Global $lbLW[5], $bnOpen[5], $bnClose[5]
    Global $CDROM = DriveGetDrive("CDROM")

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

    $GUI = GUICreate("CD - Tray Manager", 300, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_quit")
    GUICtrlCreateLabel("CD - Tray Manager", 10, 10, 280, 17, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")

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

    For $i = 1 To $CDROM[0]
    $lbLW[$i] = GUICtrlCreateLabel("CD-Rom - Laufwerk " & $CDROM[$i], 10, 10 + $i * 32, 180, 22)
    $bnOpen[$i] = GUICtrlCreateButton("Open", 200, 10 + $i * 32, 40, 22)
    GUICtrlSetOnEvent(-1, '_LWopenclose')
    $bnClose[$i] = GUICtrlCreateButton("Close", 250, 10 + $i * 32, 40, 22)
    GUICtrlSetOnEvent(-1, '_LWopenclose')
    Next

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

    $bnCancel = GUICtrlCreateButton("Cancel", 215, 168, 75, 22)
    GUICtrlSetOnEvent(-1, "_quit")

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _LWopenclose()
    Local $msg = @GUI_CtrlId
    For $i = 1 To $CDROM[0]
    If $msg = $bnOpen[$i] Then
    CDTray($CDROM[$i], 'open')
    ExitLoop
    EndIf
    If $msg = $bnClose[$i] Then
    CDTray($CDROM[$i], 'closed')
    ExitLoop
    EndIf
    Next
    EndFunc ;==>_LWopenclose by Oscar

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

    Func _quit()
    MsgBox(64, " CD - Tray Manager", "Viel Spaß wünscht Ritzelrocker04 !" & @TAB)
    Exit
    EndFunc ;==>_quit

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

    ; Ende

    [/autoit]

  • Dynamische Button bedienen

    Jeweils nach vorhandenen CD-Laufwerken, werden Label und Button dynamisch bis zu 4 Stück erstellt.Die Gestaltung der Buttonprozedur bereitet mir Probleme und ich komme nicht weiter.
    Deshalb meine Frage an Euch, ob Ihr einen Rat oder Lösung habt ?

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    Opt("GUIOnEventMode", 1)

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

    Global $lbLW[5], $bnOpen[5], $bnClose[5]
    Global $CDROM = DriveGetDrive("CDROM")

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

    $GUI = GUICreate("CD - Tray Manager", 300, 200)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_quit")
    GUICtrlCreateLabel("CD - Tray Manager", 10, 10, 280, 17, $SS_CENTER)
    GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")

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

    For $i = 1 To $CDROM[0]
    $lbLW[$i] = GUICtrlCreateLabel("CD-Rom - Laufwerk " & $CDROM[$i], 10, 10 + $i * 32, 180, 22)
    $bnOpen[$i] = GUICtrlCreateButton("Open", 200, 10 + $i * 32, 40, 22)
    $bnClose[$i] = GUICtrlCreateButton("Close", 250, 10 + $i * 32, 40, 22)

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

    ; $bnOpen[$i] CDTray($CDROM[$i], "open")
    ; $bnClose[$i] CDTray($CDROM[$i], "close")
    Next

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

    $bnCancel = GUICtrlCreateButton("Cancel", 215, 168, 75, 22)
    GUICtrlSetOnEvent(-1, "_quit")

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

    GUISetState(@SW_SHOW)

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

    While 1
    Sleep(100)
    WEnd

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

    Func _quit()
    Exit
    EndFunc ;==>_quit

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

    ; Ende

    [/autoit]


    Danke ;)

  • SideBar für XP

    Hi, für den Wochentag ! ;)

    Spoiler anzeigen
    [autoit]


    Dim $WDAY

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

    Switch @WDAY ;i Der Variable täglich den Wochentag zuweisen 1-7.
    Case 1
    $WDAY = " Sonntag "
    Case 2
    $WDAY = " Montag "
    Case 3
    $WDAY = " Dienstag "
    Case 4
    $WDAY = " Mittwoch "
    Case 5
    $WDAY = " Donnerstag "
    Case 6
    $WDAY = " Freitag "
    Case 7
    $WDAY = " Samstag "
    EndSwitch

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

    MsgBox(0, " Wochentag", "Heute ist " & $WDAY & " !" & @TAB)
    Exit
    ; Ende

    [/autoit]

  • Wie füge ich eine video ein?

    Na das nenne ich eine schnelle Reaktion ! :thumbup:

    Ich gehe jetzt davon aus, dass Dein Screenshot von Deinem Avi-Video ist.
    Schau Dir mal die Stelle oben Rechts unter Video an. Hier listet Dir GSpot den Xvid Codec (XviD 1.1.2 Final) mit Status "Instaled",
    also als installiert auf.
    Somit können einige Programme auf diesen Codec zugreifen und den Film abspielen.

    AutoIt hingegen ist auf das Abspielen des reinen einfachen Avis ausgerichtet -
    Du benötigst einen anderen Player oder wandelst in das AutoItkonforme Format um !

  • Wie füge ich eine video ein?

    Hi doPe !

    Avi ist nicht gleich Avi . ;)

    Audio Video Interleave (AVI) ist ein von Microsoft definiertes Video-Containerformat, das von dem für Windows 3.1 eingeführten RIFF (Resource Interchange File Format) abgeleitet ist. "Audio Video Interleave" bedeutet, dass Audio- und Videodaten ineinander verzahnt, also "interleaved" abgespeichert werden. Die erste Definition von AVI ist so alt wie die Multimedia-PCs. Das Format wurde von Microsoft als einheitliche Lösung für die Wiedergabe von kurzen Videoclips geschaffen. In einer AVI-Datei können mehrere Video-, Audio- und Text-Untertiteldatenströme vorhanden sein, die mit verschiedenen Verfahren kodiert sein können.

    Quelle:
    http://de.wikipedia.org/wiki/Audio_Video_Interleave

    Nicht jedes Video läuft auf jedem PC. Die Ursache liegt meist in unterschiedlichen Versionen der Codecs, mit dem der Film komprimiert wurde und die auf dem Windows-System installiert sind.
    Das kleine Gratis-Tool GSpot hilft bei der schnellen Analyse von Video-Dateien und listet alle zum korrekten Abspielen benötigten Codecs und DircetShow-Filter auf
    Die Freeware kommt ohne Installation aus und ist nach dem Download sofort startklar.

    Quelle:
    http://www.chip.de/downloads/GSpot-2.70a_13008930.html

  • Wie füge ich eine video ein?

    [autoit]


    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $ani1, $buttonstart, $buttonstop, $msg

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

    GUICreate(" Das Video aus der Hilfe", 625, 445)
    $ani1 = GUICtrlCreateAvi(@TempDir & "\SAW.5.Unrated.avi", 1, 64, 56, 489, 305)
    $buttonstart = GUICtrlCreateButton("Start", 50, 415, 75, 22)
    $buttonstop = GUICtrlCreateButton("Stopp", 150, 415, 75, 22)

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

    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $buttonstart
    GUICtrlSetState($ani1, 1)
    Case $msg = $buttonstop
    GUICtrlSetState($ani1, 0)
    EndSelect
    WEnd
    EndFunc ;==>Example
    ; Ende

    [/autoit]