From MediaMonkey Wiki
Jump to navigation Jump to search

CoClass SDBDevice, Interface ISDBDevice

Property Get ActiveDeviceList(containID As String) As ISDBDeviceList


Name Type Description
containID String Specifies the string that must be in each device ID in the list of devices

Property description

Returns the list of devices connected to the computer as SDBDeviceList


Option Explicit
Dim UI  : Set UI = SDB.UI
Sub OnStartUp()
    Dim mnuTest
    Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
    mnuTest.Caption = SDB.Localize("Sync Now Playing to Galaxy Nexus")
    mnuTest.OnClickFunc = "SDBOnClick"
    mnuTest.UseScript = Script.ScriptPath    
End Sub
Sub SDBOnClick(Item)   
  Dim DeviceHandle : DeviceHandle = -1
  Dim Devices : Set Devices = SDB.Device.ActiveDeviceList("VID_04E8&PID_6860")
  Dim i : i = 0 
  For i = 0 To Devices.Count-1
	   If Devices.DeviceHandle(i) <> -1 Then
		   DeviceHandle = Devices.DeviceHandle(i)
	   End If
  SDB.Device.StartSynch DeviceHandle, SDB.Player.CurrentSongList
End Sub