Beiträge von MrB

MrB

Ah, thx UEZ. Sieht gut aus.
Bin grad am Testen und bin mit verschiedenen Timern bei 39 Labeln ohne das es flackert. Hab den Vorteil, dass ich die Daten Zeitversetzt aktualisieren kann und dann geht´s halbwegs.
Sollte es irgendwann dennoch flackern, muss ich mich doch noch mit GDI+ beschäftigen. Irgendwie ist dabei das löschen am schwierigsten ^^.

Danke an Alle

MrB

Thx CentuCore, das reicht mir so schon fast.

Leider klappt es nicht mehr so gut, wenn man mehr wie 15 Labels hat.

Spoiler anzeigen

C

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


Global $counter = 0
Global $aLabels[110]


$Main = GUICreate("Main", 1820, 980, -1, -1, -1, $WS_EX_COMPOSITED)


$x = 20
$y = 20


For $i = 0 To 3
	$y = $y + 20
	$x = 20
	For $i2 = 0 To 5
		_ArrayAdd($aLabels, GUICtrlCreateLabel("0", $x, $y, 100, 25))
		GUICtrlSetColor(-1, "0xFFFFFF")
		GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
		$x = $x + 105
	Next
Next


GUICtrlCreatePic(@ScriptDir & "\BG.jpg", 0, 0, @DesktopWidth, @DesktopHeight - 40)
GUICtrlSetState(-1, $GUI_DISABLE)


GUISetState(@SW_SHOW, $Main)


AdlibRegister("_Update", 500)


While 1


	$nMsg = GUIGetMsg()


	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _Update()
	$counter = $counter + 1
	For $i = 0 To UBound($aLabels) - 1
		GUICtrlSetData($aLabels[$i], $counter)
	Next
EndFunc   ;==>_Update

Alles anzeigen

@alpines

Hmm, da fehlt mir wahrscheinlich die Zeit zu und mein Wissen über GDI+ ist, sagen wir mal, mittelprächtig.

P.S.: Geht man eigentlich besser über AdlibRegister oder über TimerInit() und TimerDiff() in der Hauptschleife um ein Update zu machen???

MrB

Hi Leute,

ich weiß, ist schon oft ein Thema gewesen mit dem Flackern eines Labels, aber irgendwie funktioniert nix bei mir.
Hier mal ein Beispiel-Code:

Spoiler anzeigen

AutoIt

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


$Main = GUICreate("Main", 1820, 980)
GUICtrlCreatePic(@ScriptDir & "\BG.jpg", 0, 0, @DesktopWidth, @DesktopHeight - 40)
GUICtrlSetState(-1, $GUI_DISABLE)


$TestLabel = GUICtrlCreateLabel("0", 20, 20, 100, 25)
GUICtrlSetColor(-1, "0xFFFFFF")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)


Global $counter = 0


GUISetState(@SW_SHOW, $Main)


AdlibRegister("_Update", 500)


While 1


	$nMsg = GUIGetMsg()


	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _Update()
	$counter = $counter + 1
	GUICtrlSetData($TestLabel, $counter)
EndFunc   ;==>_Update

Alles anzeigen

Bild ist angehangen.

Inputs flackern zwar nicht, bekommt man aber leider ja nicht so einfach transparent.
Nennt mich ruhig Idiot, hauptsache ich bekomm eine Lösung

Danke an Euch

Gruß
Balti

MrB

@Fr34k.

Meinte damit eigentlich das die Seite (Infos) mit Javascript erstellt werden (soweit ich das erkennen kann) und ich keine Ahnung habe wie ich diese erhalten kann.

MrB

Moin zusammen,

kenne mich mit dem Thema Javascript usw. gar nicht aus. Es geht um folgende Seite Rooutenplaner
Da eigentlich nur um den linken Bereich mit den Routeninformationen (weißer Kasten). Diese Daten bräuchte ich irgendwie! (Routenpunkte,Zeit,Entfernung, Höhenmeter) Diagramm wäre schön muß aber nicht sein
Kann mir da einer helfen?

