Quick Links   dBpoweramp [Music Converter,  Audio Player,  CD Writer]    Sveta Portable Audio,    Codec Central,    Register dBpoweramp,     Spoons Audio Guide

 
   

Developer Corner - Scripting dBpowerAMP Audio Player (dAP)

 
With dBpowerAMP you are able to write your own script, dBpowerAMP will play the exact part required. Even if you have no programming language, if you are running Windows 98, or Windows 2000 then you have everything you need to take control of dBpowerAMP using the built in Visual Basic Scripting. 
 
   

Go For It!

  
dBpowerAMP can be easily controlled from Visual Basic, for example - to Stop the Multiplayer (for Visual basic, save the below text in a .VBS file, to run it double click it ** VB Scripting Only works in Windows 98 / 2000 ** ):

 

Set Multiplayer = CreateObject("dBpowerAMP.Multiplayer")   ' Create dBpowerAMP Object
Multiplayer.Skip     ' Skip To Next Track

 

Multiplayer Functions 

Access with: 

Set Multiplayer = CreateObject("dBpowerAMP.Multiplayer")  ' Access Multiplayer Object


Play Button [BOOL On/Off]:

Multiplayer.Play = True       ' Play On
Multiplayer.Play = False      ' Play Off
If (Multiplayer.Play) Then    ' Is Play On?

Pause Button [BOOL On/Off]:

Multiplayer.Pause = True    ' Pause
Multiplayer.Pause = False   ' Pause Off
If (Multiplayer.Pause) Then  ' Is Paused?

Random Button [BOOL On/Off]:

Multiplayer.RandomPlay = True      ' Random Play On
Multiplayer.RandomPlay = False     ' Random Play Off
If (Multiplayer.RandomPlay) Then   ' Is Random Play?

Skip Track []:

Call Multiplayer.Skip()       ' Skip Track

Skip to Position [DWORD Position (0 to 100)]:

Call Muliplayer.SkipTo(50)     ' Skip to HalfWay

Playing [STRING FileToPlay]:

Multiplayer.FilePlaying = "c:\a.mp3"      ' Play File (straight away)
a$ = Multiplayer.FilePlaying                  ' Determine File Playing

Play Position [DWORD LengthInMiliSeconds]:

Position& = Multiplayer.Position            ' Get Position
Multiplayer.Position(3000)                     ' Skip to 3 seconds in

Get Track Length [DWORD LengthInMiliSeconds]:

Length& = Multiplayer.Length                ' Get Track Length

Artist Playing [STRING Artist]:

a$ = Multiplayer.Artist            ' Get Artist Playing

Track Playing [STRING Track]:

a$ = Multiplayer.Track           ' Get Track Playing

Album Playing [STRING Album]:

a$ = Multiplayer.Album         ' Get Album Playing

Kbps of Track Playing [DWORD Kbps]:

a& = Multiplayer.Kbps        ' Get Track Kbps

KHz of Track Playing [DWORD Khz]:

a& = Multiplayer.KHz          ' Get Track Khz

Track Playing Channels [DWORD Channels]:

a& = Multiplayer.Channels    ' Get Channels

Active Music Collection [STRING MusicCollection]:

a$ = Multiplayer.MusicCollection                    ' Get Active Music Collection
Multiplayer.MusicCollection = "c:\collection.mcc"      ' Set Active Music Collection

Enque A File [STRING File]:

Multiplayer.Enque = "c:\a.mp3"         ' Enque

Clear All Enqued Files []:

Call Multiplayer.ClearQued         ' Clear All Enqued

Randomize Enqued List []:

Call Multiplayer.RandomizeQued      ' Randomize Enqued List

Amp Functions 

Access with: 

Set Amp = CreateObject("dBpowerAMP.Amp")    ' Access Amp Object

Set Volume [DWORD Volume(0 to 100)]:

Amp.Volume = 50     ' Set 50% volume
a& = Amp.Volume     ' Get Volume

Start / Quit dBpowerAMP []:

Call Amp.PowerOn        ' Load dBpowerAMP
Call Amp.PowerOff        ' Quit dBpowerAMP

Set Balance [DWORD Balance (50 = centered left channel = 1 (min)-49(max) right channel = 51(max)-100(min))]:

Amp.Balance = 25             ' Set To 25% Only Right
a& = Amp.Balance            ' Get Balance