| |
| |
|
Don
Bubu | moin moin,
ich arbeite im mom gerade an einer software für einen multimedia pc und hab dabei eine menge infos zusammen bekommen.
der pc hat eine fernsteuerung mit trackball und eine funk tastatur, beides mit multimedia funtionen aber wie üblich nur wieder bescheidene treiber.
das problem hab ich mit einer genialen software namens keybind von dieser hp gelöst : [...] 
geniale sache ^^
aber nu zu winamp .
diese sachen hab ich aus verscheidenen foren zusammengetragen und für profan 5 angepasst :
als erstes muss winamp gestartet werden, was man sicherlich auch profan machen lassen kann.
anschliessend muss profan das handle von winamp haben.
das geht aber nicht über das normale findwindow, da es manchmal nur das playlist-fenster findet. aber die winapi hat ja alles wat man braucht wa ;)
-------------------------------------------------------
KompilierenMarkierenSeparieren-------------------------------------------------------
um nun winamp zu steuern gibt es 2 arten, einmal mit wm_command (273) und einmal mit wm_user (1024).
bei wm_command sähe das so aus :
-------------------------------------------------------
KompilierenMarkierenSeparieren-------------------------------------------------------
bei wm_user so :
-------------------------------------------------------
KompilierenMarkierenSeparieren-------------------------------------------------------
hier eine liste der wm_command befehle in dec :
KompilierenMarkierenSeparieren
und hier die liste der wm_user befehle, wobei für befehle ohne parameter
eine 0 eingesetzt werden sollte :
KompilierenMarkierenSeparieren0 Auslesen der Winampversion - damit kann man gut feststellen, dass Winamp läuft
100 Startet die Wiedergabe. Ähnlich wie "Play" aber nicht das selbe
101 Playlist löschen
102 Ausgewählten Track abspielen
103 Winamp zum Verzeichnis C:Download wechseln
104 Abspielstatus. Bei Wiedergabe wird 1 zurückgegeben, bei Pause 3.
Ansonsten ist die Wiedergabe gestoppt.
105 Mit Parameter 0 wird die Wiedergabeposition in ms zurückgegeben, bei Parameter 1
die aktuelle Track-Länge in Sekunden. Bei keiner Wiedergabe oder einem Fehler
wird -1 zurückgegeben.
106 Springt zur im Parameter in ms angegebenen Trackposition
120 Schreibt die aktuelle Playlist ins Winampverzeichnis (winamp.m3u)
und gibt die aktuelle Playlistposition zurück
121 Springt zum im Parameter angegebenen Track. Beginnt bei 0, Parameter=Tracknr-1 ruft
also den korrekten Track auf
122 Mit dem Parameter kann man die Lautstärke von 0-255 einstellen. Verwendet man als
Parameter -666 wird die aktuell eingestellte Lautstärke zurückgegeben.
123 Mit dem Parameter kann man die Balance von 0 (links) bis 255 (rechts) eingeben
124 Gibt Anzahl der Tracks in der aktuellen Playlist aus
125 Gibt die aktuell abgespielte Tracknummer der Playlist aus (ab Winamp 2.05).
126 Gibt bei Parameter 0 die Samplerate, bei 1 die Bitrate und bei 2
die Anzahl der Channel zurück (ab Winamp 2.0.5).
127 Liest die Equalizer-Einstellungen aus. Parameter 0-9 gibt die Einstellung der
Kanäle von 1-10 zurück (0-63, +20db - -20db). Parameter 10 gibt die
Vorverstärker-Einstellung zurück (0-63, +20db - -20db), Parameter 11 gibt 0 zurück,
wenn der Equalizer deaktiviert ist - ansonsten ungleich 0.
128 Autoload. Bei 0 = disabled, ungleich 0 = enabled.
129 Fügt die ausgewählte Datei der Winamp Bookmarkliste hinzu
135 Startet Winamp neu
dazu gleich ein beispiel wie ich die aktuelle datei, die winamp gerade abspielt, herrausbekomme:
-------------------------------------------------------
KompilierenMarkierenSeparierendeclare winamp&,ok%,a%,txt#,a$,st%
dim txt#,255
string txt#,0="Winamp v1.x"
Def findwindowa(2) ! "user32","FindWindowA"
let winamp&=findwindowa(txt#,0)
dispose txt#
let a%=@sendmessage(winamp&,1024,0,120)
assign #1,"G:AnwendungWinampWINAMP.m3u" diese angaben müssen natürlich angepasst werden
reset #1
whilenot ok%
input #1,a$
ifnot equ$(mid$(a$,1,1),"#")
inc st%
if gt(st%,a%)
let ok%=1
endif
endif
wend
close #1
so ich hoffe das einige damit was anfangen können und mit einem dicken danke an alle in diesem forum und in dem profan.de forum, die mir bei diesen sachen geholfen haben,
also bis denne wa ;) |
|
| |
| |
| |
|
|
 | Wow! Sehr nette Sache!
Salve! |
|
| |
| |
| |
|
(850)
Deutsch
English
Français
Español
Italia