readme, changelog updated

made some rearrangements to the dot sourcing

ButtonTypes enum added to macrobuttons.ps1

login string now includes version number

Test-RegistryValue added to inst.ps1

.vscode/launch.json

@@ -0,0 +1,63 @@
+{
+    // Use IntelliSense to learn about possible attributes.
+    // Hover to view descriptions of existing attributes.
+    // For more information, visit: https://go.microsoft.com/fwlink/?linkid=830387
+    "version": "0.2.0",
+    "configurations": [
+        {
+            "name": "PowerShell: Launch CLI Example",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}/examples/cli",
+            "script": "${workspaceFolder}/examples/cli/CLI.ps1",
+            "args": [
+                "-s",
+                "\"strip[0].mute\",",
+                "\"!strip[0].mute\",",
+                "\"strip[0].mute\",",
+                "\"bus[2].eq.on=1\",",
+                "\"command.lock=1\""
+            ],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Launch NextBus Example",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}/examples/nextbus",
+            "script": "${workspaceFolder}/examples/nextbus/GoTo-NextBus.ps1",
+            "args": [],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Launch OBS Example",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}/examples/obs",
+            "script": "${workspaceFolder}/examples/obs/Vm-Obs-Sync.ps1",
+            "args": [],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Run Pester Tests",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}",
+            "script": "${workspaceFolder}/tests/pre-commit.ps1",
+            "args": [],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Launch Quick Test",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}",
+            "script": "${workspaceFolder}/quick.ps1",
+            "args": [
+                "-Verbose",
+                "-Debug"
+            ],
+            "createTemporaryIntegratedConsole": true
+        }
+    ]
+}

CHANGELOG.md

@@ -9,10 +9,16 @@ Before any major/minor/patch is released all test units will be run to verify th
 
 ## [Unreleased] These changes have not been added to PSGallery yet
 
--   [x] Implement command.load
+- [x] Debug statements added to Getters, Setters in higher classes.
--   [x] Implement comp/gate parameters introduced in v3.0.2.8 of the api.
+
--   [x] Add unit tests for new classes.
+## [3.1.0]
--   [x] Update README with changes to Strip/Bus classes.
+
+### Added
+
+- Level methods for Strip class implemented. See Strip.levels section in README.
+- Level methods for Bus class implemented. See Bus.levels section in README.
+- More Recorder commands implemented. See Recorder section in README.
+- RunMacrobuttons, CloseMacrobuttons added to Special class
 
 ## [3.0.0]
 

README.md

@@ -79,7 +79,7 @@ Voicemeeter factory function can be:
 - Get-RemoteBanana
 - Get-RemotePotato
 
-Added in v3 you may also use the following entry/exit points:
+Added in `v3` you may also use the following entry/exit points:
 
 - Connect-Voicemeeter
 - Disconnect-Voicemeeter
@@ -90,6 +90,8 @@ for example:
 
 ```powershell
 $vmr = Connect-Voicemeeter -Kind "potato"
+...
+Disconnect-Voicemeeter
 ```
 
 #### `Through the Shell`
@@ -113,13 +115,13 @@ $vmr.Logout()
 
 The following strip commands are available:
 
--   mute: boolean
+- mute: bool
--   mono: boolean
+- mono: bool
--   mc: boolean
+- mc: bool
 - k: int, from 0 to 4
--   solo: boolean
+- solo: bool
--   A1-A5: boolean
+- A1-A5: bool
--   B1-B3: boolean
+- B1-B3: bool
 - limit: int, from -40 to 12
 - gain: float, from -60.0 to 12.0
 - label: string
@@ -133,10 +135,10 @@ The following strip commands are available:
 - color_y: float, from 0.0 to 1.0
 - fx_x: float, from -0.5 to 0.5
 - fx_y: float, from 0.0 to 1.0
--   postreverb: boolean
+- postreverb: bool
--   postdelay: boolean
+- postdelay: bool
--   postfx1: boolean
+- postfx1: bool
--   postfx2: boolean
+- postfx2: bool
 - gainlayer0-gainlayer7: float
 
 for example:
@@ -163,7 +165,7 @@ The following strip.comp commands are available:
 - release: float, from 0.0 to 5000.0
 - knee: float, 0.0 to 1.0
 - gainout: float, from -24.0 to 24.0
--   makeup: boolean
+- makeup: bool
 
 for example:
 
@@ -204,7 +206,7 @@ $vmr.strip[3].denoiser.knob = 5
 #### AppGain | AppMute
 
 - `AppGain(amount, gain)` : string, float
--   `AppMute(amount, mutestate)` : string, boolean
+- `AppMute(amount, mutestate)` : string, bool
 
 for example:
 
@@ -213,6 +215,20 @@ $vmr.strip[5].AppGain("Spotify", 0.5)
 $vmr.strip[5].AppMute("Spotify", $true)
 ```
 
+#### levels
+
+The following strip.level commands are available:
+
+- PreFader()
+- PostFader()
+- PostMute()
+
+for example:
+
+```powershell
+$vmr.strip[2].levels.PreFader() -Join ', ' | Write-Host
+```
+
 ### Bus
 
 The following bus commands are available:
@@ -237,18 +253,18 @@ $vmr.bus[3].returnreverb = 5.7
 
 The following bus.mode members are available:
 
--   normal: boolean
+- normal: bool
--   amix: boolean
+- amix: bool
--   bmix: boolean
+- bmix: bool
--   repeat: boolean
+- repeat: bool
--   composite: boolean
+- composite: bool
--   tvmix: boolean
+- tvmix: bool
--   upmix21: boolean
+- upmix21: bool
--   upmix41: boolean
+- upmix41: bool
--   upmix61: boolean
+- upmix61: bool
--   centeronly: boolean
+- centeronly: bool
--   lfeonly: boolean
+- lfeonly: bool
--   rearonly: boolean
+- rearonly: bool
 
 The following bus.mode commands are available:
 
@@ -262,6 +278,18 @@ $vmr.bus[0].mode.centeronly = $true
 $vmr.bus[0].mode.Get()
 ```
 
