iTunes lyricsraussucher

[butter123]

Hallo Leute,

ich wollte mir ein Programm schreiben, dass anzeigt welcher Song grad gespielt wird (ich streame hauptsächlich Radio) und dazu die Lyrics anzeigt.

Nur scheitere ich schon beim auslesen des Songs.

CE angeschmissen und nach dem Song gesucht, der grad gespielt wird. Eine Adresse gefunden. Find out what acces this adress, Sender wechseln und schnell iTunes pausieren, da es sonst abschmiert. Basepointer gefunden.

Starte ich jetzt iTunes neu, steht aber bei dem Basepointer nichts mehr drin... erst wenn ich die Prozedur von oben wiederhole steht etwas drin (auch das richtige )
Was muss ich machen bzw was mache ich falsch?

danke schonmal

lg keks

[bollen]

wenn du nach dem Basepointer suchst um ihn später in AutoIt zu verwenden, verwendest du am einfachsten

 _MemoryModuleGetBaseAddress($iPID, $sModule)

das Modul nach dem du suchst heist bei ITunes dann "ITunes.dll"
Würde ITunes nicht alle Texte im Unicode Format Speichern würde ich dir schnell die Adresse raussuchen
€: die Adresse ist Tunes.dll+0x14324AE

 Spoiler

Func _MemoryModuleGetBaseAddress($iPID, $sModule)
    If Not ProcessExists($iPID) Then Return SetError(1, 0, 0)
    If Not IsString($sModule) Then Return SetError(2, 0, 0)
    Local   $PSAPI = DllOpen("psapi.dll")
    ;Get Process Handle
    Local   $hProcess
    Local   $PERMISSION = BitOR(0x0002, 0x0400, 0x0008, 0x0010, 0x0020) ; CREATE_THREAD, QUERY_INFORMATION, VM_OPERATION, VM_READ, VM_WRITE
    If $iPID > 0 Then
        Local $hProcess = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", $PERMISSION, "int", 0, "dword", $iPID)
        If $hProcess[0] Then
            $hProcess = $hProcess[0]
        EndIf
    EndIf
    ;EnumProcessModules
    Local   $Modules = DllStructCreate("ptr[1024]")
    Local   $aCall = DllCall($PSAPI, "int", "EnumProcessModules", "ptr", $hProcess, "ptr", DllStructGetPtr($Modules), "dword", DllStructGetSize($Modules), "dword*", 0)
    If $aCall[4] > 0 Then
        Local   $iModnum = $aCall[4] / 4
        Local   $aTemp
        For $i = 1 To $iModnum
            $aTemp =  DllCall($PSAPI, "dword", "GetModuleBaseNameW", "ptr", $hProcess, "ptr", Ptr(DllStructGetData($Modules, 1, $i)), "wstr", "", "dword", 260)
            If $aTemp[3] = $sModule Then
                DllClose($PSAPI)
                Return Ptr(DllStructGetData($Modules, 1, $i))
            EndIf
        Next
    EndIf
    DllClose($PSAPI)
    Return SetError(-1, 0, 0)
EndFunc