USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Imagem/Som/Multimídia)

Título da Dica:  Pegando a musica que esta tocando no Winamp
Postada em 29/1/2004 por ~Ð@®£@Ñ            
' ===============================
' ===== Baseado em um codigo ========
' ====== retirado do PSC ============
' ===============================

' Esse e um codigo bastante simples, baseado em API, cuja
' funcao e de pegar a musica que esta sendo tocada pelo Winamp.

' Precisamos de:
' 2 Labels - Label1 e Label2
' 1 Timer  - Timer1
'   Propriedade Enabled como True
'   Propriedade Interval como 1

' num modulo
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

'num form
Private Sub Timer1_Timer()
Dim musica As String
Dim separa() As String
Dim winamptitle As String
Dim hwndWinamp As Long

' Chamamos a funcao FindWindow, ela captura um determinado hWnd
' pelo titulo de uma aplicacao

hwndWinamp = FindWindow("Winamp v1.x", vbNullString)
' se nao funcionar, troque 1.x do primeiro parametro de
' FindWindow pela versao correspondente ao seu Winamp
winamptitle = Space$(2048)

' Agora, o que fazemos, e pegar o titulo corrente da janela
' no caso, a do Winamp, que fica nessa ordem:
' indice da playlist. titulo da musica corrente - Winamp

talle = GetWindowText(hwndWinamp, winamptitle, Len(winamptitle))

' Achando o índice da música
separa = Split(winamptitle, ".")
Label1 = separa(0)

' Achando o título da música
musica = Right(winamptitle, Len(winamptitle) - (Len(separa(0)) + 1))
Label2 = Trim(Replace(musica, " - Winamp", vbNullString))

End Sub

' Agora, é só botar um som no Winamp
' e rodar o programa, bastante simples não!
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página