+#### levels
+
+The following strip.level commands are available:
+
+- All()
+
+for example:
+
+```powershell
+$vmr.bus[2].levels.All() -Join ', ' | Write-Host
+```
+
 ### Strip|Bus
 
 #### device
@@ -289,8 +317,15 @@ wdm, ks, mme, asio are defined as write only.
 
 The following strip.eq | bus.eq commands are available:
 
--   on: boolean
+- on: bool
--   ab: boolean
+- ab: bool
+
+for example:
+
+```powershell
+$vmr.strip[0].eq.on = $true
+$vmr.bus[0].eq.ab = $false
+```
 
 #### FadeTo | FadeBy
 
@@ -324,19 +359,19 @@ $vmr.button[5].trigger = $true
 
 ### VBAN
 
--   vmr.vban.enable: Toggle VBAN on or off. Accepts a boolean value.
+- vmr.vban.enable: Toggle VBAN on or off. Accepts a bool value.
 
 For each vban in/out stream the following parameters are defined:
 
--   on: boolean
+- on: bool
 - name: string
 - ip: string
--   port: int from 1024 - 65535
+- port: int, from 1024 - 65535
--   sr: int (11025, 16000, 22050, 24000, 32000, 44100, 48000, 64000, 88200, 96000)
+- sr: in, (11025, 16000, 22050, 24000, 32000, 44100, 48000, 64000, 88200, 96000)
 - channel: int from 1 to 8
--   bit: int 16 or 24
+- bit: int, 16 or 24
--   quality: int from 0 to 4
+- quality: int, from 0 to 4
--   route: int from 0 to 8
+- route: int, from 0 to 8
 
 SR, channel and bit are defined as readonly for instreams. Attempting to write
 to those parameters will throw an error. They are read and write for outstreams.
@@ -355,18 +390,18 @@ $vmr.vban.outstream[3].bit = 16
 
 Certain 'special' commands are defined by the API as performing actions rather than setting values.
 
-The following methods are available:
+The following commands are available:
 
 - show
 - hide
 - restart
 - shutdown
--   Load(filepath)
+- showvbanchat: bool, (write only)
+- lock: bool, (write only)
 
-The following properties are write only and accept boolean values:
+The following methods are available:
 
--   showvbanchat
+- Load($filepath): string
--   lock
 
 example:
 
@@ -380,7 +415,7 @@ $vmr.command.Load("path/to/filename.xml")
 
 ### Recorder
 
-The following methods are available:
+The following commands are available:
 
 - play
 - stop
@@ -388,19 +423,53 @@ The following methods are available:
 - record
 - ff
 - rew
+- A1 - A5: bool
+- B1 - B3: bool
+- samplerate: int, (22050, 24000, 32000, 44100, 48000, 88200, 96000, 176400, 192000)
+- bitresolution: int, (8, 16, 24, 32)
+- channel: int, from 1 to 8
+- kbps: int, (32, 40, 48, 56, 64, 80, 96, 112, 128, 160, 192, 224, 256, 320)
 
-The following properties accept boolean values.
+The following methods are available:
 
--   loop
+- Load($filepath): string
--   A1 - A5
+- GoTo($timestring): string, must match the format 'hh:mm:ss'
--   B1 - B3
+- FileType($format): string, ('wav', 'aiff', 'bwf', 'mp3')
 
 example:
 
 ```powershell
 $vmr.recorder.play
+$vmr.recorder.A1 = $true
 
-$vmr.recorder.loop = $true
+$vmr.recorder.GoTo("00:01:15")  # go to 1min 15sec into track
+```
+
+#### Mode
+
+The following commands are available:
+
+- recbus
+- playonload
+- loop
+- multitrack
+
+example:
+
+```powershell
+$vmr.recorder.mode.loop = $true
+```
+
+#### ArmStrip[i]|ArmBus[i]
+
+The following method is available:
+
+- Set($val): bool
+
+example:
+
+```powershell
+$vmr.recorder.armstrip[0].Set($true)
 ```
 
 ### Multiple parameters

examples/cli/CLI.ps1

@@ -63,4 +63,4 @@ function main {
     finally { Disconnect-Voicemeeter }
 }
 
-if ($MyInvocation.InvocationName -ne '.') { main }
+main

examples/obs/Vm-Obs-Sync.ps1

@@ -68,4 +68,4 @@ function main {
     }    
 }
 
-if ($MyInvocation.InvocationName -ne '.') { main }
+main

lib/Voicemeeter.psm1

@@ -1,14 +1,22 @@
-. $PSScriptRoot\kinds.ps1
+. $PSScriptRoot\errors.ps1
+. $PSScriptRoot\meta.ps1
 . $PSScriptRoot\base.ps1
