ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 549|ตอบกลับ: 0

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

[คัดลอกลิงก์]

252

กระทู้

370

โพสต์

3094

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
3094



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

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

  1. Public Class frmWinampNet
  2.     Dim waInterface As New wa  'Class wa defined in Class Module wa.vb

  3.     Private Sub btnConnect_Click(sender As System.Object, e As System.EventArgs) Handles btnConnect.Click
  4.         Dim b As Boolean = waInterface.OpenWinamp("C:\Program Files (x86)\Winamp\winamp.exe")
  5.         If b Then
  6.             tsbWinamp.Text = "Status: " & waInterface.waStatus()  'prints "Stopped" or "Playing" or "Paused" if WinAmp already up and in one of those states.
  7.             waInterface.SetVolume(tbVolumn.Value)
  8.         End If
  9.     End Sub

  10.     Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click, btnPause.Click, btnPrev.Click, btnNext.Click
  11.         Dim b As Button = DirectCast(sender, Button)
  12.         Dim L As Long
  13.         With waInterface
  14.             Select Case b.Text
  15.                 Case "Play" : L = .waPlay()
  16.                 Case "Pause" : L = .waPause()
  17.                 Case "Prev" : L = .waPrev()
  18.                 Case "Next" : L = .waNext()
  19.             End Select
  20.         End With
  21.         If L <> 0 Then
  22.             tsbWinamp.Text = "Error with " & b.Text & " command"
  23.         Else
  24.             tsbWinamp.Text = "Status: " & waInterface.waStatus()
  25.         End If
  26.     End Sub

  27.     Private Sub tbVolumn_Scroll(sender As System.Object, e As System.EventArgs) Handles tbVolumn.Scroll
  28.         Dim L As Long
  29.         L = waInterface.SetVolume(tbVolumn.Value)
  30.     End Sub

  31.     Private Sub frmWinampNet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  32.         Me.tsbWinamp.Text = ""
  33.     End Sub

  34.     Private Sub chkShuffle_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkShuffle.CheckedChanged
  35.         waInterface.TogShuffle()
  36.     End Sub
  37. End Class
คัดลอกไปที่คลิปบอร์ด


สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-10-1 11:35 , Processed in 0.230547 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้