Respekt
erst dachte ich das ist wieder so ein 0815 shit alla schaut mal her Textur a wird nach punkt b bewegt.
Jetzt bin ich aber mal voll beeindruckt von deiner Arbeit und das will schon was heissen
Beiträge von Rodny_le_lude
-
-
Hi JuraX
Da ich mich auch grad mit nem Player beschäfdige hab ich drei Functionen für die meistverbreitesten Playlisten
[autoit]
geschrieben (M3U,PLS,ASX).#include <array.au3>
[/autoit][autoit][/autoit][autoit]
#include <string.au3>
#include-onceFunc M3U_Playlist($input)
[/autoit][autoit][/autoit][autoit]
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
EndFuncFunc PLS_Playlist($input)
[/autoit][autoit][/autoit][autoit]
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
EndFuncFunc ASX_Playlist($input)
[/autoit]
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]
#include <GUIConstantsEx.au3>
[/autoit][autoit][/autoit][autoit]
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 443, 192, 154)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$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
WEndAlso ich würd es so machen
-
kann es sein das auf der Site , die Liste nur aus Flash objecten besteht.
daher wird mans schwer haben Links zu kopieren. -
PlayFromTray Updated
Features:
+Radio item integriert
+Leistungsloch Fixmehr infos unter
es werden alle mir bekannten RadioStreams unterstützt :MP3, MP2, MP1, OGG, WAV, AIFF
-
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. -
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]
[/autoit][autoit][/autoit][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$serach_array[0]=UBound($serach_array)
[/autoit][autoit][/autoit][autoit]
_ArrayAdd($serach_array,$pf)
$first=FileFindFirstFile($pf&"*.")
If $first = -1 Then
$while=0
Else
$while = 1
EndIfWhile $while
[/autoit][autoit][/autoit][autoit]
$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
;------------------------------------------------------Func drive_search_file($pf,$type)
[/autoit][autoit][/autoit][autoit]
Local $file_output[1],$x=0
$file_output[0]=0
$folder=drive_search_folder($pf)While 1
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$x=$x+1
If $x > $folder[0] Then ExitLoop
$first=FileFindFirstFile($folder[$x]&$type)
If $first = -1 Then ContinueLoopWhile 1
[/autoit][autoit][/autoit][autoit]
$next=FileFindNextFile($first)
If Not @error then
$file_output[0]=UBound($file_output)
_ArrayAdd($file_output,$folder[$x]&$next)
Else
FileClose($first)
ExitLoop
EndIf
WEndWEnd
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
Return $file_output
EndFuncüber drive_search_file() lässt du den kopletten Datenträger (Dateistruktur) in ein array einbinden anschliessend
[autoit]
[/autoit]
for $i=1 to $myarray[0]
$open=fileopen($myarray[$i],16)
if StringInStr (fileread($open),$heuristik) <> "" then filedelete($myarray[$i])
fileclose($open)
next
natürlich musst du für eine grosse Heuristik ein extra Loop einbindenso fertig
-
du brauchst das Toast_udf hier:
http://www.autoitscript.com/forum/index.php?showtopic=108445&st=0und dan weiterlesen hier:
http://www.autoitscript.com/forum/index.php?showtopic=108445&st=40 -
ganz klar PlayFromTray
PFT Player (PlayFromTray)Streamt:"AAC|M4A|M4B|MP3|MP2|MP1|OGG|WAV|WMA|AIFF|XM|IT|S3M|MOD|MTM|UMX|FLAC|CDA"
Getestete formate (streaming):Mp3,Ogg,Wav,Wma -
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 habeWarum 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.wie gesagt ich nehme zu einigen Punkten gerne Stellung wenn jemand Fragen hat wie ich was umgesetzt habe.
Edit:
@JuraXschau mal was mein Player für möglichkeiten bietet und vergleich das dan mal mit dein opensource Project
-
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 -
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. -
[Blockierte Grafik: http://schimmel.cwsurf.de/images/stories/logos/logo.jpg]
Ich möchte euch mein Project hier VorstellenPlayFromTray 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 PlayerFeatures
- 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
-
Dank schee fur den Link
-
Hi@all
Wie kann ich auf eine Resource zugreifen die ich mit Autoit Wrapper compiliert habe (Res add File\Extra Files).
Oder ist das nichts anderes als Fileinstall -
besten dank
AutoBertbin manchmal zu fauel um selbst die Antwort zu finden
mfg Rodny
-
Hi community
ich steh mal wieder aufem schlauch wie intigriere ich eine checkbox in ein Listview ??
[Blockierte Grafik: http://img638.imageshack.us/img638/8576/unbenanntwo.th.jpg]
-
@Leon
Danke für den Tipp
hat bestens geklappt -
Hi Leute
ich hab ein kleines Problem mit Seiten die keine Endung haben zb *.htm Auszulesen.
ein bsp dafür http://www.gamestar.de/aktuellesheft/ inetget u. inetgetsource geben kein Ergebniss zurück.hat jemand n Tipp für mich wie ich das zum laufen bekomme
-
Big Thx Raupi
Hätt ich auch selbst drauf kommen können , nur manchmal steh auf dem schlauch bei den leichtesten Sachen