+. $PSScriptRoot\kinds.ps1
+. $PSScriptRoot\strip.ps1
+. $PSScriptRoot\bus.ps1
+. $PSScriptRoot\macrobuttons.ps1
+. $PSScriptRoot\vban.ps1
+. $PSScriptRoot\command.ps1
+. $PSScriptRoot\recorder.ps1
+. $PSScriptRoot\profiles.ps1
 
 class Remote {
+    [String]$vmpath
     [Hashtable]$kind
     [Object]$profiles
 
     Remote ([String]$kindId) {
-        if (!(Setup_DLL)) {
+        $this.vmpath = Setup_DLL
-            Exit -1
-        }
         $this.kind = GetKind($kindId)
         $this.profiles = Get_Profiles($this.kind.name)
     }
@@ -31,7 +39,7 @@ class Remote {
     }
 
     [String] GetVersion() {
-        return Version
+        return VmVersion
     }
 
     [void] Set_Profile([String]$config) {
@@ -75,7 +83,7 @@ class RemoteBasic : Remote {
         $this.bus = Make_Buses($this)
         $this.button = Make_Buttons
         $this.vban = Make_Vban($this)
-        $this.command = Make_Command
+        $this.command = Make_Command($this)
     }
 }
 
@@ -92,7 +100,7 @@ class RemoteBanana : Remote {
         $this.bus = Make_Buses($this)
         $this.button = Make_Buttons
         $this.vban = Make_Vban($this)
-        $this.command = Make_Command
+        $this.command = Make_Command($this)
         $this.recorder = Make_Recorder($this)
     }
 }
@@ -110,7 +118,7 @@ class RemotePotato : Remote {
         $this.bus = Make_Buses($this)
         $this.button = Make_Buttons
         $this.vban = Make_Vban($this)
-        $this.command = Make_Command
+        $this.command = Make_Command($this)
         $this.recorder = Make_Recorder($this)
     }
 }
@@ -147,6 +155,12 @@ Function Connect-Voicemeeter {
         Write-Warning $_.Exception.ErrorMessage()
         throw
     }
