✔ Frage wegen Parameteteruebergabe zwischen Prozessen

[rat-cop]

Hallo zusammen,

ich bin auf der Suche nach Hilfe fuer folgendes Problem.
Das Beispielprojekt um Winamp fernzusteuern hab ich mir hier geholt.
http://www.activevb.de/tipps/vb6tipps/tipp0567.html

Mit diesem Code kann ich die Zeit von Winamp auslesen.

    'Zeiten holen
    lngCurrentTime = SendMessage(WA_hwnd, WM_USER, 0, WA_TIME)

Meine Frage nun, wie kann ich ein Programm schreiben, dass mir auf Anfrage eine Variable ausgibt (also wie hier im Beispiel).
Dieses Beispiel hat mir leider nicht viel weiter geholfen
http://www.activevb.de/tipps/vb6tipps/tipp0337.html, da der Sender quasi bestimmt wann ein Text uebergeben wird.

Also nochmal zusammen gefasst. -> Programm A sendet mit SendMessage eine Konstante an Programm B und Programm B sendet dann einen bestimmten Inhalt zurueck an Programm A welcher dann z.B in dem Fall in der Variable IngCurrentTime uebergeben wird.

Ich hoffe ich hab es einigermassen Verstaendlich erklaert

Danke fuer jede Hilfe.

 

[rat-cop]

Kann mir denn keiner weiter helfen?
Wurde mein Problem ueberhaupt verstanden?

Gruss rat-cop

 

[rat-cop]

So ich hab mich jetzt mal ein bisschen schlauer gemacht.
Folgendes Prozedere...
Programm A sendet mit SendMessage 2 Parameter an Programm B.
z.B. so:

lngCurrentTime = SendMessage(WA_hwnd, 1024, 0, 105)

Programm B empfeangt diese dann mit der WinowProcedere

Public Function MyWndProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long...
    If uMsg = 1024 And wParam = 0 And lParam = 105 Then 'current time
        MsgBox "Nachricht angekommen"
    End If
...

Also soweit klappt das auch, die Messagebox wird dann in Programm B angezeigt. So weit ich weiss, wartet die Funktion Sendmessage bis die Zielfunktion MyWndProc abgearbeitet wurde.

Dann nochmal zu meiner Frage... wie kann ich von Programm B jetzt einen Wert an Programm A zurueck geben, der dann in "lngCurrentTime" abgelegt wird (genau so wie Winamp es auch macht, in dem Fall die Zeit)?

Hoffentlich kann mir jetzt aber einer weiter helfen.

Gruss rat-cop

 

[rat-cop]

Hat sich erledigt. Musste MyWndProc einfach nur einen Wert setzen z.B.

MyWndProc = 1962