Beiträge von Oscar

  • BitAnd Problem - ich verstehs nicht..

    Und die ganzen If-Abfragen sind falsch. So passt es schon eher:

    Spoiler anzeigen
    [autoit]


    $titel = ''
    $win = "Unbenannt - Paint"
    $temp = WinGetState($win)
    If @error Then
    MsgBox(0, $titel & " - Status", "Das Fenster wurde nicht gefunden.")
    Else
    $status = ""
    If BitAND($temp, 1) Then $status &= @CRLF & "Fenster existiert."
    If BitAND($temp, 2) Then $status &= @CRLF & "Fenster ist sichtbar."
    If BitAND($temp, 4) Then $status &= @CRLF & "Fenster ist freigegeben."
    If BitAND($temp, 8) Then $status &= @CRLF & "Fenster ist aktiv."
    If BitAND($temp, 16) Then $status &= @CRLF & "Fenster ist minimiert."
    If BitAND($temp, 32) Then $status &= @CRLF & "Fenster ist maximiert."
    EndIf
    MsgBox(0, $titel & " - Status", "Folgende Eigenschaften treffen auf das Fenster zu:" & $status)

    [/autoit]

  • Starplayer v3

    - Ja, Lautstärkeregelung habe ich weggelassen, weil man das über den Mixer von Windows viel besser regeln kann.
    - Es wird doch "no Artist" angezeigt!? Oder meinst Du, dass dann gar nichts dort stehen soll?
    - Man kann nicht einfach jedes Hintergrundbild nehmen. Ich habe da schon ein bißchen getrickst, damit das gut aussieht.

    BTW: Es heißt Standard (mit "d" am Ende).

  • Binär zu Hexadezimal

    Oder als kleine Funktion (ohne Errorhandling):

    [autoit]


    ConsoleWrite(_BinToHex('10010101') & @CRLF)

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

    Func _BinToHex($bin)
    Local $dec, $len = StringLen($bin)
    For $i = $len To 1 Step -1
    $dec += 2 ^ ($len - $i) * StringMid($bin, $i, 1)
    Next
    Return StringRegExpReplace(Hex($dec), '0*(.+)', '$1')
    EndFunc ;==>_BinToHex

    [/autoit]

  • Text aus HTML auslesen

    Hier mal ein einfacherer Weg:

    [autoit]


    #include <Array.au3>
    $sSource = BinaryToString(InetRead('http://web.lsz-b.at/Statusanzeige', 1))
    $aSearch = StringRegExp($sSource, '(?s)<td bgcolor=".+?">(3\d\d)</td>.+?<td bgcolor=".+?">(.+?)</td>.+?<td bgcolor=".+?">(.+?)</td>', 3)
    _ArrayDisplay($aSearch)

    [/autoit]

  • Tasttatur

    @[CF[*Gaming*]: Deine Beschreibung entspricht genau einem Keylogger. Ineluki hat Dir eine Lösung genannt. Mehr Support wirst Du dazu hier nicht bekommen.
    [Thread closed]

  • Starplayer v3

    Der Starplayer ist jetzt in einer vollständig lauffähigen Form fertig. :)

    Version: 3.0.1.6 (24.07.10)

    Screenshot:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Installation:
    Das ZIP-Archiv (Anhang) irgendwohin entpacken.
    Oder eine Installer-Version von hier (zu groß für's Forum) downloaden.

    Neu in v3.0.1.6 (24.07.10):
    - Wenn bei den MP3s keine ID3-Tags v2.3 oder v2.4 vorhanden sind, wird jetzt auch nach v1.x Einträgen gesucht.
    - Lautstärkeregler jetzt auf Basis von _BASS_ChannelSetVolume. Das heißt ein programmspezifischer Lautstärkeregler (auch unter WinXP).
    - Beim erstmaligen Start (es existiert noch keine Inidatei) wird der Lautstärkeregler von WAVE auf 50% gesetzt.
    - Crossfading jetzt mit _BASS_ChannelSlideAttribute (vielen Dank, progandy).

    Neu in v3.0.1.5 (23.07.10):
    - Lautstärkeregler (Position wird gespeichert) und Mute-Button hinzugefügt.
    - Bug beim einlesen von MP3s mit defektem ID3-Tag-Header beseitigt.
    - Bug beim hinzufügen von Playlisten, bei denen nicht der komplette Pfad enthalten war, beseitigt.
    - Bug beim einlesen der Commandozeile beseitigt.

    Neu in v3.0.1.1 (17.07.10):
    - "Bug" beseitigt: Wenn man "Repeat Playlist" eingeschaltet hatte, wurde beim Klick auf "Next" am Ende der Playlist nicht zum Anfang gesprungen, das Gleiche mit "Prev" und am Anfang der Playlist.
    - Hintergrundbild (und schwarzer Hintergrund) für das Config-Fenster hinzugefügt.
    - Playlist-Nummerierung hinzugefügt.
    - Inifile kann jetzt (wahlweise) auch im ScriptDir gespeichert werden (Schreibrechte werden geprüft).

    Hinweise:
    - Mit einem Klick auf den Fortschrittsbalken kann man innerhalb des Liedes vor-/zurückspulen
    - MP3s können per Drag&Drop auf die Playlist oder über den (+) Button hinzugefügt werden.
    - Doppelklick auf einen Playlist-Eintrag spielt diesen direkt ab.
    - Mit dem (-) Button können die selektierten MP3s aus der Playlist entfernt werden.
    - Der Export-Button (Handy-Symbol) kopiert alle Dateien aus der Playlist in einen auszuwählenden Ordner und erstellt dort eine passende Playlist.
    - Die beiden seitlichen Pfeil-Buttons sind zum verschieben (rauf/runter) des markierten Playlist-Eintrags. Die gleiche Funktion haben die "PageUp"- und "PageDown"-Taste auf der Tastatur.
    - In der Config-GUI kann man eine Art Cross-Fader einstellen. Bei erreichen der Spieldauer des Liedes minus der Anzahl der Sekunden, die man dort einstellt, wird das nächste Lied gestartet und das aktuelle Lied ausgeblendet.
    - Außerdem kann man einstellen:

    • ob das Fenster immer OnTop sein soll,
    • ob man Interpret und Titel als Laufschrift auf dem Taskbar-Icon haben will,
    • und ob man einen Hilfe-Tooltip für die Buttons benötigt.


    - Alle Einstellungen werden in einer Inidatei gespeichert, sodass sie auch beim nächsten Start zur Verfügung stehen.


    Ansonsten bin ich für Lob, Kritik, Bugreports und Verbesserungsvorschläge immer dankbar. :)

  • WM-Tippspiel

    Mein persönliches Fazit zur WM: Zum Glück gab es die deutsche Mannschaft.
    Sie hat ein schönes Spiel geliefert, fast die ganze WM lang. Ausgerechnet gegen Spanien haben die Spanier dann auch mal schön (besser) gespielt und verdient gewonnnen.
    Das Endspiel hat mich persönlich enttäuscht. Die Spanier sind wieder auf ihren "Ergebnis"-Fußball zurückgefallen und die Niederländer haben das Ganze irgendwie mit Kickboxen/Wrestling oder so verwechselt. Naja, in ein paar Wochen/Monaten fragt keiner mehr danach, aber für mich steht jedenfalls fest: Wenn alle Mannschaften so spielen, wie die Spanier, dann werde ich mir eine WM nicht mehr anschauen. Von daher bin ich der deutschen Mannschaft sehr dankbar. Lieber ein schönes Spiel, als den Titel! :thumbup:

  • Festplatte durchsuchen

    Naja, ein bißchen mehr Eigeninitiative darfst Du schon zeigen. ;)
    Aber ich will mal nicht so sein (listet alle Dateien mit "autoit", "script" oder "help" auf):

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $array = _RecursiveFileListToArray('f:\autoit\', '.*(autoit|script|help).*', 1)
    If IsArray($array) Then
    $hFile = FileOpen(@ScriptDir & '\Ergebnis.txt', 2)
    If $hFile <> -1 Then
    For $i = 1 To $array[0]
    FileWriteLine($hFile, $array[$i])
    Next
    FileClose($hFile)
    EndIf
    EndIf

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

    ;===============================================================================
    ; Function Name: _RecursiveFileListToArray($sPath[, $sPattern][, $iFlag][, $iFormat][, $iRecursion][, $sDelim])
    ; Description:: gibt Verzeichnisse (rekursiv) und/oder Dateien zurück, die einem RegExp-Pattern entsprechen
    ; Parameter(s): $sPath = Startverzeichnis
    ; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
    ; $iFlag = Auswahl
    ; 0 = Dateien & Verzeichnisse
    ; 1 = nur Dateien
    ; 2 = nur Verzeichnisse
    ; $iFormat = Rückgabeformat
    ; 0 = String
    ; 1 = Array mit [0] = Anzahl
    ; 2 = Nullbasiertes Array
    ; $iRecursion = Verzeichnisse rekursiv durchsuchen
    ; 0 = Nein
    ; 1 = Ja
    ; $sDelim = Trennzeichen für die String-Rückgabe
    ; Requirement(s): AutoIt 3.3.0.0
    ; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ;===============================================================================
    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $iRecursion = 1, $sDelim = @CRLF)
    Local $hSearch, $sFile, $sReturn = ''
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*.*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $iRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]

  • Festplatte durchsuchen

    Da meine Funktion ein RegExp-Pattern abfragt, kann man auch mehrere Begriffe kombinieren.
    Dazu musst Du Dich mit den regulären Ausdrücken beschäftigen (Tut von SEuBo). Ein Tut zu Arrays gibt es von BugFix. Jeweils mal die Suche benutzen.

  • Festplatte durchsuchen

    So:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $array = _RecursiveFileListToArray('c:\', '.*autoit.*', 1)
    If IsArray($array) Then
    $hFile = FileOpen(@ScriptDir & '\Ergebnis.txt', 2)
    If $hFile <> -1 Then
    For $i = 1 To $array[0]
    FileWriteLine($hFile, $array[$i])
    Next
    FileClose($hFile)
    EndIf
    EndIf

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

    ;===============================================================================
    ; Function Name: _RecursiveFileListToArray($sPath[, $sPattern][, $iFlag][, $iFormat][, $iRecursion][, $sDelim])
    ; Description:: gibt Verzeichnisse (rekursiv) und/oder Dateien zurück, die einem RegExp-Pattern entsprechen
    ; Parameter(s): $sPath = Startverzeichnis
    ; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
    ; $iFlag = Auswahl
    ; 0 = Dateien & Verzeichnisse
    ; 1 = nur Dateien
    ; 2 = nur Verzeichnisse
    ; $iFormat = Rückgabeformat
    ; 0 = String
    ; 1 = Array mit [0] = Anzahl
    ; 2 = Nullbasiertes Array
    ; $iRecursion = Verzeichnisse rekursiv durchsuchen
    ; 0 = Nein
    ; 1 = Ja
    ; $sDelim = Trennzeichen für die String-Rückgabe
    ; Requirement(s): AutoIt 3.3.0.0
    ; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ;===============================================================================
    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $iRecursion = 1, $sDelim = @CRLF)
    Local $hSearch, $sFile, $sReturn = ''
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*.*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $iRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]

  • Festplatte durchsuchen

    Du weißt nicht, wie man eine Funktion aufruft?

    So:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $array = _RecursiveFileListToArray('c:\', '.*autoit.*', 1)
    _ArrayDisplay($array)

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

    ;===============================================================================
    ; Function Name: _RecursiveFileListToArray($sPath[, $sPattern][, $iFlag][, $iFormat][, $iRecursion][, $sDelim])
    ; Description:: gibt Verzeichnisse (rekursiv) und/oder Dateien zurück, die einem RegExp-Pattern entsprechen
    ; Parameter(s): $sPath = Startverzeichnis
    ; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
    ; $iFlag = Auswahl
    ; 0 = Dateien & Verzeichnisse
    ; 1 = nur Dateien
    ; 2 = nur Verzeichnisse
    ; $iFormat = Rückgabeformat
    ; 0 = String
    ; 1 = Array mit [0] = Anzahl
    ; 2 = Nullbasiertes Array
    ; $iRecursion = Verzeichnisse rekursiv durchsuchen
    ; 0 = Nein
    ; 1 = Ja
    ; $sDelim = Trennzeichen für die String-Rückgabe
    ; Requirement(s): AutoIt 3.3.0.0
    ; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ;===============================================================================
    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $iRecursion = 1, $sDelim = @CRLF)
    Local $hSearch, $sFile, $sReturn = ''
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*.*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $iRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]

  • Festplatte durchsuchen

    Mit meiner Funktion kannst Du ein RegExp-Pattern benutzen:

    Spoiler anzeigen
    [autoit]


    ;===============================================================================
    ; Function Name: _RecursiveFileListToArray($sPath[, $sPattern][, $iFlag][, $iFormat][, $iRecursion][, $sDelim])
    ; Description:: gibt Verzeichnisse (rekursiv) und/oder Dateien zurück, die einem RegExp-Pattern entsprechen
    ; Parameter(s): $sPath = Startverzeichnis
    ; $sPattern = ein beliebiges RexExp-Pattern für die Auswahl
    ; $iFlag = Auswahl
    ; 0 = Dateien & Verzeichnisse
    ; 1 = nur Dateien
    ; 2 = nur Verzeichnisse
    ; $iFormat = Rückgabeformat
    ; 0 = String
    ; 1 = Array mit [0] = Anzahl
    ; 2 = Nullbasiertes Array
    ; $iRecursion = Verzeichnisse rekursiv durchsuchen
    ; 0 = Nein
    ; 1 = Ja
    ; $sDelim = Trennzeichen für die String-Rückgabe
    ; Requirement(s): AutoIt 3.3.0.0
    ; Return Value(s): Array/String mit den gefundenen Dateien/Verzeichnissen
    ; Author(s): Oscar (http://www.autoit.de)
    ; Anregungen von: bernd670 (http://www.autoit.de)
    ;===============================================================================
    Func _RecursiveFileListToArray($sPath, $sPattern = '', $iFlag = 0, $iFormat = 1, $iRecursion = 1, $sDelim = @CRLF)
    Local $hSearch, $sFile, $sReturn = ''
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*.*')
    If @error Or $hSearch = -1 Then Return SetError(1, 0, $sReturn)
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If @extended Then
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    If $iRecursion Then $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $iFormat And $sReturn = '' Then Return StringSplit($sReturn, '', $iFormat)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc

    [/autoit]

    Für das Beispiel mit "autoit" erfolgt der Aufruf dann so:

    [autoit]


    $array = _RecursiveFileListToArray('c:\', '.*autoit.*', 1)

    [/autoit]


    findet alle Dateien auf "c:" (inkl. aller Unterverzeichnisse), die "autoit" im Dateinamen aufweisen.