+    catch [VMRemoteError] {
+        $_.Exception.ErrorMessage() | Write-Warning
+        if ($_.Exception.ErrorMessage() -eq "Couldn't get Voicemeeter path") { 
+            Exit -1 
+        }
+    }
 }
 
 Function Disconnect-Voicemeeter {

lib/base.ps1

@@ -1,13 +1,5 @@
 . $PSScriptRoot\errors.ps1
 . $PSScriptRoot\binding.ps1
-. $PSScriptRoot\profiles.ps1
-. $PSScriptRoot\inst.ps1
-. $PSScriptRoot\strip.ps1
-. $PSScriptRoot\bus.ps1
-. $PSScriptRoot\macrobuttons.ps1
-. $PSScriptRoot\vban.ps1
-. $PSScriptRoot\command.ps1
-. $PSScriptRoot\recorder.ps1
 
 function Login {
     param(
@@ -15,11 +7,9 @@ function Login {
     )
     try {
         $retval = [int][Voicemeeter.Remote]::VBVMR_Login()
-        if (-not $retval) { 
+        if ($retval -ne 0) {
-            "LOGGED IN" | Write-Verbose
+            switch ($retval) {
-        }
+                1 {
-        elseif ($retval -eq 1) {
-            "VM NOT RUNNING" | Write-Verbose
                     New-Variable -Name vmExe -Value 0
 
                     if ( $kindId -eq "basic" ) { $vmExe = 1 }
@@ -30,31 +20,33 @@ function Login {
 
                     $retval = [int][Voicemeeter.Remote]::VBVMR_RunVoicemeeter([int64]$vmExe)
                     if (-not $retval) { 
-                "STARTING VOICEMEETER" | Write-Verbose
+                        "Voicemeeter Engine running but GUI not launched. Launching GUI now." | Write-Verbose
                         Start-Sleep -s 1
                     }
                     else { 
                         throw [CAPIError]::new($retval, $MyInvocation.MyCommand) 
                     }
                 }
-        elseif ($retval -eq -2) {
+                -2 {
-            throw [LoginError]::new('login may only be called once per session')
+                    throw [LoginError]::new('Login may only be called once per session')
+                }
+                default { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+            }
         }   
-        else { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
     }
     catch [LoginError] {
-        Write-Warning "$($_.Exception.ErrorMessage()). Fatal error, exiting..."
+        "$($_.Exception.ErrorMessage()). Fatal error, exiting..." | Write-Warning
         exit -2
     }
 
     while (P_Dirty -or M_Dirty) { Start-Sleep -m 1 }
-    "VERSION:[" + $(VmType).ToUpper() + "]" | Write-Verbose
+    "Successfully logged into Voicemeeter [" + $(VmType).ToUpper() + "] Version " + $(VmVersion) | Write-Verbose
 }
 
 function Logout {
     Start-Sleep -m 20
     $retval = [int][Voicemeeter.Remote]::VBVMR_Logout()
-    if (-not $retval) { "LOGGED OUT" | Write-Verbose }     
+    if ($retval -eq 0) { "Sucessfully logged out" | Write-Verbose }     
 }
 
 function P_Dirty {
@@ -76,7 +68,7 @@ function VmType {
     }
 }
 
-function Version {
+function VmVersion {
     New-Variable -Name ptr -Value 0
     $retval = [int][Voicemeeter.Remote]::VBVMR_GetVoicemeeterVersion([ref]$ptr)
     if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
@@ -203,3 +195,18 @@ function Set_By_Script {
         Write-Warning $_.Exception.ErrorMessage()
     }
 }
+
+function Get_Level {
+    param(
+        [int64]$MODE, [int64]$INDEX
+    )
+    New-Variable -Name ptr -Value 0.0
+    try {
+        $retval = [int][Voicemeeter.Remote]::VBVMR_GetLevel($MODE, $INDEX, [ref]$ptr)
+        if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+    }
+    catch [CAPIError] {
+        Write-Warning $_.Exception.ErrorMessage()
+    }
+    [float]$ptr
+}

lib/binding.ps1

@@ -1,18 +1,11 @@
-function Setup_DLL {
+. $PSScriptRoot\inst.ps1
-    try {
-        $vb_path = Get_VBPath
 
-        if ([string]::IsNullOrWhiteSpace($vb_path)) {
+function Setup_DLL {
-            throw [VMRemoteError]::new("couldn't get Voicemeeter path")
+    $VMPATH = Get_VMPath
-        }
+
-        $dll = Join-Path -Path $vb_path -ChildPath ("VoicemeeterRemote" + `
+    $dll = Join-Path -Path $VMPATH -ChildPath ("VoicemeeterRemote" + `
         (& { if ([Environment]::Is64BitOperatingSystem) { "64" } else { "" } }) + `
             ".dll")
-    }
-    catch [VMRemoteError] {
-        Write-Warning $_.Exception.ErrorMessage()
-        return $false
-    }
 
     $Signature = @"
     [DllImport(@"$dll")]
@@ -47,8 +40,11 @@ function Setup_DLL {
 
     [DllImport(@"$dll")]
     public static extern int VBVMR_SetParameters(String param);
+
+    [DllImport(@"$dll")]
+    public static extern int VBVMR_GetLevel(Int64 mode, Int64 index, ref float ptr);
 "@
 
     Add-Type -MemberDefinition $Signature -Name Remote -Namespace Voicemeeter -PassThru | Out-Null
-    return $true
+    return $VMPATH
 }

lib/bus.ps1

@@ -1,5 +1,3 @@
-. $PSScriptRoot\meta.ps1
-
 class IBus {
     [int]$index
     [Object]$remote
@@ -13,34 +11,46 @@ class IBus {
         return "Bus[" + $this.index + "]"
     }
 
-    [string] ToString() {
-        return $this.GetType().Name + $this.index
-    }
-
     [single] Getter ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $false
+        $this.ToString() + " Getter: $($this.Cmd($param))" | Write-Debug
+        return $this.remote.Getter($this.Cmd($param))
     }
 
     [string] Getter_String ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $true
+        $this.ToString() + " Getter_String: $($this.Cmd($param))" | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
     }
 
-    [void] Setter ($param, $set) {
+    [void] Setter ($param, $val) {
-        Param_Set -PARAM "$($this.identifier()).$param" -Value $set
+        $this.ToString() + " Setter: $($this.Cmd($param))=$val" | Write-Debug
+        $this.remote.Setter($this.Cmd($param), $val)
+    }
+
+    [string] Cmd ($param) {
+        if ([string]::IsNullOrEmpty($param)) {
+            return $this.identifier()
+        }
+        return "$($this.identifier()).$param"
     }
 }
 
 class Bus : IBus {
     [Object]$mode
     [Object]$eq
+    [Object]$levels
 
     Bus ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddBoolMembers -PARAMS @('mono', 'mute')
         AddStringMembers -PARAMS @('label')
         AddFloatMembers -PARAMS @('gain', 'returnreverb', 'returndelay', 'returnfx1', 'returnfx2')
 
-        $this.mode = [Mode]::new($index, $remote)
+        $this.mode = [BusMode]::new($index, $remote)
-        $this.eq = [Eq]::new($index, $remote)
+        $this.eq = [BusEq]::new($index, $remote)
+        $this.levels = [BusLevels]::new($index, $remote)
+    }
+
+    [string] ToString() {
+        return $this.GetType().Name + $this.index
     }
 
     [void] FadeTo ([single]$target, [int]$time) {
@@ -52,10 +62,41 @@ class Bus : IBus {
     }
 }
 
-class Mode : IBus {
+class BusLevels : IBus {
+    [int]$init
+    [int]$offset
+
+    BusLevels ([int]$index, [Object]$remote) : base ($index, $remote) {
+        $this.init = $index * 8
+        $this.offset = 8            
+    }
+
+    [float] Convert([float]$val) {
+        if ($val -gt 0) { 
+            return [math]::Round(20 * [math]::Log10($val), 1) 
+        } 
+        else { 
+            return - 200.0 
+        }
+    }
+
+    [System.Collections.ArrayList] Getter([int]$mode) {
+        [System.Collections.ArrayList]$vals = @()
+        $this.init..$($this.init + $this.offset - 1) | ForEach-Object {
+            $vals.Add($this.Convert($(Get_Level -MODE $mode -INDEX $_)))
+        }
+        return $vals
+    }
+
+    [System.Collections.ArrayList] All() {
+        return $this.Getter(3)
+    }
+}
+
+class BusMode : IBus {
     [System.Collections.ArrayList]$modes
 
-    Mode ([int]$index, [Object]$remote) : base ($index, $remote) {
+    BusMode ([int]$index, [Object]$remote) : base ($index, $remote) {
         $this.modes = @(
             'normal', 'amix', 'bmix', 'repeat', 'composite', 'tvmix', 'upmix21', 'upmix41', 'upmix61', 
             'centeronly', 'lfeonly', 'rearonly'
@@ -78,8 +119,8 @@ class Mode : IBus {
     }
 }
 
-class Eq : IBus {
+class BusEq : IBus {
-    Eq ([int]$index, [Object]$remote) : base ($index, $remote) {
+    BusEq ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddBoolMembers -PARAMS @('on', 'ab')
     }
 
@@ -92,12 +133,12 @@ class PhysicalBus : Bus {
     [Object]$device
 
     PhysicalBus ([int]$index, [Object]$remote) : base ($index, $remote) {
-        $this.device = [Device]::new($index, $remote)
+        $this.device = [BusDevice]::new($index, $remote)
     }
 }
 
-class Device : IBus {
+class BusDevice : IBus {
-    Device ([int]$index, [Object]$remote) : base ($index, $remote) {
+    BusDevice ([int]$index, [Object]$remote) : base ($index, $remote) {
     }
 
     [string] identifier () {

lib/command.ps1

@@ -1,8 +1,10 @@
-. $PSScriptRoot\meta.ps1
-
 class Special {
-    Special () {
+    [Object]$remote
+
+    Special ([Object]$remote) {
         AddActionMembers -PARAMS @('restart', 'shutdown', 'show')
+    
+        $this.remote = $remote
     }
 
     [string] identifier () {
@@ -14,18 +16,28 @@ class Special {
     }
 
     [single] Getter ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $false
+        return $this.remote.Getter("$($this.identifier()).$param")
     }
 
     [void] Setter ($param, $val) {
         if ($val -is [Boolean]) {
-            Param_Set -PARAM "$($this.identifier()).$param" -Value $(if ($val) { 1 } else { 0 })
+            $this.remote.Setter("$($this.identifier()).$param", $(if ($val) { 1 } else { 0 }))
         }
         else {
-            Param_Set -PARAM "$($this.identifier()).$param" -Value $val
+            $this.remote.Setter("$($this.identifier()).$param", $val)
         }
     }
 
+    [void] RunMacrobuttons() {
+        "Launching the MacroButtons app" | Write-Verbose
+        Start-Process -FilePath $(Join-Path -Path $this.remote.vmpath -ChildPath "VoicemeeterMacroButtons.exe")
+    }
+
+    [void] CloseMacrobuttons() {
+        "Closing the MacroButtons app" | Write-Verbose
+        Stop-Process -Name "VoicemeeterMacroButtons"
+    }
+
     hidden $_hide = $($this | Add-Member ScriptProperty 'hide' `
         {
             $this._hide = $this.Setter('show', $false)
@@ -58,6 +70,6 @@ class Special {
     }
 }
 
-function Make_Command {
+function Make_Command([Object]$remote) {
-    return [Special]::new()
+    return [Special]::new($remote)
 }

lib/inst.ps1

@@ -1,8 +1,13 @@
-function Get_VBPath {
+function Get_VMPath {
-    $reg_path = "Registry::HKEY_LOCAL_MACHINE\Software" + `
+    $REG_KEY = "Registry::HKEY_LOCAL_MACHINE\Software" + `
     (& { if ([Environment]::Is64BitOperatingSystem) { "\WOW6432Node" } else { "" } }) + `
         "\Microsoft\Windows\CurrentVersion\Uninstall"
-    $vm_key = "\VB:Voicemeeter {17359A74-1236-5467}\"
+    $VM_KEY = "\VB:Voicemeeter {17359A74-1236-5467}\"
 
-    return $(Get-ItemPropertyValue -Path ($reg_path + $vm_key) -Name UninstallString | Split-Path -Parent)
+    try {
+        return $(Get-ItemPropertyValue -Path ($REG_KEY + $VM_KEY) -Name UninstallString | Split-Path -Parent)
+    }
+    catch {
+        throw [VMRemoteError]::new("Couldn't get Voicemeeter path")
+    }
 }

lib/macrobuttons.ps1

@@ -1,3 +1,9 @@
+enum ButtonTypes {
+    State = 1
+    StateOnly = 2
+    Trigger = 3
+}
+
 class MacroButton {
     [int32]$index
 
@@ -10,40 +16,42 @@ class MacroButton {
     }
 
     [int] Getter ($mode) {
+        "Button[$($this.index)].$([ButtonTypes].GetEnumName($mode))" | Write-Debug
         return MB_Get -Id $this.index -Mode $mode
     }
 
-    [void] Setter ($set, $mode) {
+    [void] Setter ($val, $mode) {
-        MB_Set -Id $this.index -SET $set -Mode $mode
+        "Button[$($this.index)].$([ButtonTypes].GetEnumName($mode))=$val" | Write-Debug
+        MB_Set -Id $this.index -SET $val -Mode $mode
     }
 
     hidden $_state = $($this | Add-Member ScriptProperty 'state' `
         {
-            [bool]$this.Getter(1)
+            [bool]$this.Getter([ButtonTypes]::State)
         } `
         {
             param($arg)
-            $this._state = $this.Setter($arg, 1)
+            $this._state = $this.Setter($arg, [ButtonTypes]::State)
         }
     )
 
     hidden $_stateonly = $($this | Add-Member ScriptProperty 'stateonly' `
         {
-            [bool]$this.Getter(2)
+            [bool]$this.Getter([ButtonTypes]::StateOnly)
         } `
         {
             param($arg)
-            $this._stateonly = $this.Setter($arg, 2)
+            $this._stateonly = $this.Setter($arg, [ButtonTypes]::StateOnly)
         }
     )
 
     hidden $_trigger = $($this | Add-Member ScriptProperty 'trigger' `
         {
-            [bool]$this.Getter(3)
+            [bool]$this.Getter([ButtonTypes]::Trigger)
         } `
         {
             param($arg)
-            $this._trigger = $this.Setter($arg, 3)
+            $this._trigger = $this.Setter($arg, [ButtonTypes]::Trigger)
         }
     )
 }

lib/recorder.ps1

@@ -1,12 +1,52 @@
-. $PSScriptRoot\meta.ps1
+class IRecorder {
-
-class Recorder {
     [Object]$remote
 
-    Recorder ([Object]$remote) {
+    IRecorder ([Object]$remote) {
         $this.remote = $remote
+    }
+
+    [single] Getter ($param) {
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter($this.Cmd($param))
+    }
+
+    [void] Setter ($param, $val) {
+        "$($this.Cmd($param))=$val" | Write-Debug
+        if ($val -is [Boolean]) {
+            $this.remote.Setter($this.Cmd($param), $(if ($val) { 1 } else { 0 }))
+        }
+        else {
+            $this.remote.Setter($this.Cmd($param), $val)
+        }
+    }
+
+    [string] Cmd ($param) {
+        if ([string]::IsNullOrEmpty($param)) {
+            return $this.identifier()
+        }
+        return "$($this.identifier()).$param"
+    }
+}
+
+class Recorder : IRecorder {
+    [Object]$remote
+    [Object]$mode
+    [System.Collections.ArrayList]$armstrip
+    [System.Collections.ArrayList]$armbus
+
+    Recorder ([Object]$remote) : base ($remote) {
+        $this.mode = [RecorderMode]::new($remote)
+        $this.armstrip = @()
+        0..($remote.kind.p_in + $remote.kind.v_in - 1) | ForEach-Object {
+            $this.armstrip.Add([RecorderArmStrip]::new($_, $remote))
+        }
+        $this.armbus = @()
+        0..($remote.kind.p_out + $remote.kind.v_out - 1) | ForEach-Object {
+            $this.armbus.Add([RecorderArmBus]::new($_, $remote))
+        }
 
         AddActionMembers -PARAMS @('play', 'stop', 'pause', 'replay', 'record', 'ff', 'rew')
+        AddFloatMembers -PARAMS @('gain')
         AddChannelMembers
     }
 
@@ -18,32 +58,146 @@ class Recorder {
         return $this.GetType().Name
     }
 
-    [single] Getter ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $false
-    }
-
-    [void] Setter ($param, $val) {
-        if ($val -is [Boolean]) {
-            Param_Set -PARAM "$($this.identifier()).$param" -Value $(if ($val) { 1 } else { 0 })
-        }
-        else {
-            Param_Set -PARAM "$($this.identifier()).$param" -Value $val
-        }
-    }
-
     hidden $_loop = $($this | Add-Member ScriptProperty 'loop' `
         {
-            return Write-Warning ("ERROR: $($this.identifier()).mode.loop is write only")
+            [bool]$this.mode.loop
         } `
         {
-            param([bool]$arg)
+            param($arg)
-            $this._loop = $this.Setter('mode.loop', $arg)
+            $this.mode.loop = $arg
+        }
+    )
+
+    hidden $_samplerate = $($this | Add-Member ScriptProperty 'samplerate' `
+        {
+            $this.Getter('samplerate')
+        } `
+        {
+            param([int]$arg)
+            $opts = @(22050, 24000, 32000, 44100, 48000, 88200, 96000, 176400, 192000)
+            if ($opts.Contains($arg)) {
+                $this._samplerate = $this.Setter('samplerate', $arg)
+            }
+            else {
+                "samplerate got: $arg, expected one of $opts" | Write-Warning
+            }
+        }
+    )
+
+    hidden $_bitresolution = $($this | Add-Member ScriptProperty 'bitresolution' `
+        {
+            $this.Getter('bitresolution')
+        } `
+        {
+            param([int]$arg)
+            $opts = @(8, 16, 24, 32)
+            if ($opts.Contains($arg)) {
+                $this._bitresolution = $this.Setter('bitresolution', $arg)
+            }
+            else {
+                "bitresolution got: $arg, expected one of $opts" | Write-Warning
+            }
+        }
+    )
+
+    hidden $_channel = $($this | Add-Member ScriptProperty 'channel' `
+        {
+            $this.Getter('channel')
+        } `
+        {
+            param([int]$arg)
+            if ($arg -ge 1 -and $arg -le 8) {
+                $this._channel = $this.Setter('channel', $arg)
+            }
+            else {
+                "channel got: $arg, expected value from 1 to 8" | Write-Warning
+            }
+        }
+    )
+
+    hidden $_kbps = $($this | Add-Member ScriptProperty 'kbps' `
+        {
+            $this.Getter('kbps')
+        } `
+        {
+            param([int]$arg)
+            $opts = @(32, 40, 48, 56, 64, 80, 96, 112, 128, 160, 192, 224, 256, 320)
+            if ($opts.Contains($arg)) {
+                $this._kbps = $this.Setter('kbps', $arg)
+            }
+            else {
+                "kbps got: $arg, expected one of $opts" | Write-Warning
+            }
         }
     )
 
     [void] Load ([string]$filename) {
         $this.Setter('load', $filename)
     }
+
+    [void] GoTo ([string]$timestring) {
+        try {
+            if ([datetime]::ParseExact($timestring, "HH:mm:ss", $null)) {
+                $timespan = [timespan]::Parse($timestring)
+                $this.Setter("GoTo", $timespan.TotalSeconds)                
+            }
+        }
+        catch [FormatException] {
+            "Time string $timestring does not match the required format 'hh:mm:ss'" | Write-Warning
+        }
+    }
+
+    [void] FileType($format) {
+        [int]$val = 0
+        switch ($format) {
+            "wav" { $val = 1 }
+            "aiff" { $val = 2 }
+            "bwf" { $val = 3 }
+            "mp3" { $val = 100 }
+            default { "Filetype() got: $format, expected one of 'wav', 'aiff', 'bwf', 'mp3'" }
+        }
+        $this.Setter("filetype", $val)
+    }
+}
+
+class RecorderMode : IRecorder {
+    RecorderMode ([Object]$remote) : base ($remote) {
+        AddBoolMembers -PARAMS @('recbus', 'playonload', 'loop', 'multitrack')
+    }
+
+    [string] identifier () {
+        return "Recorder.Mode"
+    }
+}
+
+class RecorderArm : IRecorder {
+    [int]$index
+
+    RecorderArm ([int]$index, [Object]$remote) : base ($remote) {
+        $this.index = $index
+    }
+
+    Set ([bool]$val) {
+        $this.Setter("", $(if ($val) { 1 } else { 0 }))
+    }
+}
+
+class RecorderArmStrip : RecorderArm {
+    RecorderArmStrip ([int]$index, [Object]$remote) : base ($index, $remote) {
+    }
+
+    [string] identifier () {
+        return "Recorder.ArmStrip[$($this.index)]"
+    }
+}
+
+class RecorderArmBus : RecorderArm {
+    RecorderArmBus ([int]$index, [Object]$remote) : base ($index, $remote) {
+    }
+
+    [string] identifier () {
+        return "Recorder.ArmBus[$($this.index)]"
+    }
 }
 
 function Make_Recorder ([Object]$remote) {

lib/strip.ps1

@@ -1,5 +1,3 @@
-. $PSScriptRoot\meta.ps1
-
 class IStrip {
     [int]$index
     [Object]$remote
@@ -14,19 +12,31 @@ class IStrip {
     }
 
     [single] Getter ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $false
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter($this.Cmd($param))
     }
 
     [string] Getter_String ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $true
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
     }
 
     [void] Setter ($param, $val) {
-        Param_Set -PARAM "$($this.identifier()).$param" -Value $val
+        "$($this.Cmd($param))=$val" | Write-Debug
+        $this.remote.Setter($this.Cmd($param), $val)
+    }
+
+    [string] Cmd ($param) {
+        if ([string]::IsNullOrEmpty($param)) {
+            return $this.identifier()
+        }
+        return "$($this.identifier()).$param"
     }
 }
 
 class Strip : IStrip {
+    [Object]$levels
+
     Strip ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddBoolMembers -PARAMS @('mono', 'solo', 'mute')
         AddIntMembers -PARAMS @('limit')
@@ -35,6 +45,8 @@ class Strip : IStrip {
 
         AddChannelMembers
         AddGainlayerMembers
+
+        $this.levels = [StripLevels]::new($index, $remote)
     }
 
     [string] ToString() {
@@ -50,6 +62,52 @@ class Strip : IStrip {
     }
 }
 
+class StripLevels : IStrip {
+    [int]$init
+    [int]$offset
+
+    StripLevels ([int]$index, [Object]$remote) : base ($index, $remote) {
+        $p_in = $remote.kind.p_in
+        if ($index -lt $p_in) {
+            $this.init = $index * 2
+            $this.offset = 2            
+        }
+        else {
+            $this.init = ($p_in * 2) + (($index - $p_in) * 8)
+            $this.offset = 8
+        }
+    }
+
+    [float] Convert([float]$val) {
+        if ($val -gt 0) { 
+            return [math]::Round(20 * [math]::Log10($val), 1) 
+        } 
+        else { 
+            return -200.0 
+        }
+    }
+
+    [System.Collections.ArrayList] Getter([int]$mode) {
+        [System.Collections.ArrayList]$vals = @()
+        $this.init..$($this.init + $this.offset - 1) | ForEach-Object {
+            $vals.Add($this.Convert($(Get_Level -MODE $mode -INDEX $_)))
+        }
+        return $vals
+    }
+
+    [System.Collections.ArrayList] PreFader() {
+        return $this.Getter(0)
+    }
+
+    [System.Collections.ArrayList] PostFader() {
+        return $this.Getter(1)
+    }
+
+    [System.Collections.ArrayList] PostMute() {
+        return $this.Getter(2)
+    }
+}
+
 class PhysicalStrip : Strip {
     [Object]$comp
     [Object]$gate
@@ -62,16 +120,16 @@ class PhysicalStrip : Strip {
         AddFloatMembers -PARAMS @('reverb', 'delay', 'fx1', 'fx2')
         AddBoolMembers -PARAMS @('postreverb', 'postdelay', 'postfx1', 'postfx2')
 
-        $this.comp = [Comp]::new($index, $remote)
+        $this.comp = [StripComp]::new($index, $remote)
-        $this.gate = [Gate]::new($index, $remote)
+        $this.gate = [StripGate]::new($index, $remote)
-        $this.denoiser = [Denoiser]::new($index, $remote)
+        $this.denoiser = [StripDenoiser]::new($index, $remote)
-        $this.eq = [Eq]::new($index, $remote)
+        $this.eq = [StripEq]::new($index, $remote)
-        $this.device = [Device]::new($index, $remote)
+        $this.device = [StripDevice]::new($index, $remote)
     }
 }
 
-class Comp : IStrip {
+class StripComp : IStrip {
-    Comp ([int]$index, [Object]$remote) : base ($index, $remote) {
+    StripComp ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddFloatMembers -PARAMS @('gainin', 'ratio', 'threshold', 'attack', 'release', 'knee', 'gainout')
         AddBoolMembers -PARAMS @('makeup')
     }
@@ -91,8 +149,8 @@ class Comp : IStrip {
     )
 }
 
-class Gate : IStrip {
+class StripGate : IStrip {
-    Gate ([int]$index, [Object]$remote) : base ($index, $remote) {
+    StripGate ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddFloatMembers -PARAMS @('threshold', 'damping', 'bpsidechain', 'attack', 'hold', 'release')
     }
 
@@ -111,8 +169,8 @@ class Gate : IStrip {
     )
 }
 
-class Denoiser : IStrip {
+class StripDenoiser : IStrip {
-    Denoiser ([int]$index, [Object]$remote) : base ($index, $remote) {
+    StripDenoiser ([int]$index, [Object]$remote) : base ($index, $remote) {
     }
 
     [string] identifier () {
@@ -130,8 +188,8 @@ class Denoiser : IStrip {
     )
 }
 
-class Eq : IStrip {
+class StripEq : IStrip {
-    Eq ([int]$index, [Object]$remote) : base ($index, $remote) {
+    StripEq ([int]$index, [Object]$remote) : base ($index, $remote) {
         AddBoolMembers -PARAMS @('on', 'ab')
     }
 
@@ -140,15 +198,15 @@ class Eq : IStrip {
     }
 }
 
-class Device : IStrip {
+class StripDevice : IStrip {
-    Device ([int]$index, [Object]$remote) : base ($index, $remote) {
+    StripDevice ([int]$index, [Object]$remote) : base ($index, $remote) {
     }
 
     [string] identifier () {
         return "Strip[" + $this.index + "].Device"
     }
 
-    hidden $_device = $($this | Add-Member ScriptProperty 'device' `
+    hidden $_name = $($this | Add-Member ScriptProperty 'name' `
         {
             $this.Getter_String('name')
         } `

lib/vban.ps1

@@ -1,9 +1,11 @@
 class IVban {
     [int32]$index
+    [Object]$remote
     [string]$direction
 
-    IVban ([int]$index, [string]$direction) {
+    IVban ([int]$index, [Object]$remote, [string]$direction) {
         $this.index = $index
+        $this.remote = $remote
         $this.direction = $direction
     }
 
@@ -11,25 +13,34 @@ class IVban {
         return "vban." + $this.direction + "stream[" + $this.index + "]"
     }
 
-    [string] ToString() {
-        return $this.GetType().Name + $this.index
-    }
-
     [single] Getter ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $false
+        return $this.remote.Getter($this.Cmd($param))
     }
 
     [string] Getter_String ($param) {
-        return Param_Get -PARAM "$($this.identifier()).$param" -IS_STRING $true
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
     }
 
     [void] Setter ($param, $val) {
-        Param_Set -PARAM "$($this.identifier()).$param" -Value $val
+        "$($this.Cmd($param))=$val" | Write-Debug
+        $this.remote.Setter($this.Cmd($param), $val)
+    }
+
+    [string] Cmd ($param) {
+        if ([string]::IsNullOrEmpty($param)) {
+            return $this.identifier()
+        }
+        return "$($this.identifier()).$param"
     }
 }
 
 class Vban : IVban {
-    Vban ([int]$index, [string]$direction) : base ($index, $direction) {
+    Vban ([int]$index, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
+    }
+
+    [string] ToString() {
+        return $this.GetType().Name + $this.index
     }
 
     hidden $_on = $($this | Add-Member ScriptProperty 'on' `
@@ -68,7 +79,7 @@ class Vban : IVban {
         } `
         {
             param([string]$arg)
-            if ($arg -in 1024..65535) {
+            if ($arg -ge 1024 -and $arg -le 65535) {
                 $this._port = $this.Setter('port', $arg)
             }
             else {
@@ -104,7 +115,7 @@ class Vban : IVban {
             param([int]$arg)
             if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
             else {
-                if ($arg -in 1..8) {
+                if ($arg -ge 1 -and $arg -le 8) {
                     $this._channel = $this.Setter('channel', $arg)
                 }
                 else {
@@ -142,7 +153,7 @@ class Vban : IVban {
             param([int]$arg)
             if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
             else {
-                if ($arg -in 0..4) {
+                if ($arg -ge 0 -and $arg -le 4) {
                     $this._quality = $this.Setter('quality', $arg)
                 }
                 else {
@@ -160,7 +171,7 @@ class Vban : IVban {
             param([int]$arg)
             if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
             else {
-                if ($arg -in 0..8) {
+                if ($arg -ge 0 -and $arg -le 8) {
                     $this._route = $this.Setter('route', $arg)
                 }
                 else {
@@ -173,13 +184,13 @@ class Vban : IVban {
 
 
 class VbanInstream : Vban {
-    VbanInstream ([int]$index, [string]$direction) : base ($index, $direction) {
+    VbanInstream ([int]$index, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
     }
 }
 
 
 class VbanOutstream : Vban {
-    VbanOutstream ([int]$index, [string]$direction) : base ($index, $direction) {
+    VbanOutstream ([int]$index, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
     }
 }
 
@@ -189,10 +200,10 @@ function Make_Vban ([Object]$remote) {
     [System.Collections.ArrayList]$outstream = @()
 
     0..$($remote.kind.vban_in - 1) | ForEach-Object {
-        [void]$instream.Add([VbanInstream]::new($_, "in"))
+        [void]$instream.Add([VbanInstream]::new($_, $remote, "in"))
     }
     0..$($remote.kind.vban_out - 1) | ForEach-Object {
-        [void]$outstream.Add([VbanOutstream]::new($_, "out"))
+        [void]$outstream.Add([VbanOutstream]::new($_, $remote, "out"))
     }
 
     $CustomObject = [pscustomobject]@{

tests/pre-commit.ps1

@@ -34,6 +34,7 @@ Function ParseLog {
 function main() {
     try {
         $vmr = Connect-Voicemeeter -Kind $kind
+        $vmr.command.RunMacrobuttons()  # ensure macrobuttons is running before we begin
         Write-Host "Running tests for $vmr"
 
         # test boundaries by kind
@@ -72,5 +73,4 @@ function main() {
 }
 
 
-
+main
-if ($MyInvocation.InvocationName -ne '.') { main }