使用vb.net完全控制winamp!

无意中发现一个可以控制winamp的com组件，试着用了一下，还不错。
在此下载
http://www.adcock8.freeserve.co.uk/gen_com.zip
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'在窗体上放入一个listbox和几个button

Private Winamp As New WINAMPCOMLib.Application()

''得到播放列表
Private Sub btnGetList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetList.Click
Dim n As Long
LstPlayList.Items.Clear()
For n = 0 To Winamp.PlayListCount - 1
LstPlayList.Items.Add(Winamp.SongTitle(n))
Next n
End Sub

'双击listbox播放
Private Sub LstPlayList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstPlayList.DoubleClick
Winamp.PlayListPos = LstPlayList.SelectedIndex
Winamp.Play()
End Sub

'启动Plugin 'avs_avs.dll'

Private Sub btnStartVis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartVis.Click
Winamp.StartPlugIn("vis_avs.dll")
End Sub

'停止播放

Private Sub btnWinampExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWinampExit.Click
Winamp.SendCommand(WINAMPCOMLib.eWinampCommand.WINAMP_STOP)
End Sub

''这个com可以完全控制winamp,大家研究一下吧。
'只能用于winamp 2.x