Beiträge von Rodny_le_lude

  • Playliste speichern und Laden

    Hi JuraX

    Da ich mich auch grad mit nem Player beschäfdige hab ich drei Functionen für die meistverbreitesten Playlisten
    geschrieben (M3U,PLS,ASX).

    [autoit]

    #include <array.au3>
    #include <string.au3>
    #include-once

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

    Func M3U_Playlist($input)
    Local $a[1]
    $a[0]=0
    $op=FileOpen($input,0)
    If @error Then Return $a
    While 1
    $line=FileReadLine($op)
    If @error Then ExitLoop
    If StringInStr($line,"#EXT") Then ContinueLoop
    If $line = "" Then ContinueLoop
    $a[0]=UBound($a)
    _ArrayAdd($a,$line)
    WEnd
    FileClose($op)
    Return $a
    EndFunc

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

    Func PLS_Playlist($input)
    Local $a[1]
    $a[0]=0
    $op=FileOpen($input,0)
    If @error Then Return $a
    While 1
    $line=FileReadLine($op)
    If @error Then ExitLoop
    If StringInStr($line,"File") <> "" Then
    $split=StringSplit($line,"=")
    Else
    ContinueLoop
    EndIf
    If $split[$split[0]] = "" Or $line="" Then ContinueLoop
    $a[0]=UBound($a)
    _ArrayAdd($a,$split[$split[0]])
    WEnd
    FileClose($op)
    Return $a
    EndFunc

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

    Func ASX_Playlist($input)
    Local $wert[1]
    $wert[0]=0
    $op=FileOpen($input,0)
    If @error Then Return $wert
    While 1
    $line=FileReadLine($op)
    If @error Then ExitLoop
    $return = _StringBetween($line,'<REF HREF', '/>')
    If @error Or $return[0]="" Then ContinueLoop
    $return[0]=StringReplace($return[0],'"',"")
    $return[0]=StringReplace($return[0],"=","")
    $return[0]=StringStripWS ($return[0],8)
    $wert[0]=UBound($wert)
    _ArrayAdd($wert,$return[0])
    WEnd
    FileClose($op)
    Return $wert
    EndFunc

    [/autoit]

  • Linksclick abfragen

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 443, 192, 154)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg(1)
    Select
    Case $nMsg[0]=$GUI_EVENT_CLOSE
    Exit
    Case $nMsg[0]=$GUI_EVENT_PRIMARYDOWN
    MsgBox(0,"","X Pos="&$nMsg[3]&@CRLF&"Y Pos="&$nMsg[4])
    EndSelect
    WEnd

    [/autoit]

    Also ich würd es so machen

  • Ab wann braucht Windows Adminrechte?

    Auf jeden fall ist es bei Windows 7 so wenn du den RegWrite befehl im Script hast.
    deswegen habe ich beim PFT player die Automatische Dateinverknüpfung Weggelassen.
    es ist auch nicht unter win7 möglich schon bereits exestierende Dateitypenerweiterungen zu ändern nur der User
    kann es unter Öffnen mit selber konfigurieren.

  • Anti Virus scanner

    eigentlich ist es ganz einfach ein Virenscanner zu basteln, das schwierige ist die heuristik und da ist der Knackpunkt
    den die Konkurenz alla Avira,Kasperski,usw haben sich diese Datenbanken ü. Jahre mühevoll aufgebaut.

    Einleitung:

    [autoit]


    #include-once
    #include <array.au3>
    ;------------------------------------------------------
    ;Author: Daniel schimmelpfennig
    ;------------------------------------------------------
    func drive_search_folder($pf)
    If StringRight($pf,1) <> "\" Then $pf=$pf&"\"
    local $serach_array[1],$x=1

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

    $serach_array[0]=UBound($serach_array)
    _ArrayAdd($serach_array,$pf)
    $first=FileFindFirstFile($pf&"*.")
    If $first = -1 Then
    $while=0
    Else
    $while = 1
    EndIf

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

    While $while
    $next=FileFindNextFile($first)
    If not @error Then
    $serach_array[0]=UBound($serach_array)
    _ArrayAdd($serach_array,$serach_array[$x]&$next&"\")
    Else
    $x=$x+1
    If $x > $serach_array[0] Then ExitLoop
    FileClose($first)
    $first=FileFindFirstFile($serach_array[$x]&"*.")
    If $first -1 Then ContinueLoop
    EndIf
    WEnd
    FileClose($first)
    _ArraySort($serach_array, 0, 1, 0, 0)
    Return $serach_array
    EndFunc

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

    ;------------------------------------------------------
    ;Author: Daniel schimmelpfennig
    ;------------------------------------------------------

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

    Func drive_search_file($pf,$type)
    Local $file_output[1],$x=0
    $file_output[0]=0
    $folder=drive_search_folder($pf)

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

    While 1
    $x=$x+1
    If $x > $folder[0] Then ExitLoop
    $first=FileFindFirstFile($folder[$x]&$type)
    If $first = -1 Then ContinueLoop

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

    While 1
    $next=FileFindNextFile($first)
    If Not @error then
    $file_output[0]=UBound($file_output)
    _ArrayAdd($file_output,$folder[$x]&$next)
    Else
    FileClose($first)
    ExitLoop
    EndIf
    WEnd

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

    WEnd
    Return $file_output
    EndFunc

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

    über drive_search_file() lässt du den kopletten Datenträger (Dateistruktur) in ein array einbinden anschliessend

    [autoit]


    for $i=1 to $myarray[0]
    $open=fileopen($myarray[$i],16)
    if StringInStr (fileread($open),$heuristik) <> "" then filedelete($myarray[$i])
    fileclose($open)
    next

    [/autoit]


    natürlich musst du für eine grosse Heuristik ein extra Loop einbinden


    so fertig :D

  • PFT Player (PlayFromTray)

    den Sourcecode wirds definitiv nicht geben.
    Zu euren Argumenten andere können daraus lernen halte ich bescheiden für nonsins, da mein
    Script so um die 1200 Zeilen hat (Standarts aussen vorgelassen) , wer das script nicht kennt
    wird's also schwer haben überhaupt nachvolziehen zu können wie was funktioniert <-- grade Anfänger sollten soviel wie möglich
    selber machen um zu lernen (Trail and error).

    ps.die Downloadzahlen sprechen für sich obwohl ich das Project nur hier und in einem anderen Forum
    Public gemacht habe :rock:

    Warum will ich die Source nicht Veröffentlichen:
    ganz klar ich hab keine lust das sich andere auf meiner Arbeit (1 Mon) ausruhen und einfach ihren Otto reinsetzen u. n' bissel
    dazuscripten und dan behaupten es sei vollständig aus ihrem Brain entsprungen. :cursing:

    wie gesagt ich nehme zu einigen Punkten gerne Stellung wenn jemand Fragen hat wie ich was umgesetzt habe.

    Edit:
    @JuraX

    schau mal was mein Player für möglichkeiten bietet und vergleich das dan mal mit dein opensource Project :sleeping:

  • PFT Player (PlayFromTray)

    Zitat von Pinguin94

    Und wer garantiert mir nun, dass du wirklich nichts böses hineingetan hast, bzw. wenn doch, wer kommt dann vllt für den entstandenen Schaden auf?

    Ich Garantiere dir das das Programm keine Systemelemente verändert oder Spionage Aktionen betreibt ansonsten würde die Polente vor meiner Haustüre stehen siehe
    impressum

  • PFT Player (PlayFromTray)

    @xp_fan

    das Project ist nicht open Source aber wenn du Fragen hast wie ich einzelne Teile gescriptet hab werde ich sie dir gerne Beantworten.

    AUSZUG aus meiner license:
    Haftung
    Das Programm wurden nach bestem Wissen und Gewissen vom Autor erstellt, enthält keine böswilligen Funktionen und versenden keine Daten heimlich.
    Dennoch kann und wird der Autor keinerlei Haftung für eventuell auftretende Schäden übernehmen.
    Die Verwendung erfolgt auf eigene Verantwortung.

  • PFT Player (PlayFromTray)

    [Blockierte Grafik: http://schimmel.cwsurf.de/images/stories/logos/logo.jpg] 
    Ich möchte euch mein Project hier Vorstellen

    PlayFromTray ist ein minimalistischer Media Player mit großen Ambitionen.
    Dieses Project entstand aus dem Gedanken heraus alles besser zu machen als die
    große Konkurrenz alla VLC o. Microsofts Media Player

    Features

    • unterstützte Formate : AAC,M4A,M4B,MP3,MP2,MP1,OGG,WAV,WMA,AIFF,XM,IT,
    • S3M,MOD,MTM,UMX,FLAC,CDA
    • TrayPlaylist
    • Alle Funktion über Hotkeys Steuerbar
    • Hotkey Editor
    • Multiopen Fileformats mit recoverfunction
    • Url Streaming (mit den oben genannten formaten kein direct php end)
    • Device Management
    • Multilingual (erweiter u. editibar) xml
    • volle Error Ausgabe

    Den Download findet ihr auf meiner seite http://schimmel.cwsurf.de