So da mein altes Thema in vergessenheit gekommen ist und das ursprüngliche problem gelöst wurde, versuch ich es mal erneut.
Mein Problem ist es, ich bekomme einen Leeren Return wert, bzw garkeinen oder eine "0".
Hier einmal der link zur Msdn
Spoiler anzeigen
#include <WMMedia.au3>
#include <File.au3>
WMStartPlayer()
WMPlay(FileOpenDialog("","C:\","Mp3 (*.mp3)"))
Global $media
HotKeySet("{Tab}","nextmedia")
If @error = 1 Then MsgBox(0,"","Blub")
Func nextmedia()
$media = CurrentMedia()
MsgBox(0,"",$media)
EndFunc
Func CurrentMedia()
MsgBox(0,"",$pObj.currentMedia)
$media = $pObj.currentMedia.name()
EndFunc
While 1
Sleep(5000)
WEnd
Hier ein Ausschnitt aus der include datei :
Spoiler anzeigen
Func WMStartPlayer()
[/autoit] [autoit][/autoit] [autoit]If $pObj = 0 Then
[/autoit] [autoit][/autoit] [autoit]$pObj = ObjCreate("WMPlayer.ocx")
[/autoit] [autoit][/autoit] [autoit]Else
[/autoit] [autoit][/autoit] [autoit]MsgBox(0,"Fehler","Obejkt Fehler")
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If IsObj($pObj) <> 1 Then MsgBox(0,"Fehler","Obejkt Fehler")
[/autoit] [autoit][/autoit] [autoit]EndFunc
Func WMPlay($sFilename)
If $pObj <> 0 Then
$pObj.url = $sFilename
While Not WMGetState() = "Playing"
Sleep(100)
WEnd
EndIf
If $pObj = 0 Then SetError(1)
EndFunc