Ansprechen vom Media Player und Power DVD..

[Cenny]

Tachjen..
Ich bin Schüler im 12. Jahrgang eines Fachgymnasiums und momentan machen wir Projekt-Arbeit.
Unsere Gruppe macht eine Fernbedienung für den Computer, mit der wir Programme wie WinAmp, Media Player und Power DVD bedienen wollen. Für WinAmp haben wir es schon geschafft und mit Hilfe einer Find-Window-Funktion, die Funktionen via Send-Message-Funktion an WinAmp weitergeleitet.
Media Player/Power DVD finden wir auch über Find-Window, aber leider kennen wir nicht die Befehle für Play, Pause, Stopp, FFW, RW, Volume+, V- und so weiter, sodass wir die Send-Messag funktion nicht nutzen können.

Könnt ihr uns helfen?

Kann man den Media Player bzw. Power DVD so ansprechen, oder muss man ein Modul einbinden. Wo bekommt man dann das Modul her, und wie muss ich das einbinden? Wie heißen die Befehle um die Programme anzusprechen?

Auf folgender Seite haben wir ein Programm gefunden, das uns nützlich erschien, wir aber leider nicht wirklich verstanden haben, bzw. die Funktionen die wir brauchen nicht gefunden haben.
http://www.vb-fun.de/vb/projekte/projekt0112.shtml
Vielleicht hilft es euch ja weiter..

Ich bedanke mich schonmal im Vorraus!

MfG, Cenny..

 

[Orakel]

Hi Cenny,

also den Mediaplayer fernsteuern ist sicherich ne nette Aufgabe, aber ich würde dann doch eher dazu übergehen ihn direkt in Eurer Anwendung als ActiveX Control einzubinden. Dann könnt Ihr ihn direkt aus Eurer Anwendung ansteuern.

Das Programm welches Ihr gefunden habt, zeigt Euch nur Eigenschaften des Fensters an, über dem die Maus steht. Aus meiner Sicht nicht geeignet um Eure Aufgabe zu lösen.

Mit Power DVD kann ich Euch nicht weiterhelfen.

Grüße
Das Orakel

 

[Cenny]

mh..

Wieso ist das denn besser?
Kann man den MediaPlayer denn überhaupt ohne das Steuerelement ansprechen?
Kann man denn auch sagen:

If Infrarotsignal = blablabla then
MediaPlayer.Play
End If

oder wie?

Hab hier noch ein anderes Programm, das könnte uns evtl mehr helfen.
http://www.activevb-archiv.de/downloadstore/apiviewer/apv2003.exe

bei WinAmp haben wir das so gemacht:

]Private P_hwnd As Long
Private Const winamp_befehl As Long = &H111&
Private Const winamp_play = 40045

Private Declare Function mciSendString Lib "winmm.dll" _
    Alias "mciSendStringA" ( _
    ByVal lpstrCommand As String, _
    ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

Private Declare Function GetWindowText Lib "user32.dll" _
    Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long _
    ) As Long
    
Private Declare Function FindWindow Lib "user32.dll" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String _
    ) As Long
    
Private Declare Function SendMessage Lib "user32.dll" _
    Alias "SendMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long

Private Sub cmd_wa_play_Click()
    SendMessage P_hwnd, winamp_befehl, winamp_play, 0
End Sub

kann man das beim MediaPlayer nicht auch so machen?
Wir haben es so probiert:

Private P_hwnd As Long
Private Const wmp_befehl As Long = &H4
Private Const wmp_play = 14

Private Sub cmd_wmp_play_Click()
    SendMessage P_hwnd, wmp_befehl, wmp_play, 0
End Sub

Aber das hat nicht funktioniert. muss ich an den vier Private-Declare-Funktionen was ändern, für den MediaPlayer?
Oder muss ich die Konstante wmp_befehl ändern? Ist die evtl. falsch?
Die haben wir mit dem oben genannten Programm gefunden, hier:

Enum MEDIA_FLAGS
MEDIA_BLANK = &H1
MEDIA_RW = &H2
MEDIA_WRITABLE = &H4
MEDIA_FORMAT_UNUSABLE_BY_IMAPI = &H8
End Enum