[VB.NET] การควบคุมโปรแกรม WinAmp ผ่านทาง API (Application Programming Interface)

thongkorn

โค้ดสั้นๆง่ายๆในการควบคุมการทำงานของโปรแกรมเปิดเพลงในตำนานอย่าง WinAmp ... ดาวน์โหลดโค้ดชุดเต็ม VB.NET (2010) ได้ที่นี่ ...

ดาวน์โหลด WinAmp ...
มาดูโค้ดกันเถอะ ...

1. Public Class frmWinampNet
   
2.     Dim waInterface As New wa  'Class wa defined in Class Module wa.vb
   
3. 
   
4.     Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
   
5.         Dim b As Boolean = waInterface.OpenWinamp("C:\Program Files (x86)\Winamp\winamp.exe")
   
6.         If b Then
   
7.             tsbWinamp.Text = "Status: " & waInterface.waStatus()  'prints "Stopped" or "Playing" or "Paused" if WinAmp already up and in one of those states.
   
8.             waInterface.SetVolume(tbVolumn.Value)
   
9.         End If
   
10.     End Sub
    
11. 
    
12.     Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click, btnPause.Click, btnPrev.Click, btnNext.Click
    
13.         Dim b As Button = DirectCast(sender, Button)
    
14.         Dim L As Long
    
15.         With waInterface
    
16.             Select Case b.Text
    
17.                 Case "Play" : L = .waPlay()
    
18.                 Case "Pause" : L = .waPause()
    
19.                 Case "Prev" : L = .waPrev()
    
20.                 Case "Next" : L = .waNext()
    
21.             End Select
    
22.         End With
    
23.         If L <> 0 Then
    
24.             tsbWinamp.Text = "Error with " & b.Text & " command"
    
25.         Else
    
26.             tsbWinamp.Text = "Status: " & waInterface.waStatus()
    
27.         End If
    
28.     End Sub
    
29. 
    
30.     Private Sub tbVolumn_Scroll(sender As System.Object, e As System.EventArgs) Handles tbVolumn.Scroll
    
31.         Dim L As Long
    
32.         L = waInterface.SetVolume(tbVolumn.Value)
    
33.     End Sub
    
34. 
    
35.     Private Sub frmWinampNet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
36.         Me.tsbWinamp.Text = ""
    
37.     End Sub
    
38. 
    
39.     Private Sub chkShuffle_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkShuffle.CheckedChanged
    
40.         waInterface.TogShuffle()
    
41.     End Sub
    
42. End Class

คัดลอกไปที่คลิปบอร์ด

g2gsoftuser

ขอบคุณครับ