Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 241046 (2482)
  Suchen
 Zurück zur Übersicht
 AutorThema: Wie Winamp fernsteuern ?
Angelo
Datum:09.07.02 01:58 Antwortenals Email verschicken (chip@gmx.de) 


hi,

ich bekomme es einfach nicht hin winamp fernzusteuern

hier steht es zwar erklärt, aber will irgendwie bei mir nich
http://www.winamp.com/nsdn/winamp2x/dev/sdk/api.jhtml

so ist mein ansatz bisher

Def FindWindow32(2) !"USER32","FindWindowA"
Declare winclass#,w&,message%,test%
Dim winclass#,16
String winclass#,0="Winamp v1.x"
w&=FindWindow32(winclass#,0)
message%=$9C70 '40048
test%=sendmessage(w%,message%,0,0)
dispose winclass#
end

ich bekomme immer 0 raus (test%)
und es passiert auch nichts ...

muss noch dazu sagen, das ich schon lange nicht mehr
mit profan gearbeitet habe, und eventuell einen denkfehler hab :)

ciao Angelo



Thorsten
Datum:09.07.02 09:06 Antwortenals Email verschicken (galaxy@mkk.de) 


>Def FindWindow32(2) !"USER32","FindWindowA"
>Declare winclass#,w&,message%,test%
>Dim winclass#,16
>String winclass#,0="Winamp v1.x"
>w&=FindWindow32(winclass#,0)
>message%=$9C70 '40048
>test%=sendmessage(w%,message%,0,0)
^^^
w& sollte hier richtiger sein !!!
>dispose winclass#

für message nimm auch mal ein Long, message&.




Jörg Sellmeyer
Datum:09.07.02 10:44 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Angelo,
Bitte poste mit Deinem vollen Namen.
Versuch mal statt "Winamp v1.x" nur "Winamp" als Suchmaske.
Ich schätze das x ist nur als Platzhalter für höhere Versionsnummern.
Gruß
Jörg



Angelo
Datum:09.07.02 12:39 Antwortenals Email verschicken (chip@gmx.de) 


hi,

@Thorsten
hab es mit Long schon probiert -> kein erfolg

laut sendmessage beschreibung kommt an diese stelle
N2 : Integer - Nummer der Meldung

aber trotzdem danke

@Jörg Sellmeyer
warum spielt meine vollständiger name eine rolle ?
meine das nicht böse :)
zu dem "Winamp v1.x", das ist schon richtig so

siehe oben mir geposteten link
All versions of Winamp 1.x and 2.x have the class "Winamp v1.x" ....

ciao
Angelo Sandoli


Jörg Sellmeyer
Datum:09.07.02 14:37 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Angelo,
Das mit dem vollen Namen ist eine Forumsregel.
Bisher sind oft Threads von Leuten mit Nicknames in wüstes Geschimpfe ausgeartet.
Das ist auch nicht persönlich gemeint, aber eine Tatsache.
Die Nennung des vollen Namens beugt dem anscheinend etwas vor.
Gruß
Jörg


Alexander Schoenfeld
Datum:09.07.02 14:12 Antwortenals Email verschicken (alexander.schoenfeld@chronologic.de) 


Hallo Angelo,

wenn w& ein ergebnis hat, wurde das Fenster bereits gefunden, also kann der fehler nur bei Sendmessage liegen.

Bei Sendmessage solltest du immer Long verwenden (message&), vorallem wenn der Wert schon mit $ anfängt.

Hier eine kleine Info:
Byte -128 bis +127
Integer -32768 bis +32767
Long -2147483648 bis +2147483647

Fazit: Du brauchst ein Long für den Wert 40048 :)

Mit freundlichem Gruss / kind regards,
Alexander Schoenfeld

Email: alexander.schoenfeld@chronologic.de


Angelo Sandoli
Datum:09.07.02 15:21 Antwortenals Email verschicken (chip@gmx.de) 


hi,

danke Alexander :)

habe es vorher schon mit long probiert,
leider kein ergebnis

ich bekomme ein handle
bsp 1377172
das bekomme ich als handle, kann das überhaupt sein ?
wer weiß was ich da abfrage :)

auf jeden fall bekomme ich die message nicht an winamp geschickt

hier ist eine vb vorlage, eventuell kann jemand daraus was ersehen
http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0199.shtml

ciao und danke
Angelo Sandoli


Alexander Schoenfeld
Datum:09.07.02 15:27 Antwortenals Email verschicken (alexander.schoenfeld@chronologic.de) 


hab noch einen kleinen Fehler entdeckt:

w&=FindWindow32(winclass#,0)
message%=$9C70 '40048
test%=sendmessage(w%,message%,0,0)
                   ^hier muss w& rein



Angelo Sandoli
Datum:09.07.02 16:34 Antwortenals Email verschicken (chip@gmx.de) 


hi,

das war nur ein tippfehler von mir hier

hab dort aber auch mit w& und dann noch w% probiert
(hab mit w%=w& die variable gefüllt gehabt)

Angelo Sandoli


Angelo Sandoli
Datum: 09.07.02 22:35 Antwortenals Email verschicken (chip@gmx.de) 


hi,

geschafft :)

Def FindWindow32(2) !"USER32","FindWindowA"
Def &WM_COMMAND 273
Declare winclass#,w&,message&
Dim winclass#,16
String winclass#,0="Winamp v1.x"
w&=FindWindow32(winclass#,0)
message&=40048 'Next track button
sendmessage(w&,&wm_command,message&,0)
dispose winclass#
end


 Zurück zur Übersicht