Français
Source/ Codesnippets

Contrôle Winamp

 

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
Declare txt#,winamp&
Dim txt#,255
String txt#,0="Winamp v1.x"
Def FindWindowA(2) ! "user32","FindWindowA"
let winamp&=findwindowa(txt#,0)
dispose
-------------------------------------------------------

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
sendmessage(winamp&,273,<BEFEHL>,0)
-------------------------------------------------------

chez wm_user so :

-------------------------------------------------------
KompilierenMarqueSéparation
sendmessage(winamp&,1024,<PARAMETER>,<BEFEHL>)
-------------------------------------------------------

ici une liste qui wm_command befehle dans dec :
KompilierenMarqueSéparation
PreviousTrackButton = 40044
NextTrackButton = 40048
PlayButton = 40045
PauseUnpauseButton = 40046
StopButton = 40047
StopAfterCurrentTrack = 40147
FadeoutAndStop = 40157
FastForward5Seconds = 40148
FastRewind5Seconds = 40144
StartOfPlaylist = 40154
GoToEndOfPlaylist = 40158
OpenFileDialog = 40029
OpenUrlDialog = 40155
OpenFileInfoBox = 40188
SetTimeDisplayModeToElapsed = 40037
SetTimeDisplayModeToRemaining = 40038
TogglePreferencesScreen = 40012
OpenVisualizationOptions = 40190
OpenVisualizationPlugInOptions = 40191
ExecuteCurrentVisualizationPlugIn = 40192
ToggleAboutBox = 40041
ToggleTitleAutoscrolling = 40189
ToggleAlwaysOnTop = 40019
ToggleWindowshade = 40064
TogglePlaylistWindowshade = 40266
ToggleDoublesizeMode = 40165
ToggleEq = 40036
TogglePlaylistEditor = 40040
ToggleMainWindowVisible = 40258
ToggleMinibrowser = 40298
ToggleEasymove = 40186
RaiseVolumeBy1Perc = 40058
LowerVolumeBy1Perc = 40059
ToggleRepeat = 40022
ToggleShuffle = 40023
OpenJumpToTimeDialog = 40193
OpenJumpToFileDialog = 40194
OpenSkinSelector = 40219
ConfigureCurrentVisualizationPlugIn = 40221
ReloadTheCurrentSkin = 40291
CloseWinamp = 40001
MovesBack10TracksInPlaylist = 40197
ShowTheEditBookmarks = 40320
AddsCurrentTrackAsABookmark = 40321
PlayAudioCd = 40323
LoadAPresetFromEq = 40253
SaveAPresetToEqf = 40254
OpensLoadPresetsDialog = 40172
OpensAutoLoadPresetsDialog = 40173
LoadDefaultPreset = 40174
OpensSavePresetDialog = 40175
OpensAutoLoadSavePreset = 40176
OpensDeletePresetDialog = 40178
OpensDeleteAnAutoLoadPresetDialog = 40180

et ici qui liste qui wm_user befehle, wobei pour befehle sans paramètre
une 0 eingesetzt volonté sollte :
KompilierenMarqueSéparation
0       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éparation
declare 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 ;)
 
29.09.2005  
 



Wow! très gentille l'affaire!

Salve!
 
29.09.2005  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.338 Views

Untitledvor 0 min.
Peter Max MĂĽller12.10.2013
Profanet25.10.2011
Marcus Mayer23.02.2011

Themeninformationen

cet Thema hat 2 participant:

iF (1x)
Don Bubu (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie