Keskustelu: Koodit: VB6: WinAmpControl

Bill Keltanen [16.04.2004 13:43:23]

Tällä voi komennella WinAmppia.. Lisäät 6 klikattavaa jutskaa ja niitten nimiks edellinen, seuraava, soita, pause, stop ja kappale. Ja vielä 1 Timer ja Module. Timer1 intervalliksi 1

edit: ja joku on näköjään mennyt muuttamaan topiccia, varmaan Antti. Antti, voitko vaihtaa sen takaisin WAC, WinAmpControliksi, kiitos.

Form1

'WAC by: Billy The Kid, 16.4.2004
'Saa käyttää ihan mihin vaan ja mieluusti kommentit
'mukaan :)
Private Sub edellinen_Click()
    SendMessage winampikkuna, WM_COMMAND, 40044, 0 'edellinen kappale
End Sub

Private Sub Form_Load()
    winampikkuna = FindWindow("Winamp v1.x", vbNullString) 'etitään winamp ikkuna
End Sub

Private Sub kappale_Click()
    Dim winamptitle As String
    winamptitle = Space$(2048)
    hommaa = GetWindowText(winampikkuna, winamptitle, Len(winamptitle))
    soivakappale = Mid(winamptitle, 1, Len(winamptitle) - 8)
    MsgBox soivakappale 'näyttää kappaleen
End Sub

Private Sub pause_Click()
    SendMessage winampikkuna, WM_COMMAND, 40046, 0 'pausejuttu
End Sub

Private Sub seuraava_Click()
    SendMessage winampikkuna, WM_COMMAND, 40048, 0 'seuraava kappale
End Sub

Private Sub soita_Click()
    SendMessage winampikkuna, WM_COMMAND, 40045, 0 'playjuttu
End Sub

Private Sub stop_Click()
    SendMessage winampikkuna, WM_COMMAND, 40047, 0 'stopjuttu
End Sub

Private Sub Timer1_Timer()
    winampikkuna = FindWindow("Winamp v1.x", vbNullString) 'etitään aina uusiks
End Sub

Module1

Public winampikkuna As Long

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
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_COMMAND = &H111

make3003 [20.04.2004 14:14:30]

saako tohon lisättyä playlistan ?

Bill Keltanen [21.04.2004 07:58:19]

En tiä, en oo vielä kokeillu tehä..

D4_B34M [17.11.2004 12:12:00]

Kiitos tollane tulee tarpeesee.. :]

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen