Descrição:

Código fonte para poder manejar as opções de reprodução do reprodutor winamp mediante o teclado e algumas outras.
Este programa é útil para os que não tem teclado multimidia e/ou para ver uma forma de poder acessar as opções principais de reprodução de winamp de vb. Ao executar o projeto, se coloca um formulário a modo de informação na parte superior do systray mostrando o tema.
Para pode pausar, por play etc..a lista de temas, se utilizam as teclas F8, F9, F10, F11, F12 e as teclas + e -.
Notas: a função que recupera o título da canção é GetSongName, fazendo uso das funções do api GetWindowsText e o api FindWindow para recuperar o hwnd do winamp.
O código fonte do módulo bass "aviso.bas é para colocar o formulário no systray com o tema e o outro módulo é o que tem as funções para a reprodução.
No formulário tem dois timers, um é para atualizar o formulário localizado no systray e o outro para poder interceptar (mediante o api GetAsynKeyState) quando se pressiona as teclas.
Também no módulo "winamp.bas", tem outras funções, que o exemplo não as utiliza, mas que se podem adicionar para poder acessar a outras opções, como por exemplo:
* Função ToggleEQ: Ao chamar a esta função de desloca a janela do equalizador.
*Função TogglePlayList: descola a lista de reprodução de temas.
*Função ClearPlaylist: elimina toda a lista de temas
*Função FastForward: permite avançar no tema atual
*Função Rewind: permite rebobinar ou retroceder no tema atual.
*Função Fechar: para fechar o winamp
*Função SetPanning: permite menejar o balance. Recebe como parametro um número inteiro desde -127 até 127. Se passa o valor -127 o balance está esstabelecido 100% a esquerda, com 127, 100% a direita e se está em 0%, o balance está centrado.
*Função SetPlayListPos: esta função posiciona na lista de reprodução o tema indicado, por exemplo call SetPlayListPos (0), se posiciona no primeiro tema. Mas não a reproduz só se localiza no dito track
Também vê as funções WritePlayList, GetCurrentSongLenght, GetCurrentPos, JumpToTime, AddToPlaylist.
|
Fotos:
|
(Clique em uma foto para ampliar)
|