Gruß
MrB

MrB

@gmmg

Die kannte ich noch nicht. Ist schon mal was. Ungefähr so etwas will ich mir basteln, nur mit mehr Inhalt.

Gibt´s eigentlich eine Möglichkeit eine GUI als Desktophintergrund zu benutzen. Sprich eine GUI in Desktopgröße als $WS_POPUP, so das man noch Button nutzen kann, die Icons aber davor liegen?

MrB

Uuuppss, da war ja gestern noch was los hier

Habe die ganze Sache noch angepasst, kleine GUI und arbeite mit "sinvolleren" Einheiten. Könnt ja mal testen und sagen, ob die Werte jetzt hin kommen. Zumindestens bei mir scheints halbwegs zu passen.
Arbeite mitlerweile mit dieser Seite zum umrechnen http://www.umrechnung.org/masseinheiten-…chsatz-rate.htm

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiButton.au3>

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

Global $aReturn[4][2]

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

$aReturn[0][0] = "Download Speed"
$aReturn[1][0] = "Upload Speed"
$aReturn[2][0] = "Name"
$aReturn[3][0] = "Bandbreite LAN"

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

$aReturn[0][1] = 0
$aReturn[1][1] = 0
$aReturn[2][0] = "No Data"
$aReturn[3][0] = "No Data"

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

Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20, $colItems = "", $strComputer = "localhost"

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

