|
|
|
|
|
|
|
|
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!
|
|
|
|
|
