| |
|
|
 Don Bubu | moin moin, je travaille im mom justement à einer software pour une multimedia pc et hab dabei une la quantité infos zusammen bekommen. qui pc hat une fernsteuerung avec trackball et une funk clavier, beides avec multimedia funtionen mais comment üblich seulement wieder bescheidene treiber. cela problem hab je avec einer genialen software nommé keybind de cette hp gelöst : [...]  geniale l'affaire ^ ^ mais nu trop winamp . cet sachen hab je aus verscheidenen foren zusammengetragen et pour profan 5 angepasst : comme erstes muss winamp gestartet volonté, quoi on sicherlich aussi profan faire faire peux. anschliessend muss profan cela handle de winamp avons. cela allez mais pas sur cela normale findwindow, là es quelquefois seulement cela playlist-la fenêtre findet. mais qui winapi hat oui alles wat on braucht wa ;)
------------------------------------------------------- KompilierenMarqueSéparation-------------------------------------------------------
um eh bien winamp trop steuern gibt es 2 arten, einmal avec wm_command (273) et einmal avec wm_user (1024). chez wm_command sähe cela so aus :
------------------------------------------------------- KompilierenMarqueSéparation-------------------------------------------------------
chez wm_user so :
------------------------------------------------------- KompilierenMarqueSéparation-------------------------------------------------------
ici une liste qui wm_command befehle dans dec : KompilierenMarqueSéparation et ici qui liste qui wm_user befehle, wobei pour befehle sans paramètre une 0 eingesetzt volonté sollte : KompilierenMarqueSéparation0 Lecture qui Winampversion - avec cela peux on bien feststellen, dass Winamp fonctionne
100 Startet qui Wiedergabe. Ähnlich comment "Play" mais pas cela selbe
101 Playlist effacer
102 Ausgewählten Track abspielen
103 Winamp zum Verzeichnis C:Télécharger échanger
104 Abspielstatus. chez Wiedergabe wird 1 retour, chez récréation 3.
Ansonsten ist qui Wiedergabe gestoppt.
105 avec paramètre 0 wird qui Wiedergabeposition dans ms retour, chez paramètre 1
qui aktuelle Track-Longueur dans Sekunden. chez aucun Wiedergabe ou bien einem faute
wird -1 retour.
106 Springt zur im paramètre dans ms angegebenen Trackposition
120 écrit qui aktuelle Playlist ins Winampverzeichnis (winamp.m3u)
et gibt qui aktuelle Playlistposition zurück
121 Springt zum im paramètre angegebenen Track. Beginnt chez 0, paramètre=Tracknr-1 appelez
alors den korrekten Track sur
122 avec dem paramètre peux on qui Lautstärke de 0-255 einstellen. Verwendet on comme
paramètre -666 wird qui aktuell eingestellte Lautstärke retour.
123 avec dem paramètre peux on qui équilibre de 0 (à gauche) jusqu'à 255 (à droite) eingeben
124 Gibt Anzahl qui Tracks dans qui aktuellen Playlist aus
125 Gibt qui aktuell abgespielte Tracknummer qui Playlist aus (ab Winamp 2.05).
126 Gibt chez paramètre 0 qui Samplerate, chez 1 qui Bitrate et chez 2
qui Anzahl qui Channel zurück (ab Winamp 2.0.5).
127 Liest qui Equalizer-Einstellungen aus. paramètre 0-9 gibt qui Einstellung qui
Kanäle de 1-10 zurück (0-63, +20db - -20db). paramètre 10 gibt qui
Vorverstärker-Einstellung zurück (0-63, +20db - -20db), paramètre 11 gibt 0 zurück,
si qui Equalizer deaktiviert ist - ansonsten ungleich 0.
128 Autoload. chez 0 = disabled, ungleich 0 = enabled.
129 Fügt qui ausgewählte Dossier qui Winamp Bookmarkliste hinzu
135 Startet Winamp récente
en supplément juste un beispiel comment je qui aktuelle fichier, qui winamp justement abspielt, herrausbekomme: ------------------------------------------------------- KompilierenMarqueSéparationdeclare 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" cet angaben doit naturellement angepasst volonté
reset #1
whilenot ok%
input #1,a$
ifnot equ$(mid$(a$,1,1),"#")
inc st%
si gt(st%,a%)
let ok%=1
endif
endif
Wend
close #1
-------------------------------------------------------
so je hoffe cela quelques avec cela quoi anfangen peut et einem dicken merci à alle dans diesem forum et dans dem profan.de forum, qui mir chez cette sachen geholfen avons, alors jusqu'à denne wa ;) |
|
|
| |
|
|
|
 | Wow! très gentille l'affaire!
Salve! |
|
|
| |
|
|