$Main = GUICreate("Main",656,70,-1,-1,$WS_POPUP,-1)
$Input_Download = GUICtrlCreateInput("6737",91,7,51,20,-1,512)
GUICtrlCreateLabel("Downloadspeed:",5,10,81,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$Label1 = GUICtrlCreateLabel("KiB/s",147,10,31,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
GUICtrlCreateLabel("Uploadspeed:",5,38,81,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$Input_Upload = GUICtrlCreateInput("1310",91,35,51,20,-1,512)
$Label_Down = GUICtrlCreateLabel("",190,7,0,15,-1,-1)
GUICtrlSetColor(-1,"0x00FF00")
GUICtrlSetBkColor(-1,"0x00FF00")
$Label2 = GUICtrlCreateLabel("KiB/s",147,40,31,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$Label_Up = GUICtrlCreateLabel("",190,40,0,15,-1,-1)
GUICtrlSetColor(-1,"0xFF0000")
GUICtrlSetBkColor(-1,"0xFF0000")
$Label_Downspeed = GUICtrlCreateLabel("",564,7,85,15,-1,-1)
GUICtrlSetBkColor(-1,"-2")
$Label_Upspeed = GUICtrlCreateLabel("",564,40,85,17,-1,-1)
GUICtrlSetBkColor(-1,"-2")

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

GUICtrlSetTip($Label1, "Kilobyte/Sekunde")
GUICtrlSetTip($Label2, "Kilobyte/Sekunde")

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

HotKeySet("+!x", "_Exit") ; Shift + Alt + x

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

GUISetState(@SW_SHOW)

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

While 1
$MaxDownSpeed = GUICtrlRead($Input_Download)
$MaxUpSpeed = GUICtrlRead($Input_Upload)

$aTraffic = _NetworkSpeed()

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

$Upload = Round($aTraffic[1][1] * 0.000976563, 2)
GUICtrlSetData($Label_Upspeed, $Upload & " KiB/s")

$Download = Round($aTraffic[0][1] * 0.000976563, 2)
GUICtrlSetData($Label_Downspeed, $Download & " KiB/s")

$PositionDown = Round(($Download * 100) / $MaxDownSpeed)

GUICtrlSetState($Label_Down, $gui_hide)
GUICtrlSetPos($Label_Down, Default, Default, Round(350 * ($PositionDown / 100), 0), Default)
GUICtrlSetState($Label_Down, $GUI_SHOW)

$PositionUp = Round(($Upload * 100) / $MaxUpSpeed)

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

GUICtrlSetState($Label_Up, $gui_hide)
GUICtrlSetPos($Label_Up, Default, Default, Round(350 * ($PositionUp / 100), 0), Default)
GUICtrlSetState($Label_Up, $GUI_SHOW)

Sleep(500)
WEnd

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

Func _NetworkSpeed()

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkAdapter", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

If IsObj($colItems) Then

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

For $objItem In $colItems

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

If $objItem.BytesReceivedPersec > 0 Then
$aReturn[0][1] = $objItem.BytesReceivedPersec
$aReturn[1][1] = $objItem.BytesSentPersec
$aReturn[2][1] = $objItem.Name
$Bandweite = $objItem.CurrentBandwidth

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

If $Bandweite = 100000000 Then $aReturn[3][1] = "1 GBit"
If $Bandweite = 100000 Then $aReturn[3][1] = "100 MBit"
If $Bandweite = 1000 Then $aReturn[3][1] = "10 MBit"
Return $aReturn
EndIf
Next

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

Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_PerfFormattedData_Tcpip_NetworkAdapter")
EndIf

Return $aReturn
EndFunc ;==>_NetworkSpeed

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

Gruß
MrB

MrB

Hab´s dann doch noch selbst hin bekommen. Fehler waren die Einheiten!
Man bekommt ja bei BytesReceivedPersec / 1024 nicht kbit/s sondern KB/s raus, diese dann noch mit dem Wert 7.8125 (Quelle: http://www.print-assistant.de/tools_prepress…_kbps_Mbps.html) multiplizieren und die Werte stimmen überein.

Hier das "fertige" Script

Spoiler anzeigen

[autoit]

Global $aReturn[4][2]

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

$aReturn[0][0] = "Download Speed"
$aReturn[1][0] = "Upload Speed"
$aReturn[2][0] = "Name"
$aReturn[3][0] = "Bandbreite LAN"

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

$aReturn[0][1] = 0
$aReturn[1][1] = 0
$aReturn[2][0] = "No Data"
$aReturn[3][0] = "No Data"

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

Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20, $colItems = "", $strComputer = "localhost"

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

HotKeySet("+!x", "_Exit") ; Shift + Alt + x

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

While 1
$aTraffic = _NetworkSpeed()
ToolTip("U: " & Round(($aTraffic[1][1] / 1024) * 7.8125, 2) & " kbit/s" & @CRLF & _
"D: " & Round(($aTraffic[0][1] / 1024) * 7.8125, 2) & " kbit/s")
Sleep(500)
WEnd

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

Func _NetworkSpeed()

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

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkAdapter", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

If IsObj($colItems) Then

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

For $objItem In $colItems

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

If $objItem.BytesReceivedPersec > 0 Then
$aReturn[0][1] = $objItem.BytesReceivedPersec
$aReturn[1][1] = $objItem.BytesSentPersec
$aReturn[2][1] = $objItem.Name
$Bandweite = $objItem.CurrentBandwidth

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

If $Bandweite = 100000000 Then $aReturn[3][1] = "1 GBit"
If $Bandweite = 100000 Then $aReturn[3][1] = "100 MBit"
If $Bandweite = 1000 Then $aReturn[3][1] = "10 MBit"
Return $aReturn
EndIf
Next

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

Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_PerfFormattedData_Tcpip_NetworkAdapter")
EndIf

Return $aReturn
EndFunc ;==>_NetworkSpeed

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

Danke an alle die geholfen haben

MrB

@Oscar
OK, so weit angepasst. Nur was meinst du mit addieren? Sagt der Name der WMI-Class nicht aus das der Wert schon auf Sekunde basiert?
Wenn nicht meinst mit einem 500ms Timer die Werte permanent (gar kein sleep?) auslesen und addieren?

P.S.: Gab´s da nicht eine min. Zeit die zwischen den einzelnen WMI Abfragen liegen musste?

Angepasst mit 1 Sek Timer

Spoiler anzeigen

[autoit]

Global $aReturn[4][2]

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

$aReturn[0][0] = "Download Speed"
$aReturn[1][0] = "Upload Speed"
$aReturn[2][0] = "Name"
$aReturn[3][0] = "Bandbreite LAN"

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

$aReturn[0][1] = 0
$aReturn[1][1] = 0
$aReturn[2][0] = "No Data"
$aReturn[3][0] = "No Data"

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

Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20, $colItems = "", $strComputer = "localhost"
$Upload = 0
$Download = 0
$Timer = TimerInit()

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

HotKeySet("+!x", "_Exit") ; Shift + Alt + x

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

While 1
$aTraffic = _NetworkSpeed()
If TimerDiff($Timer) >= 1000 Then
ToolTip("U: " & $Upload & " kbit/s" & @CRLF & _
"D: " & $Download & " kbit/s")
$Timer = TimerInit()
$Upload = 0
$Download = 0
EndIf
$Upload = $Upload + Round($aTraffic[1][1] / 1024, 2)
$Download = $Download + Round($aTraffic[0][1] / 1024, 2)
;~ Sleep(100)
WEnd

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

Func _NetworkSpeed()

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

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkAdapter", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

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

If IsObj($colItems) Then

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

For $objItem In $colItems

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

If $objItem.BytesReceivedPersec > 0 Then
$aReturn[0][1] = $objItem.BytesReceivedPersec
$aReturn[1][1] = $objItem.BytesSentPersec
$aReturn[2][1] = $objItem.Name
$Bandweite = $objItem.CurrentBandwidth

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

If $Bandweite = 100000000 Then $aReturn[3][1] = "1 GBit"
If $Bandweite = 100000 Then $aReturn[3][1] = "100 MBit"
If $Bandweite = 1000 Then $aReturn[3][1] = "10 MBit"
Return $aReturn
EndIf
Next

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

Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_PerfFormattedData_Tcpip_NetworkAdapter")
EndIf

Return $aReturn
EndFunc ;==>_NetworkSpeed

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

MrB

OK, angepasst, aber Frage noch offen

MrB

Dachte ich auch erst, habe mich aber mal danach gerichtet: http://www.convertworld.com/de/bandbreite/…ro+Sekunde.html

Spielt aber auch keine Rolle, da die Werte sich in einem viel höheren Bereich unterscheiden.
Script: ca. 25 kbit/s
NetSpeedMonitor: ca. 210 kbit/s

MrB

Huhu,

gibt ja schon so einiges zu dem Thema, hab da aber noch die eine oder andere Frage:

Lese wie folgt den Traffic aus:

Spoiler anzeigen

Code

Global $aReturn[4][2]


$aReturn[0][0] = "Download Speed"
$aReturn[1][0] = "Upload Speed"
$aReturn[2][0] = "Name"
$aReturn[3][0] = "Bandbreite LAN"


$aReturn[0][1] = 0
$aReturn[1][1] = 0
$aReturn[2][0] = "No Data"
$aReturn[3][0] = "No Data"


Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20, $colItems = "", $strComputer = "localhost"


HotKeySet("+!x", "_Exit") ; Shift + Alt + x


While 1
    $aTraffic = _NetworkSpeed()
    ToolTip("U: " & Round($aTraffic[1][1] / 1000, 2) & " kbit/s" & @CRLF & _
            "D: " & Round($aTraffic[0][1] / 1000, 2) & " kbit/s")
    Sleep(100)
WEnd


Func _NetworkSpeed()



    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkAdapter", "WQL", _
            $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


;~ $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
;~ $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkAdapter", "WQL", _
;~                                           $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


    If IsObj($colItems) Then


        For $objItem In $colItems


            If $objItem.BytesReceivedPersec > 0 Then
                $aReturn[0][1] = $objItem.BytesReceivedPersec
                $aReturn[1][1] = $objItem.BytesSentPersec
                $aReturn[2][1] = $objItem.Name
                $Bandweite = $objItem.CurrentBandwidth


                If $Bandweite = 100000000 Then $aReturn[3][1] = "1 GBit"
                If $Bandweite = 100000 Then $aReturn[3][1] = "100 MBit"
                If $Bandweite = 1000 Then $aReturn[3][1] = "10 MBit"
                Return $aReturn
            EndIf
        Next


    Else
        MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_PerfFormattedData_Tcpip_NetworkAdapter")
    EndIf

    Return $aReturn
EndFunc   ;==>_NetworkSpeed


Func _Exit()
    Exit
EndFunc   ;==>_Exit

Alles anzeigen

Funktioniert soweit auch ohne Probs, nur hab ich zum verifizieren der Werte noch den NetSpeedMonitor mit laufen und der zeigt komplett andere Werte an. Sind immer um einiges höher.
Hat da einer eine Erklärung zu??

Gruß und Danke
MrB

MrB

Jop, funktioniert! THX
Muss man erstmal drauf kommen.

MrB

Ähm, noch was anderes. Passt nur halb hierher, will dafür aber nix neues aufmachen.

Wie bekommt man einen Screenshot von einem nicht sichtbaren Internet Explorer Fenster? Irgendwie ging das doch, komme nicht mehr drauf wie.
_ScreenCapture_CaptureWnd funktioniert nur bei sichtbaren. Der Sinn ist, dass ich von einem Teil einer Website ein Foto brauch.

MrB

Tja, man muß nur wissen wo man suchen muß! THX
Rest bekomm ich hoffentlich alleine hin

MrB

Hallo zusammen,

Hab grad mal 2 Fragen zum Thema Desktop Hinergund:

1. Wie bekomme ich einen Screenshot vom Desktop Hintergrund - ohne Icons und Fenster usw.
2. Bekommt man bei einer Slideshow (Win8.1 64b) raus welches Bild gerade angezeigt wird und wenn Ja wie?

Sinn der Sache ist mehr oder weniger, das ich Informationen die regelmäßig geupdatet werden auf den Hintergrund packen möchte.

Gruß
MrB

MrB

uiiuiuiuiu, da kann ich dir leider nur recht geben! Werde versuchen mich zu bessern.

Trotzdem komm ich immer noch nicht klar.

Zitat

Oscars UDF funktioniert einwandfrei....

Das ist doch gar nicht aus der ID3_v3.4.au3 (siehe Post#1) oder bin ich blind??

Vergess alles, läuft. Benutzerfehler wie fast immer!

Vielen Dank nochmals

MrB

Original Thread im am. Forum??? Jetzt bist du mir enteilt.

Hab gerade festgestellt, dass wenn ich die mp3 Files manuell neu tagge, danach alles funktioniert. komisch. Naja, lass ich halt mal einen Auto-Tagger drüber laufen und gut ist.

Dank Dir für deine Hilfe

MrB

Zitat

Das ist die komplette UDF!

OK, dachte es gibt so was ähnliches wie die ID3_v3.4.au3, also mehr Funktionen.

Sry, habe so adhoc keine Ahnung wie ich das Format raus bekomme.

Zitat

Wie kommst du darauf, dass in den Dateien mehr Daten enthalten sind?

Naja, mit Mediamonkey oder WinExplorer bekomm ich Titel und Interpret angezeigt.

MrB

Ok, du benutzt da zwar was anderes wie ich habe, aber das funktioniert wenigstens halbwegs. Wird zwar kaum was ausgegeben, aber wenigstens ein wenig.
Kannst mir bitte mal die komplette UDF geben?

Beiträge von MrB

Transparentes Label flackert über Hintergrundbild

Transparentes Label flackert über Hintergrundbild

Transparentes Label flackert über Hintergrundbild

Infos aus Website (Javascript) auslesen

Infos aus Website (Javascript) auslesen

Screenshot Desktop Hintergrund

Netztraffic mit WMI

Netztraffic mit WMI

Netztraffic mit WMI

Netztraffic mit WMI

Netztraffic mit WMI

Netztraffic mit WMI

Screenshot Desktop Hintergrund

Screenshot Desktop Hintergrund

Screenshot Desktop Hintergrund

Screenshot Desktop Hintergrund

MP3 Tag auslesen

MP3 Tag auslesen

MP3 Tag auslesen

MP3 Tag auslesen