XProfan

Español

Don
Bubu

moin moin,
Yo arbeite en el mom gerade a uno software para una multimedia pc y tener esta una menge infos zusammen bekommen.
el pc ha una fernsteuerung con trackball y una funk tastatur, beides con multimedia funtionen aber como üblich sólo otra vez bescheidene treiber.
el problem tener I, con uno genialen software nombre keybind de dieser hp gelöst : [...]

geniale sache ^ ^
aber nu a winamp .
esta sachen tener Hice verscheidenen foren zusammengetragen y para profano 5 adaptado :
como erstes muss winamp comenzó voluntad, qué sicherlich auch profano hacer dejar kann.
anschliessend muss profano el handle de winamp haben.
el va pero no encima el normale findwindow, como lo manchmal sólo el playlist-fenster findet. aber el winapi ha sí alles wat uno braucht wa ;)

-------------------------------------------------------
Kompilieren Marca Separación

Declare txt#,winamp&
Dim txt#,255
String txt#,0="Winamp v1.x"
Def FindWindowA(2) ! "user32","FindWindowA"
let winamp&=findwindowa(txt#,0)
dispose

-------------------------------------------------------

en nun winamp a steuern hay 2 arten, una vez con wm_command (273) y una vez con wm_user (1024).
en wm_command sähe el así de :

-------------------------------------------------------
Kompilieren Marca Separación

sendmessage(winamp&,273,<BEFEHL>,0)

-------------------------------------------------------

en wm_user así :

-------------------------------------------------------
Kompilieren Marca Separación

sendmessage(winamp&,1024,<PARAMETER>,<BEFEHL>)

-------------------------------------------------------

hier una liste el wm_command befehle en dec :
Kompilieren Marca Separación

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

y aquí el liste el wm_user befehle, wobei para befehle sin parameter
una 0 eingesetzt voluntad debería :
Kompilieren Marca Separación

0       Auslesen el Winampversion - así kann uno bien determinar, dass Winamp se ejecuta
100     Startet el Wiedergabe. Ähnlich como "Play" aber no el selbe
101     Playlist löschen
102     Ausgewählten Track abspielen
103     Winamp para Directorio C:Descargar wechseln
104     Abspielstatus. En Wiedergabe se 1 zurückgegeben, en Pause 3.
Ansonsten es el Wiedergabe gestoppt.
105     Mit Parámetro 0 se el Wiedergabeposition en ms zurückgegeben, en Parámetro 1
el aktuelle Track-Longitud en Sekunden. En keiner Wiedergabe oder una Fehler
se -1 zurückgegeben.
106     Springt a en el Parámetro en ms angegebenen Trackposition
120     Escribe el aktuelle Playlist en el Winampverzeichnis (winamp.m3u)
y son el aktuelle Playlistposition zurück
121     Springt para en el Parámetro angegebenen Track. Beginnt en 0, Parámetro=Tracknr-1 ruft
also el korrekten Track en
122     Mit el Parámetro kann uno el Lautstärke de 0-255 einstellen. Verwendet uno como
Parámetro -666 se el aktuell eingestellte Lautstärke zurückgegeben.
123     Mit el Parámetro kann uno el Balance de 0 (links) a 255 (rechts) eingeben
124     Gibt Anzahl el Tracks en el aktuellen Playlist de
125     Gibt el aktuell abgespielte Tracknummer el Playlist de (de Winamp 2.05).
126     Gibt en Parámetro 0 el Samplerate, en 1 el Bitrate y en 2
el Anzahl el Channel zurück (de Winamp 2.0.5).
127     Liest el Equalizer-Einstellungen de. Parámetro 0-9 son el Einstellung el
Kanäle de 1-10 zurück (0-63, +20db - -20db). Parámetro 10 son el
Vorverstärker-Einstellung zurück (0-63, +20db - -20db), Parámetro 11 son 0 zurück,
si el Equalizer deaktiviert es - ansonsten ungleich 0.
128     Autoload. En 0 = disabled, ungleich 0 = enabled.
129     Fügt el ausgewählte Expediente el Winamp Bookmarkliste hinzu
135     Startet Winamp neu

dazu igual una beispiel Yo el aktuelle datei, el winamp gerade abspielt, herrausbekomme:
-------------------------------------------------------
Kompilieren Marca Separación

declarar winamp&,ok%,a%,txt#,a$,st%
dim txt#,255
cadena txt#,0="Winamp v1.x"
Def findwindowa(2) ! "user32","FindWindowA"
let winamp&=findwindowa(txt#,0)
disponer txt#
let a%=@sendmessage(winamp&,1024,0,120)
assign #1,"G:AnwendungWinampWINAMP.m3u" esta angaben necesario natürlich adaptado voluntad
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

-------------------------------------------------------

así Yo hoffe el algunos así qué anfangen puede y una dicken danke a todos en diesem forum y el profano.de forum, el me de estos sachen geholfen haben,
also a denne wa ;)

29.09.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita