add Taskfile

upd tasks in launch.json

add with Task to Run tests in README

.gitignore

@@ -1,7 +1,6 @@
-# quick test
-quick.ps1
-
 lib/*.psd1
 **/*.log
 
 config.psd1
+
+test-*.ps1

.vscode/launch.json

@@ -0,0 +1,59 @@
+{
+    // 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\"",
+                "-Verbose",
+                "-Debug"
+            ],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Launch NextBus Example",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}/examples/nextbus",
+            "script": "${workspaceFolder}/examples/nextbus/GoTo-NextBus.ps1",
+            "args": [
+                "-Verbose",
+                "-Debug"
+            ],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Launch OBS Example",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}/examples/obs",
+            "script": "${workspaceFolder}/examples/obs/Vm-Obs-Sync.ps1",
+            "args": [
+                "-Verbose",
+                "-Debug"
+            ],
+            "createTemporaryIntegratedConsole": true
+        },
+        {
+            "name": "PowerShell: Run Pester Tests",
+            "type": "PowerShell",
+            "request": "launch",
+            "cwd": "${workspaceRoot}",
+            "script": "${workspaceFolder}/tests/run.ps1",
+            "args": [],
+            "createTemporaryIntegratedConsole": true
+        },
+    ]
+}

CHANGELOG.md

@@ -9,8 +9,79 @@ 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
+- [ ]
--   [ ] Implement comp/gate parameters introduced in v3.0.2.8 of the api.
+
+## [3.3.0] - 2024-06-29
+
+### Added
+
+- Add a timeout (2s) to the login function. If timeout exceeded a VMRemoteError is thrown.
+
+### Changed
+
+- Launch x64 bit GUIs for all kinds if on 64 bit system.
+
+## [3.2.0] - 2023-08-17
+
+### Added
+
+- Debug statements added to Getters, Setters in higher classes.
+- RunVoicemeeter function added to base.ps1. Accepts kind name as parameter.
+- Errors section to README.
+
+### Fixed
+
+- All CAPIErrors are now exposed to the consumer.
+  - The function name and error code can be retrieved using [CAPIError].function and [CAPIError].code
+- Set_By_Script now throws [VMRemoteError] if script length exceeds 48kB.
+- parameter range checks in Vban class.
+
+## [3.1.0] - 2023-08-15
+
+### 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] - 2023-08-09
+
+v3 introduces some breaking changes. They are as follows:
+
+- Strip[i].comp now references [Comp] class. (see README for details on settings strip.comp parameters)
+- Strip[i].gate now references [Gate] class. (see README for details on settings strip.gate parameters)
+- Strip[i].eq now references [Eq] class. (see README for details on settings strip.eq parameters)
+- Strip[i].device now references [Device] class. (see README for details on settings strip.device parameters)
+
+- Bus[i].eq now references [Eq] class. (see README for details on settings bus.eq parameters)
+- Bus[i].mode now implemented as its own class [Mode]. (see README for details on settings bus.mode parameters)
+
+There are other changes but they should not be breaking.
+
+### Changed
+
+- meta functions refactored, they now use identifier() functions.
+- OBS example reworked, now using obs-powershell module.
+- Rethrow LoginError for unknown kind exceptions, let the consumer handle it from there.
+
+### Added
+
+- Entry/exit points Connect-Voicemeeter, Disconnect-Voicemeeter added to module.
+- Comp, Gate, Denoiser and Eq classes added to PhysicalStrip
+- Device class added to PhysicalStrip/PhysicalBus
+- AppGain(), AppMute() methods added to VirtualStrip
+- eq added to Bus
+- interface classes IBus, IStrip and IVban added. getters/setters moved into interface classes.
+- RemoteBasic, RemoteBanana and RemotePotato subclasses added.
+
+### Fixed
+
+- Button getters return boolean values.
+
+### Removed
+
+- Bus[i].mode\_{param} members removed. Replaced with Bus[i].mode.{param}
 
 ## [2.5.0] - 2022-10-27
 

README.md

@@ -8,9 +8,9 @@ For past/future changes to this project refer to: [CHANGELOG](CHANGELOG.md)
 
 ## Tested against
 
--   Basic 1.0.8.8
+- Basic 1.1.1.1
--   Banana 2.0.6.8
+- Banana 2.1.1.1
--   Potato 3.0.2.8
+- Potato 3.1.1.1
 
 ## Requirements
 
@@ -79,6 +79,21 @@ Voicemeeter factory function can be:
 - Get-RemoteBanana
 - Get-RemotePotato
 
+Added in `v3` you may also use the following entry/exit points:
+
+- Connect-Voicemeeter
+- Disconnect-Voicemeeter
+
+`Connect-Voicemeeter` takes a single parameter `Kind`.
+
+for example:
+
+```powershell
+$vmr = Connect-Voicemeeter -Kind "potato"
+...
+Disconnect-Voicemeeter
+```
+
 #### `Through the Shell`
 
 One liners should be run through a subshell, you may pipe the Remote object to a script block, for example:
@@ -109,11 +124,7 @@ The following strip commands are available:
 - B1-B3: bool
 - limit: int, from -40 to 12
 - gain: float, from -60.0 to 12.0
--   comp: float, from 0.0 to 10.0
--   gate: float, from 0.0 to 10.0
 - label: string
--   device: string
--   sr: int
 - reverb: float, from 0.0 to 10.0
 - delay: float, from 0.0 to 10.0
 - fx1: float, from 0.0 to 10.0
@@ -124,15 +135,15 @@ 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:
 
-```
+```powershell
 $vmr.strip[5].gainlayer1 = -8.3
 ```
 
@@ -142,35 +153,182 @@ gainlayers defined for Potato version only.
 
 mc, k for virtual strips only.
 
+#### comp
+
+The following strip.comp commands are available:
+
+- knob: float, from 0.0 to 10.0
+- gainin: float, from -24.0 to 24.0
+- ratio: float, from 1.0 to 8.0
+- threshold: float, from -40.0 to -3.0
+- attack: float, from 0.0 to 200.0
+- release: float, from 0.0 to 5000.0
+- knee: float, 0.0 to 1.0
+- gainout: float, from -24.0 to 24.0
+- makeup: bool
+
+for example:
+
+```powershell
+$vmr.strip[3].comp.attack = 8.5
+```
+
+#### gate
+
+The following strip.gate commands are available:
+
+- knob: float, from 0.0 to 10.0
+- threshold: float, from -60.0 to -10.0
+- damping: float, from -60.0 to -10.0
+- bpsidechain: int, from 100 to 4000
+- attack: float, from 0.0 to 1000.0
+- hold: float, from 0.0 to 5000.0
+- release: float, from 0.0 to 5000.0
+
+for example:
+
+```powershell
+$vmr.strip[3].gate.threshold = -40.5
+```
+
+#### denoiser
+
+The following strip.denoiser commands are available:
+
+- knob: float, from 0.0 to 10.0
+
+for example:
+
+```powershell
+$vmr.strip[3].denoiser.knob = 5
+```
+
+#### AppGain | AppMute
+
+- `AppGain(amount, gain)` : string, float
+- `AppMute(amount, mutestate)` : string, bool
+
+for example:
+
+```powershell
+$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:
 
 - mute: bool
 - mono: bool
--   eq: bool
--   eq_ab: bool
 - limit: int, from -40 to 12
 - gain: float, from -60.0 to 12.0
 - label: string
--   device: string
--   sr: int
 - returnreverb: float, from 0.0 to 10.0
 - returndelay: float, from 0.0 to 10.0
 - returnfx1: float, from 0.0 to 10.0
 - returnfx2: float, from 0.0 to 10.0
--   mode\_: bool, any of the following:
-    @('normal', 'amix', 'bmix', 'repeat', 'composite', 'tvmix', 'upmix21',
-    'upmix41', 'upmix61', 'centeronly', 'lfeonly', 'rearonly')
 
 for example:
 
+```powershell
+$vmr.bus[3].returnreverb = 5.7
 ```
-$vmr.bus[3].mode_repeat = $true
+
+#### modes
+
+The following bus.mode members are available:
+
+- normal: bool
+- amix: bool
+- bmix: bool
+- repeat: bool
+- composite: bool
+- tvmix: bool
+- upmix21: bool
+- upmix41: bool
+- upmix61: bool
+- centeronly: bool
+- lfeonly: bool
+- rearonly: bool
+
+The following bus.mode commands are available:
+
+- Get(): returns the current bus mode.
+
+for example:
+
+```powershell
+$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
+
+The following strip.device | bus.device commands are available:
+
+- name: string
+- sr: int
+- wdm: string
+- ks: string
+- mme: string
+- asio: string
+
+for example:
+
+```powershell
+$vmr.strip[0].device.wdm = "Mic|Line|Instrument 1 (Audient EVO4)"
+$vmr.bus[0].device.name
+```
+
+name, sr are defined as read only.
+wdm, ks, mme, asio are defined as write only.
+
+#### eq
+
+The following strip.eq | bus.eq commands are available:
+
+- on: bool
+- ab: bool
+
+for example:
+
+```powershell
+$vmr.strip[0].eq.on = $true
+$vmr.bus[0].eq.ab = $false
+```
+
+#### FadeTo | FadeBy
+
 - `FadeTo(amount, time)` : float, int
 - `FadeBy(amount, time)` : float, int
 
@@ -178,7 +336,7 @@ Modify gain to or by the selected amount in db over a time interval in ms.
 
 for example:
 
-```
+```powershell
 $vmr.strip[3].FadeTo(-18.7, 1000)
 $vmr.bus[0].FadeBy(-10, 500)
 ```
@@ -191,7 +349,7 @@ Three modes defined: state, stateonly and trigger.
 - Stateonly does not run associated scripts
 - Index range (0, 69)
 
-```
+```powershell
 $vmr.button[3].state = $true
 
 $vmr.button[4].stateonly = $false
@@ -201,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.
@@ -232,18 +390,20 @@ $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
+- RunMacrobuttons(): Launches the macrobuttons app
+- CloseMacrobuttons(): Closes the macrobuttons app
 
 example:
 
@@ -253,11 +413,13 @@ $vmr.command.show
 $vmr.command.lock = $true
 
 $vmr.command.Load("path/to/filename.xml")
+
+$vmr.command.RunMacrobuttons()
 ```
 
 ### Recorder
 
-The following methods are available:
+The following commands are available:
 
 - play
 - stop
@@ -265,19 +427,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
@@ -350,19 +546,28 @@ Access to lower level polling functions are provided with these functions:
 - `$vmr.PDirty`: Returns true if a parameter has been updated.
 - `$vmr.MDirty`: Returns true if a macrobutton has been updated.
 
+### Errors
+
+- `VMRemoteError`: Base custom error class.
+- `LoginError`: Raised when a login error occurs.
+- `CAPIError`: Raised when a C-API function returns an error code.
+  - The following class properties are available:
+    - `function`: The name of the C-API function that returned the error code.
+    - `code`: The error code.
+
 ### Run tests
 
-Run tests using .\tests\pre-commit.ps1 which accepts the following parameters:
+Parameters:
 
 - `kind`: Run tests of this kind
 - `tag`: Run tests tagged with this marker (currently `higher` or `lower`)
--   `num`: Run this number of tests
--   `log`: Write summary log file
 
-Run tests from repository root in a subshell and write logs, like so:
+*with Task*
 
-`powershell .\tests\pre-commit.ps1 -k "potato" -t "higher" -log`
+```console
+task test -- -t "higher" -k "banana"
+```
 
 ### Official Documentation
 
--   [Voicemeeter Remote C API](https://github.com/onyx-and-iris/Voicemeeter-SDK/blob/update-docs/VoicemeeterRemoteAPI.pdf)
+- [Voicemeeter Remote C API](https://github.com/onyx-and-iris/Voicemeeter-SDK/blob/main/VoicemeeterRemoteAPI.pdf)

Taskfile.yaml

@@ -0,0 +1,11 @@
+version: '3'
+
+tasks:
+  test:
+    desc: 'Run tests'
+    preconditions:
+      - sh: 'pwsh -c "if ([System.Version](Get-InstalledModule Pester).Version.ToString() -gt [System.Version]"5.7.0") { exit 0 } else { exit 1 }"'
+        msg: 'Pester version must be greater than 5.7.0'
+    cmds:
+      - echo "Running tests..."
+      - pwsh -c "tests\run.ps1 {{.CLI_ARGS}}"

examples/cli/CLI.ps1

@@ -1,11 +1,11 @@
+[cmdletbinding()]
 param(
     [switch]$interactive,
-    [switch]$output,
+    [String]$kind = 'banana',
-    [String]$kind="banana",
     [String[]]$script = @()
 )
 
-Import-Module Voicemeeter
+Import-Module ..\..\lib\Voicemeeter.psm1
 
 function get-value {
     param([object]$vmr, [string]$line)
@@ -20,20 +20,20 @@ function get-value {
 
 function msgHandler {
     param([object]$vmr, [string]$line)
-    $line + " passed to handler" | Write-Debug
+    $line + ' passed to handler' | Write-Debug
-    if ($line[0] -eq "!") {
+    if ($line[0] -eq '!') {
-        if ($output) { "Toggling " + $line.substring(1) | Write-Host }
+        'Toggling ' + $line.substring(1) | Write-Debug
         $retval = get-value -vmr $vmr -line $line.substring(1)
         $vmr.Setter($line.substring(1), 1 - $retval)
     }
-    elseif ($line.Contains("=")) { 
+    elseif ($line.Contains('=')) { 
-        if ($output) { "Setting $line" | Write-Host }
+        "Setting $line" | Write-Debug
         $vmr.SendText($line)
     }
     else {
-        if ($output) { "Getting $line" | Write-Host }
+        "Getting $line" | Write-Debug
         $retval = get-value -vmr $vmr -line $line
-        $line + " = " + $retval | Write-Host
+        $line + ' = ' + $retval | Write-Host
     }
 }
 
@@ -47,14 +47,10 @@ function main {
     [object]$vmr
 
     try {
-        switch ($kind) {
+        $vmr = Connect-Voicemeeter -Kind $kind
-            "basic" { $vmr = Get-RemoteBasic }
-            "banana" { $vmr = Get-RemoteBanana }
-            "potato" { $vmr = Get-RemotePotato }
-        }
     
         if ($interactive) {
-            "Press <Enter> to exit" | Write-Host
+            'Press <Enter> to exit' | Write-Host
             read-hostuntilempty -vmr $vmr
             return
         }
@@ -62,7 +58,7 @@ function main {
             msgHandler -vmr $vmr -line $_
         }
     }
-    finally { $vmr.Logout() }
+    finally { Disconnect-Voicemeeter }
 }
 
-if ($MyInvocation.InvocationName -ne '.') { main }
+main

examples/nextbus/GoTo-NextBus.ps1

@@ -7,26 +7,30 @@
     Credits go to @bobsupercow
 #>
 
-Import-Module Voicemeeter
+[cmdletbinding()]
+param()
+
+Import-Module ..\..\lib\Voicemeeter.psm1
 
 try {
-    $vmr = Get-RemotePotato
+    $vmr = Connect-Voicemeeter -Kind 'potato'
 
     $buses = @($vmr.bus[1], $vmr.bus[2], $vmr.bus[4], $vmr.bus[6])
+    "Buses in selection: $($buses)"
     $unmutedIndex = $null
 
     # 1)
-    $buses | ForEach-Object {
+    'Cycling through bus selection to check for first unmuted Bus...' | Write-Host
-        $bus = $_
+    foreach ($bus in $buses) {
         # 2)
         if (-not $bus.mute) {
-            "bus " + $bus.index  + " is unmuted... muting it" | Write-Host
+            "Bus $($bus.index) is unmuted... muting it" | Write-Host
             $unmutedIndex = $buses.IndexOf($bus)
             $bus.mute = $true
 
             # 3)
             if ($buses[++$unmutedIndex]) {
-                "unmuting bus " + $buses[$unmutedIndex].index | Write-Host
+                "Unmuting Bus $($buses[$unmutedIndex].index)" | Write-Host
                 $buses[$unmutedIndex].mute = $false
                 break
             }
@@ -34,7 +38,10 @@ try {
         }
     }
     # 4)
-    if ($null -eq $unmutedIndex) { $buses[0].mute = $false }
+    if ($null -eq $unmutedIndex) { 
-    "unmuting bus " + $buses[0].index | Write-Host
+        $buses[0].mute = $false 
+        "Unmuting Bus $($buses[0].index)" | Write-Host
     }
-finally { $vmr.Logout() }
+    
+}
+finally { Disconnect-Voicemeeter }

examples/obs/README.md

@@ -5,16 +5,17 @@ Demonstrates how to sync Voicemeeter states with OBS scene switches.
 ## Requirements
 
 -   [OBS Studio 28+](https://obsproject.com/)
--   [OBSWebSocket for Powershell](https://github.com/onyx-and-iris/OBSWebSocket-Powershell)
+-   [OBS-Powershell](https://github.com/StartAutomating/obs-powershell)
 
 ## Use
 
 This example assumes the following:
+
 -   OBS connection info saved in `config.psd1`, placed next to `Vm-Obs-Sync.ps1`:
 
 ```psd1
 @{
-    hostname = "localhost"
+    host = "localhost"
     port     = 4455
     password = "mystrongpassword"
 }
@@ -23,3 +24,5 @@ This example assumes the following:
 -   OBS scenes named `START`, `BRB`, `END` and `LIVE`
 
 Simply run the script and change current OBS scene.
+
+Closing OBS will end the script.

examples/obs/Vm-Obs-Sync.ps1

@@ -1,50 +1,68 @@
-Import-Module Voicemeeter
+[cmdletbinding()]
-Import-Module OBSWebSocket
+param()
 
-$VerbosePreference = "Continue"
+Import-Module ..\..\lib\Voicemeeter.psm1
+Import-Module obs-powershell
 
-$info = @{
+function CurrentProgramSceneChanged {
-    START = "Toggling Strip 0 mute"
+    param([System.Object]$data)
-    BRB = "Setting Strip 0 gain to -8.3"
+    Write-Host 'Switched to scene', $data.sceneName
-    END = "Setting Strip 0 mono to `$false"
+
-    LIVE = "Setting Strip 0 color_x to 0.3"
+    switch ($data.sceneName) {
+        'START' { 
+            $vmr.strip[0].mute = !$vmr.strip[0].mute
+        }
+        'BRB' { 
+            $vmr.strip[0].gain = -8.3
+        }
+        'END' { 
+            $vmr.strip[0].mono = $true
+        }
+        'LIVE' { 
+            $vmr.strip[0].color_x = 0.3
+        }
+        default { 'Expected START, BRB, END or LIVE scene' | Write-Warning; return }
+    }
 }
 
-function CurrentProgramSceneChanged($data) {
+function ExitStarted {
-    "Switched to scene " + $data.sceneName | Write-Host
+    param([System.Object]$data)
-    
+    'OBS shutdown has begun!' | Write-Host
-    switch ($data.SceneName) {
+    break
-        "START" { $vmr.strip[0].mute = !$vmr.strip[0].mute }
+}
-        "BRB" { $vmr.strip[0].gain = -8.3 }
+
-        "END" { $vmr.strip[0].mono = $true }
+function eventHandler($data) {
-        "LIVE" { $vmr.strip[0].color_x = 0.3 }
+    if (Get-Command $data.eventType -ErrorAction SilentlyContinue) {
-        default { "Expected START, BRB, END or LIVE scene" | Write-Warning; return }
+        & $data.eventType -data $data.eventData
     }
-    $info[$data.SceneName] | Write-Host
 }
 
 function ConnFromFile {
-    $configpath = Join-Path $PSScriptRoot "config.psd1"
+    $configpath = Join-Path $PSScriptRoot 'config.psd1'
     return Import-PowerShellDataFile -Path $configpath
 }
 
 function main {
-    try {
+    $vmr = Connect-Voicemeeter -Kind 'basic'
-        $vmr = Get-RemoteBasic
+
     $conn = ConnFromFile
-        $r_client = Get-OBSRequest -hostname $conn.hostname -port $conn.port -pass $conn.password
+    $job = Watch-OBS -WebSocketURI "ws://$($conn.host):$($conn.port)" -WebSocketToken $conn.password
-        $resp = $r_client.getVersion()
-        "obs version:" + $resp.obsVersion | Write-Host
-        "websocket version:" + $resp.obsWebSocketVersion | Write-Host
 
-        $e_client = Get-OBSEvent -hostname $conn.hostname -port $conn.port -pass $conn.password
+    try {
-        $callbacks = @("CurrentProgramSceneChanged", ${function:CurrentProgramSceneChanged})
+        while ($true) {
-        $e_client.Register($callbacks)
+            Receive-Job -Job $job | ForEach-Object {
-    } finally { 
+                $data = $_.MessageData
-        $r_client.TearDown()
+
-        $e_client.TearDown()
+                if ($data.op -eq 5) {
-        $vmr.Logout()
+                    eventHandler($data.d)
+                }
+            }
+        }
+    }
+    finally { 
+        Disconnect-OBS 
+        Disconnect-Voicemeeter
     }    
 }
 
-if ($MyInvocation.InvocationName -ne '.') { main }
+main

examples/streamdeck/README.md

@@ -0,0 +1,125 @@
+# About
+
+Thanks to the guys at [Start Automating](https://startautomating.com/) it's possible to use this module straight from your Stream Deck.
+
+## Requirements
+
+### ScriptDeck
+
+*Windows Powershell*
+
+-   [Windows ScriptDeck](https://marketplace.elgato.com/product/windows-scriptdeck-857f01dd-8fd4-44d5-8ec7-67ac850b21d3)
+
+*Powershell core*
+
+-   [ScriptDeck](https://marketplace.elgato.com/product/scriptdeck-927e59aa-b42d-4da7-84cc-8c78f4dd7e18)
+
+Note, even though one of them is named Windows they both work on Windows for different powershell versions, see [this issue](https://github.com/StartAutomating/ScriptDeck/issues/120)
+
+### Voicemeeter API Powershell
+
+-   Install it as a module, see [Installation](https://github.com/onyx-and-iris/voicemeeter-api-powershell?tab=readme-ov-file#installation)
+
+## How
+
+Once ScriptDeck is installed create a button using *Powershell Script*, then:
+
+### On one button
+
+Due to the design of Voicemeeter's API you may only login/logout once per session so in order to program multiple buttons you must do the following for just ONE button (it can be any button).
+
+#### Button 1
+
+*When Loaded*
+
+```powershell
+$global:vmr = Connect-Voicemeeter -Kind "banana"
+```
+
+*When Unloaded*
+
+```powershell
+Disconnect-Voicemeeter
+```
+
+*When Pressed*
+
+```powershell
+if ($vmr.strip[0].mute) {
+$vmr.bus[0].mute=1
+$vmr.bus[1].mute=1
+} else {
+$vmr.bus[0].mute=0
+$vmr.bus[1].mute=0
+}
+```
+
+### Other buttons
+
+Then your other buttons can have any scripts using the `$vmr` object:
+
+#### Button 2
+
+*When Pressed*
+
+```powershell
+$vmr.strip[1].mute=1
+$vmr.strip[2].mute=1
+
+if (-not $vmr.strip[0].mute) {
+$vmr.strip[0].mute=1
+}
+```
+
+#### Button 3
+
+*When Pressed*
+
+```powershell
+$vmr.strip[0].mute=$(-not $vmr.strip[0].mute)
+$vmr.strip[1].mute=$(-not $vmr.strip[1].mute)
+$vmr.strip[2].mute=$(-not $vmr.strip[2].mute)
+```
+
+---
+
+Then let's say you have zillions of buttons you want to program, for each Stream Deck window configure ONE button as described above and the other buttons of the same window as described above.
+
+If this explanation is unclear or you'd like me to add some screenshots just ask.
+
+## Leveraging Powershell
+
+Since we're now working with Powershell we can do some useful things, for example, lets create a button that interacts with Voicemeeter and OBS:
+
+First make sure you've installed [obs-powershell](https://github.com/StartAutomating/obs-powershell).
+
+Now let's create a button that only toggles some strip mutes if the current OBS scene is "LIVE".
+
+#### Button
+
+*When Loaded*
+
+```powershell
+$global:vmr = Connect-Voicemeeter -Kind "banana"
+
+Connect-OBS -WebSocketToken <websocket token>
+```
+
+*When Unloaded*
+
+```powershell
+Disconnect-Voicemeeter
+Disconnect-OBS
+```
+
+*When Pressed*
+
+```powershell
+$currentScene = $(Get-OBSCurrentProgramScene | Select-Object -ExpandProperty currentProgramSceneName)
+
+if ($currentScene -eq "LIVE") {
+$vmr.strip[0].mute=$(-not $vmr.strip[0].mute)
+$vmr.strip[1].mute=$(-not $vmr.strip[1].mute)
+$vmr.strip[2].mute=$(-not $vmr.strip[2].mute)
+}
+```

lib/Voicemeeter.psm1

@@ -1,38 +1,33 @@
-. $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
-    [System.Collections.ArrayList]$strip
-    [System.Collections.ArrayList]$bus
-    [System.Collections.ArrayList]$button
-    [PSCustomObject]$vban
-    [Object]$command
-    [Object]$recorder
     [Object]$profiles
 
-    # Constructor
+    Remote ([String]$kindId) {
-    Remote ([String]$kind_id) {
+        $this.vmpath = Setup_DLL
-        $this.kind = GetKind($kind_id)
+        $this.kind = GetKind($kindId)
-        $this.Setup()
-    }
-
-    [void] Setup() {
-        if (!(Setup_DLL)) {
-            Exit
-        }
-        Login -KIND $this.kind.name
         $this.profiles = Get_Profiles($this.kind.name)
-        $this.strip = Make_Strips($this)
-        $this.bus = Make_Buses($this)
-        $this.button = Make_Buttons
-        $this.vban = Make_Vban($this)
-        $this.command = Make_Command
-        $this.recorder = Make_Recorder($this)
     }
 
     [string] ToString() {
-        return "Voicemeeter " + $this.kind.name.substring(0, 1).toupper() + $this.kind.name.substring(1)
+        return 'Voicemeeter ' + $this.kind.name.substring(0, 1).toupper() + $this.kind.name.substring(1)
+    }
+
+    [Remote] Login() {
+        Login -kindId $this.kind.name
+        return $this
     }
 
     [void] Logout() {
@@ -44,7 +39,7 @@ class Remote {
     }
 
     [String] GetVersion() {
-        return Version
+        return VmVersion
     }
 
     [void] Set_Profile([String]$config) {
@@ -76,16 +71,90 @@ class Remote {
     [void] MDirty() { M_Dirty }
 }
 
+class RemoteBasic : Remote {
+    [System.Collections.ArrayList]$strip
+    [System.Collections.ArrayList]$bus
+    [System.Collections.ArrayList]$button
+    [PSCustomObject]$vban
+    [Object]$command
+
+    RemoteBasic () : base ('basic') {
+        $this.strip = Make_Strips($this)
+        $this.bus = Make_Buses($this)
+        $this.button = Make_Buttons
+        $this.vban = Make_Vban($this)
+        $this.command = Make_Command($this)
+    }
+}
+
+class RemoteBanana : Remote {
+    [System.Collections.ArrayList]$strip
+    [System.Collections.ArrayList]$bus
+    [System.Collections.ArrayList]$button
+    [PSCustomObject]$vban
+    [Object]$command
+    [Object]$recorder
+
+    RemoteBanana () : base ('banana') {
+        $this.strip = Make_Strips($this)
+        $this.bus = Make_Buses($this)
+        $this.button = Make_Buttons
+        $this.vban = Make_Vban($this)
+        $this.command = Make_Command($this)
+        $this.recorder = Make_Recorder($this)
+    }
+}
+
+class RemotePotato : Remote {
+    [System.Collections.ArrayList]$strip
+    [System.Collections.ArrayList]$bus
+    [System.Collections.ArrayList]$button
+    [PSCustomObject]$vban
+    [Object]$command
+    [Object]$recorder
+
+    RemotePotato () : base ('potato') {
+        $this.strip = Make_Strips($this)
+        $this.bus = Make_Buses($this)
+        $this.button = Make_Buttons
+        $this.vban = Make_Vban($this)
+        $this.command = Make_Command($this)
+        $this.recorder = Make_Recorder($this)
+    }
+}
+
 Function Get-RemoteBasic {
-    return [Remote]::new('basic')
+    [RemoteBasic]::new().Login()
 }
 
 Function Get-RemoteBanana {
-    return [Remote]::new('banana')
+    [RemoteBanana]::new().Login()
 }
 
 Function Get-RemotePotato {
-    return [Remote]::new('potato')
+    [RemotePotato]::new().Login()
 }
 
-Export-ModuleMember -Function Get-RemoteBasic, Get-RemoteBanana, Get-RemotePotato
+Function Connect-Voicemeeter {
+    param([String]$Kind)
+    switch ($Kind) {
+        'basic' { 
+            return Get-RemoteBasic
+        }
+        'banana' { 
+            return Get-RemoteBanana
+        }
+        'potato' { 
+            return Get-RemotePotato
+        }
+        default { 
+            throw [LoginError]::new("Unknown Voicemeeter kind `"$Kind`"")
+        }
+    }         
+}
+
+Function Disconnect-Voicemeeter {
+    Logout
+}
+
+Export-ModuleMember -Function Get-RemoteBasic, Get-RemoteBanana, Get-RemotePotato, Connect-Voicemeeter, Disconnect-Voicemeeter

lib/base.ps1

@@ -1,86 +1,108 @@
 . $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(
-        [string]$KIND = $null
+        [string]$kindId
     )
-    try {
     $retval = [int][Voicemeeter.Remote]::VBVMR_Login()
-        if (-not $retval) { "LOGGED IN" | Write-Verbose }
+    if ($retval -notin @(0, 1, -2)) {
-        elseif ($retval -eq 1) {
+        throw [CAPIError]::new($retval, 'VBVMR_Login')
-            "VM NOT RUNNING" | Write-Verbose
-            New-Variable -Name vm_exe -Value 0
-
-            switch ($KIND) {
-                'basic' { $vm_exe = 1; break }
-                'banana' { $vm_exe = 2; break }
-                'potato' {
-                    if ([Environment]::Is64BitOperatingSystem) {
-                        $vm_exe = 6
     }
-                    else { $vm_exe = 3 }
+
+    switch ($retval) {
+        1 {
+            'Voicemeeter Engine running but GUI not launched. Launching GUI now.' | Write-Verbose
+            RunVoicemeeter -kindId $kindId
+        }
+        -2 {
+            throw [LoginError]::new('Login may only be called once per session.')
+        }
+    }
+
+    $timeout = New-TimeSpan -Seconds 2
+    $sw = [diagnostics.stopwatch]::StartNew()
+    $exception = $null
+    do {
+        Start-Sleep -m 100
+        try {
+            'Successfully logged into Voicemeeter [' + $(VmType).ToUpper() + '] Version ' + $(VmVersion) | Write-Verbose
+            $exception = $null
             break
         }
-                default { throw [LoginError]::new('Unknown Voicemeeter type') }
+        catch [CAPIError] {
+            $exception = $_
+            $exception | Write-Debug
         }
+    } while ($sw.elapsed -lt $timeout)
 
-            $retval = [int][Voicemeeter.Remote]::VBVMR_RunVoicemeeter([int64]$vm_exe)
+    if ($null -ne $exception) {
-            if (-not $retval) { "STARTING VOICEMEETER" | Write-Verbose }
+        throw [VMRemoteError]::new('Timeout logging into the API.')
-            else { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
-            Start-Sleep -s 1
-        }
-        elseif ($retval -eq -2) {
-            throw [LoginError]::new('Login may only be called once per session')
-        }
-        else { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
-    }
-    catch [LoginError], [CAPIError] {
-        Write-Warning $_.Exception.ErrorMessage()
-        exit
     }
 
     while (P_Dirty -or M_Dirty) { Start-Sleep -m 1 }
-    "VERSION:[" + $(VmType).ToUpper() + "]" | Write-Verbose
 }
 
 function Logout {
-    Start-Sleep -m 20
+    Start-Sleep -m 100
     $retval = [int][Voicemeeter.Remote]::VBVMR_Logout()
-    if (-not $retval) { "LOGGED OUT" | Write-Verbose }
+    if ($retval -notin @(0)) {
+        throw [CAPIError]::new($retval, 'VBVMR_Logout')
+    }
+    if ($retval -eq 0) { 'Sucessfully logged out' | Write-Verbose }
+}
+
+function RunVoicemeeter {
+    param(
+        [string]$kindId
+    )
+    $kinds = @{
+        'basic'  = $(if ([Environment]::Is64BitOperatingSystem) { 4 } else { 1 })
+        'banana' = $(if ([Environment]::Is64BitOperatingSystem) { 5 } else { 2 })
+        'potato' = $(if ([Environment]::Is64BitOperatingSystem) { 6 } else { 3 })
+    }
+
+    $retval = [int][Voicemeeter.Remote]::VBVMR_RunVoicemeeter([int64]$kinds[$kindId])
+    if ($retval -notin @(0)) {
+        throw [CAPIError]::new($retval, 'VBVMR_RunVoicemeeter') 
+    }
 }
 
 function P_Dirty {
-    [bool][Voicemeeter.Remote]::VBVMR_IsParametersDirty()
+    $retval = [Voicemeeter.Remote]::VBVMR_IsParametersDirty()
+    if ($retval -notin @(0, 1)) {
+        throw [CAPIError]::new($retval, 'VBVMR_IsParametersDirty') 
+    }
+    [bool]$retval
 }
 
 function M_Dirty {
-    [bool][Voicemeeter.Remote]::VBVMR_MacroButton_IsDirty()
+    $retval = [Voicemeeter.Remote]::VBVMR_MacroButton_IsDirty()
+    if ($retval -notin @(0, 1)) {
+        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_IsDirty') 
+    }
+    [bool]$retval
 }
 
 function VmType {
     New-Variable -Name ptr -Value 0
     $retval = [int][Voicemeeter.Remote]::VBVMR_GetVoicemeeterType([ref]$ptr)
-    if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+    if ($retval -notin @(0)) { 
+        throw [CAPIError]::new($retval, 'VBVMR_GetVoicemeeterType') 
+    }
     switch ($ptr) {
-        1 { return "basic" }
+        1 { return 'basic' }
-        2 { return "banana" }
+        2 { return 'banana' }
-        3 { return "potato" }
+        3 { return 'potato' }
     }
 }
 
-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) }
+    if ($retval -notin @(0)) { 
+        throw [CAPIError]::new($retval, 'VBVMR_GetVoicemeeterVersion') 
+    }
     $v1 = ($ptr -band 0xFF000000) -shr 24
     $v2 = ($ptr -band 0x00FF0000) -shr 16
     $v3 = ($ptr -band 0x0000FF00) -shr 8
@@ -93,28 +115,22 @@ function Param_Get {
     param(
         [string]$PARAM, [bool]$IS_STRING = $false
     )
-    Start-Sleep -m 50
+    Start-Sleep -m 30
     while (P_Dirty) { Start-Sleep -m 1 }
 
     if ($IS_STRING) {
         $BYTES = [System.Byte[]]::new(512)
-        try {
         $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterStringA($PARAM, $BYTES)
-            if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+        if ($retval -notin @(0)) { 
-        }
+            throw [CAPIError]::new($retval, 'VBVMR_GetParameterStringA') 
-        catch [CAPIError] {
-            Write-Warning $_.Exception.ErrorMessage()
         }
         [System.Text.Encoding]::ASCII.GetString($BYTES).Trim([char]0)
     }
     else {
         New-Variable -Name ptr -Value 0.0
-        try {
         $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterFloat($PARAM, [ref]$ptr)
-            if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+        if ($retval -notin @(0)) { 
-        }
+            throw [CAPIError]::new($retval, 'VBVMR_GetParameterFloat') 
-        catch [CAPIError] {
-            Write-Warning $_.Exception.ErrorMessage()
         }
         [single]$ptr
     }
@@ -124,17 +140,17 @@ function Param_Set {
     param(
         [string]$PARAM, [Object]$VALUE
     )
-    try {
     if ($VALUE -is [string]) {
         $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameterStringA($PARAM, $VALUE)
+        if ($retval -notin @(0)) { 
+            throw [CAPIError]::new($retval, 'VBVMR_SetParameterStringA') 
+        }
     }
     else {
         $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameterFloat($PARAM, $VALUE)
+        if ($retval -notin @(0)) { 
+            throw [CAPIError]::new($retval, 'VBVMR_SetParameterFloat') 
         }
-        if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
-    }
-    catch [CAPIError] {
-        Write-Warning $_.Exception.ErrorMessage()
     }
 }
 
@@ -142,12 +158,9 @@ function MB_Set {
     param(
         [int64]$ID, [single]$SET, [int64]$MODE
     )
-    try {
     $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_SetStatus($ID, $SET, $MODE)
-        if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+    if ($retval -notin @(0)) { 
-    }
+        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_SetStatus') 
-    catch [CAPIError] {
-        Write-Warning $_.Exception.ErrorMessage()
     }
 }
 
@@ -159,12 +172,9 @@ function MB_Get {
     while (M_Dirty) { Start-Sleep -m 1 }
 
     New-Variable -Name ptr -Value 0.0
-    try {
     $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_GetStatus($ID, [ref]$ptr, $MODE)
-        if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+    if ($retval -notin @(0)) { 
-    }
+        throw [CAPIError]::new($retval, 'VBVMR_MacroButton_GetStatus') 
-    catch [CAPIError] {
-        Write-Warning $_.Exception.ErrorMessage()
     }
     [int]$ptr
 }
@@ -174,8 +184,8 @@ function Param_Set_Multi {
         [hashtable]$HASH
     )
     foreach ($key in $HASH.keys) {
-        $classobj, $m2, $m3 = $key.Split("_")
+        $classobj, $m2, $m3 = $key.Split('_')
-        if ($m2 -match "^\d+$") { $index = [int]$m2 } else { $index = [int]$m3 }
+        if ($m2 -match '^\d+$') { $index = [int]$m2 } else { $index = [int]$m3 }
 
         foreach ($h in $HASH[$key].GetEnumerator()) {
             $property = $h.Name
@@ -196,11 +206,23 @@ function Set_By_Script {
     param(
         [string]$script
     )
-    try {
+    if ($script.Length -gt 48000) {
+        throw [VMRemoteError]::new('Script size cannot be larger than 48kB')
+    }
     $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameters($script)
-        if ($retval) { throw [CAPIError]::new($retval, $MyInvocation.MyCommand) }
+    if ($retval -notin @(0)) { 
-    }
+        throw [CAPIError]::new($retval, 'VBVMR_SetParameters') 
-    catch [CAPIError] {
-        Write-Warning $_.Exception.ErrorMessage()
     }
 }
+
+function Get_Level {
+    param(
+        [int64]$MODE, [int64]$INDEX
+    )
+    New-Variable -Name ptr -Value 0.0
+    $retval = [int][Voicemeeter.Remote]::VBVMR_GetLevel($MODE, $INDEX, [ref]$ptr)
+    if ($retval -notin @(0)) { 
+        throw [CAPIError]::new($retval, 'VBVMR_GetLevel') 
+    }
+    [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 [VMRemoteErrors]::new("ERROR: 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 { "" } }) + `
+        (& { if ([Environment]::Is64BitOperatingSystem) { '64' } else { '' } }) + `
-                ".dll")
+            '.dll')
-    }
-    catch [VMRemoteErrors] {
-        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,89 +1,205 @@
-. $PSScriptRoot\meta.ps1
+class IBus {
-
-class Bus {
     [int]$index
     [Object]$remote
     
-    # Constructor
+    IBus ([int]$index, [Object]$remote) {
-    Bus ([int]$index, [Object]$remote) {
         $this.index = $index
         $this.remote = $remote
+    }
 
+    [string] identifier () {
+        return 'Bus[' + $this.index + ']'
+    }
+
+    [single] Getter ($param) {
+        $this.ToString() + " Getter: $($this.Cmd($param))" | Write-Debug
+        return $this.remote.Getter($this.Cmd($param))
+    }
+
+    [string] Getter_String ($param) {
+        $this.ToString() + " Getter_String: $($this.Cmd($param))" | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
+    }
+
+    [void] Setter ($param, $val) {
+        $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')
 
-        AddBusModeMembers -PARAMS @('normal', 'amix', 'bmix', 'repeat', 'composite', 'tvmix', 'upmix21')
+        $this.mode = [BusMode]::new($index, $remote)
-        AddBusModeMembers -PARAMS @('upmix41', 'upmix61', 'centeronly', 'lfeonly', 'rearonly')
+        $this.eq = [BusEq]::new($index, $remote)
+        $this.levels = [BusLevels]::new($index, $remote)
     }
 
     [string] ToString() {
         return $this.GetType().Name + $this.index
     }
 
-    [single] Getter ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $false
-    }
-
-    [string] Getter_String ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $true
-    }
-
-    [void] Setter ($cmd, $set) {
-        Param_Set -PARAM $cmd -Value $set
-    }
-
-    [string] cmd ($arg) {
-        return "Bus[" + $this.index + "].$arg"
-    }
-
-    hidden $_eq = $($this | Add-Member ScriptProperty 'eq' `
-        {
-            [bool]$this.Getter($this.cmd('EQ.on'))
-        } `
-        {
-            param($arg)
-            $this._eq = $this.Setter($this.cmd('EQ.on'), $arg)
-        }
-    )
-
-    hidden $_eq_ab = $($this | Add-Member ScriptProperty 'eq_ab' `
-        {
-            [bool]$this.Getter($this.cmd('eq.ab'))
-        } `
-        {
-            param($arg)
-            $this._eq = $this.Setter($this.cmd('eq.ab'), $arg)
-        }
-    )
-
     [void] FadeTo ([single]$target, [int]$time) {
-        $this.Setter($this.cmd('FadeTo'), "($target, $time)")
+        $this.Setter('FadeTo', "($target, $time)")
     }
 
     [void] FadeBy ([single]$target, [int]$time) {
-        $this.Setter($this.cmd('FadeBy'), "($target, $time)")
+        $this.Setter('FadeBy', "($target, $time)")
+    }
+}
+
+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
+
+    BusMode ([int]$index, [Object]$remote) : base ($index, $remote) {
+        $this.modes = @(
+            'normal', 'amix', 'bmix', 'repeat', 'composite', 'tvmix', 'upmix21', 'upmix41', 'upmix61', 
+            'centeronly', 'lfeonly', 'rearonly'
+        )
+
+        AddBoolMembers -PARAMS $this.modes
+    }
+
+    [string] identifier () {
+        return 'Bus[' + $this.index + '].mode'
+    }
+
+    [string] Get () {
+        foreach ($mode in $this.modes) {
+            if ($this.$mode) {
+                break
+            }
+        }
+        return $mode
+    }
+}
+
+class BusEq : IBus {
+    BusEq ([int]$index, [Object]$remote) : base ($index, $remote) {
+        AddBoolMembers -PARAMS @('on', 'ab')
+    }
+
+    [string] identifier () {
+        return 'Bus[' + $this.index + '].EQ'
     }
 }
 
 class PhysicalBus : Bus {
+    [Object]$device
+
     PhysicalBus ([int]$index, [Object]$remote) : base ($index, $remote) {
+        $this.device = [BusDevice]::new($index, $remote)
     }
-    hidden $_device = $($this | Add-Member ScriptProperty 'device' `
+}
+
+class BusDevice : IBus {
+    BusDevice ([int]$index, [Object]$remote) : base ($index, $remote) {
+    }
+
+    [string] identifier () {
+        return 'Bus[' + $this.index + '].Device'
+    }
+
+    hidden $_name = $($this | Add-Member ScriptProperty 'name' `
         {
-            $this.Getter_String($this.cmd('device.name'))
+            $this.Getter_String('name')
         } `
         {
-            return Write-Warning ("ERROR: " + $this.cmd('device.name') + " is read only")
+            return Write-Warning ("ERROR: $($this.identifier()).name is read only")
         }
     )
 
     hidden $_sr = $($this | Add-Member ScriptProperty 'sr' `
         {
-            $this.Getter($this.cmd('device.sr'))
+            $this.Getter('sr')
         } `
         {
-            return Write-Warning ("ERROR: " + $this.cmd('device.sr') + " is read only")
+            return Write-Warning ("ERROR: $($this.identifier()).sr is read only")
+        }
+    )
+
+    hidden $_wdm = $($this | Add-Member ScriptProperty 'wdm' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).wdm is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('wdm', $arg)
+        }
+    )
+
+    hidden $_ks = $($this | Add-Member ScriptProperty 'ks' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).ks is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('ks', $arg)
+        }
+    )
+
+    hidden $_mme = $($this | Add-Member ScriptProperty 'mme' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).mme is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('mme', $arg)
+        }
+    )
+
+    hidden $_asio = $($this | Add-Member ScriptProperty 'asio' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).asio is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('asio', $arg)
         }
     )
 }

lib/command.ps1

@@ -1,64 +1,75 @@
-. $PSScriptRoot\meta.ps1
-
 class Special {
-    # Constructor
+    [Object]$remote
-    Special () {
+
+    Special ([Object]$remote) {
         AddActionMembers -PARAMS @('restart', 'shutdown', 'show')
+    
+        $this.remote = $remote
+    }
+
+    [string] identifier () {
+        return 'Command'
     }
 
     [string] ToString() {
         return $this.GetType().Name
     }
 
-    [single] Getter ($cmd) {
+    [single] Getter ($param) {
-        return Param_Get -PARAM $cmd -IS_STRING $false
+        return $this.remote.Getter("$($this.identifier()).$param")
     }
 
     [void] Setter ($param, $val) {
         if ($val -is [Boolean]) {
-            Param_Set -PARAM $param -Value $(if ($val) { 1 } else { 0 })
+            $this.remote.Setter("$($this.identifier()).$param", $(if ($val) { 1 } else { 0 }))
         }
         else {
-            Param_Set -PARAM $param -Value $val
+            $this.remote.Setter("$($this.identifier()).$param", $val)
         }
     }
 
-    [string] cmd ($arg) {
+    [void] RunMacrobuttons() {
-        return "Command.$arg"
+        '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($this.cmd('show'), $false)
+            $this._hide = $this.Setter('show', $false)
         } `
         {}
     )
 
     hidden $_showvbanchat = $($this | Add-Member ScriptProperty 'showvbanchat' `
         {
-            $this.Getter($this.cmd('DialogShow.VBANCHAT'))
+            $this.Getter('DialogShow.VBANCHAT')
         } `
         {
             param([bool]$arg)
-            $this._showvbanchat = $this.Setter($this.cmd('DialogShow.VBANCHAT'), $arg)
+            $this._showvbanchat = $this.Setter('DialogShow.VBANCHAT', $arg)
         }
     )
 
     hidden $_lock = $($this | Add-Member ScriptProperty 'lock' `
         {
-            $this._lock = $this.Getter($this.cmd('lock'))
+            $this._lock = $this.Getter('lock')
         } `
         {
             param([bool]$arg)
-            $this._lock = $this.Setter($this.cmd('lock'), $arg)
+            $this._lock = $this.Setter('lock', $arg)
         }
     )
 
     [void] Load ([string]$filename) {
-        $this.Setter($this.cmd('load'), $filename)
+        $this.Setter('load', $filename)
     }
 }
 
-function Make_Command {
+function Make_Command([Object]$remote) {
-    return [Special]::new()
+    return [Special]::new($remote)
 }

lib/errors.ps1

@@ -1,30 +1,19 @@
-class VMRemoteErrors : Exception {
+class VMRemoteError : Exception {
-    [string]$msg
+    VMRemoteError ([string]$msg) : base ($msg) {
-
-    VMRemoteErrors ([string]$msg) {
-        $this.msg = $msg
-    }
-
-    [string] ErrorMessage () {
-        return $this.msg
     }
 }
 
-class LoginError : VMRemoteErrors {
+class LoginError : VMRemoteError {
-    LoginError ([string]$msg) : base ([string]$msg) {
+    LoginError ([string]$msg) : base ($msg) {
     }
 }
 
-class CAPIError : VMRemoteErrors {
+class CAPIError : VMRemoteError {
-    [int]$retval
+    [int]$code
-    [string]$caller
+    [string]$function
 
-    CAPIError ([int]$retval, [string]$caller) {
+    CAPIError ([int]$code, [string]$function) : base ("$function returned $code") {
-        $this.retval = $retval
+        $this.code = $code
-        $this.caller = $caller
+        $this.function = $function
-    }
-
-    [string] ErrorMessage () {
-        return "ERROR: CAPI return value: {0} in {1}" -f $this.retval, $this.caller
     }
 }

lib/inst.ps1

@@ -1,8 +1,19 @@
-function Get_VBPath {
+function Get_VMPath {
-    $reg_path = "Registry::HKEY_LOCAL_MACHINE\Software" + `
+    $REG_KEY = @(
-    (& { if ([Environment]::Is64BitOperatingSystem) { "\WOW6432Node" } else { "" } }) + `
+        'Registry::HKEY_LOCAL_MACHINE',
-        "\Microsoft\Windows\CurrentVersion\Uninstall"
+        'Software',
-    $vm_key = "\VB:Voicemeeter {17359A74-1236-5467}\"
+        (& { if ([Environment]::Is64BitOperatingSystem) { 'WOW6432Node' } else { '' } }),
+        'Microsoft',
+        'Windows',
+        'CurrentVersion',
+        'Uninstall'
+    ).Where({ $_ -ne '' }) -Join '\'
+    $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) -Join '\') -Name UninstallString | Split-Path -Parent)
+    }
+    catch {
+        throw [VMRemoteError]::new('Unable to fetch Voicemeeter path from the Registry.')
+    }
 }

lib/kinds.ps1

@@ -1,33 +1,33 @@
 $KindMap = @{
-    "basic"  = @{
+    'basic'  = @{
-        "name"     = "basic"
+        'name'     = 'basic'
-        "p_in"     = 2
+        'p_in'     = 2
-        "v_in"     = 1
+        'v_in'     = 1
-        "p_out"    = 1
+        'p_out'    = 1
-        "v_out"    = 1
+        'v_out'    = 1
-        "vban_in"  = 4
+        'vban_in'  = 4
-        "vban_out" = 4
+        'vban_out' = 4
     };
-    "banana" = @{
+    'banana' = @{
-        "name"     = "banana"
+        'name'     = 'banana'
-        "p_in"     = 3
+        'p_in'     = 3
-        "v_in"     = 2
+        'v_in'     = 2
-        "p_out"    = 3
+        'p_out'    = 3
-        "v_out"    = 2
+        'v_out'    = 2
-        "vban_in"  = 8
+        'vban_in'  = 8
-        "vban_out" = 8
+        'vban_out' = 8
     };
-    "potato" = @{
+    'potato' = @{
-        "name"     = "potato"
+        'name'     = 'potato'
-        "p_in"     = 5
+        'p_in'     = 5
-        "v_in"     = 3
+        'v_in'     = 3
-        "p_out"    = 5
+        'p_out'    = 5
-        "v_out"    = 3
+        'v_out'    = 3
-        "vban_in"  = 8
+        'vban_in'  = 8
-        "vban_out" = 8
+        'vban_out' = 8
     };
 }
 
-function GetKind ([string]$kind_id) {
+function GetKind ([string]$kindId) {
-    $KindMap[$kind_id]
+    $KindMap[$kindId]
 }

lib/macrobuttons.ps1

@@ -1,7 +1,12 @@
+enum ButtonTypes {
+    State = 1
+    StateOnly = 2
+    Trigger = 3
+}
+
 class MacroButton {
     [int32]$index
 
-    # Constructor
     MacroButton ([int]$index) {
         $this.index = $index
     }
@@ -11,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' `
         {
-            $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' `
         {
-            $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' `
         {
-            $this.Getter(3)
+            [bool]$this.Getter([ButtonTypes]::Trigger)
         } `
         {
             param($arg)
-            $this._trigger = $this.Setter($arg, 3)
+            $this._trigger = $this.Setter($arg, [ButtonTypes]::Trigger)
         }
     )
 }

lib/meta.ps1

@@ -5,9 +5,9 @@ function AddBoolMembers () {
     [hashtable]$Signatures = @{}
     foreach ($param in $PARAMS) {
         # Define getter
-        $Signatures["Getter"] = "[bool]`$this.Getter(`$this.cmd('{0}'))" -f $param
+        $Signatures['Getter'] = "[bool]`$this.Getter('{0}')" -f $param
         # Define setter
-        $Signatures["Setter"] = "param ( [Single]`$arg )`n`$this.Setter(`$this.cmd('{0}'), `$arg)" `
+        $Signatures['Setter'] = "param ( [Single]`$arg )`n`$this.Setter('{0}', `$arg)" `
             -f $param
 
         Addmember
@@ -21,9 +21,9 @@ function AddFloatMembers () {
     [hashtable]$Signatures = @{}
     foreach ($param in $PARAMS) {
         # Define getter
-        $Signatures["Getter"] = "[math]::Round(`$this.Getter(`$this.cmd('{0}')), 1)" -f $param
+        $Signatures['Getter'] = "[math]::Round(`$this.Getter('{0}'), 1)" -f $param
         # Define setter
-        $Signatures["Setter"] = "param ( [Single]`$arg )`n`$this.Setter(`$this.cmd('{0}'), `$arg)" `
+        $Signatures['Setter'] = "param ( [Single]`$arg )`n`$this.Setter('{0}', `$arg)" `
             -f $param
 
         Addmember
@@ -37,9 +37,9 @@ function AddIntMembers () {
     [hashtable]$Signatures = @{}
     foreach ($param in $PARAMS) {
         # Define getter
-        $Signatures["Getter"] = "[Int]`$this.Getter(`$this.cmd('{0}'))" -f $param
+        $Signatures['Getter'] = "[Int]`$this.Getter('{0}')" -f $param
         # Define setter
-        $Signatures["Setter"] = "param ( [Single]`$arg )`n`$this.Setter(`$this.cmd('{0}'), `$arg)" `
+        $Signatures['Setter'] = "param ( [Single]`$arg )`n`$this.Setter('{0}', `$arg)" `
             -f $param
 
         Addmember
@@ -53,9 +53,9 @@ function AddStringMembers () {
     [hashtable]$Signatures = @{}
     foreach ($param in $PARAMS) {
         # Define getter
-        $Signatures["Getter"] = "[String]`$this.Getter_String(`$this.cmd('{0}'))" -f $param
+        $Signatures['Getter'] = "[String]`$this.Getter_String('{0}')" -f $param
         # Define setter
-        $Signatures["Setter"] = "param ( [String]`$arg )`n`$this.Setter(`$this.cmd('{0}'), `$arg)" `
+        $Signatures['Setter'] = "param ( [String]`$arg )`n`$this.Setter('{0}', `$arg)" `
             -f $param
 
         Addmember
@@ -69,9 +69,9 @@ function AddActionMembers () {
     [hashtable]$Signatures = @{}
     foreach ($param in $PARAMS) {
         # Define getter
-        $Signatures["Getter"] = "`$this.Setter(`$this.cmd('{0}'), `$true)" -f $param
+        $Signatures['Getter'] = "`$this.Setter('{0}', `$true)" -f $param
         # Define setter
-        $Signatures["Setter"] = ""
+        $Signatures['Setter'] = ''
 
         Addmember
     }
@@ -83,7 +83,7 @@ function AddChannelMembers () {
 
     [System.Collections.ArrayList]$channels = @()
     1..$($num_A + $num_B) | ForEach-Object {
-        if ($_ -le $num_A) { $channels.Add("A{0}" -f $_) } else { $channels.Add("B{0}" -f $($_ - $num_A)) }
+        if ($_ -le $num_A) { $channels.Add('A{0}' -f $_) } else { $channels.Add('B{0}' -f $($_ - $num_A)) }
     }
 
     AddBoolMembers -PARAMS $channels
@@ -93,40 +93,23 @@ function AddGainlayerMembers () {
     [hashtable]$Signatures = @{}
     0..7 | ForEach-Object {
         # Define getter
-        $Signatures["Getter"] = "`$this.Getter(`$this.cmd('gainlayer[{0}]'))" -f $_
+        $Signatures['Getter'] = "`$this.Getter('gainlayer[{0}]')" -f $_
         # Define setter
-        $Signatures["Setter"] = "param ( [Single]`$arg )`n`$this.Setter(`$this.cmd('gainlayer[{0}]'), `$arg)" `
+        $Signatures['Setter'] = "param ( [Single]`$arg )`n`$this.Setter('gainlayer[{0}]', `$arg)" `
             -f $_
-        $param = "gainlayer{0}" -f $_
+        $param = 'gainlayer{0}' -f $_
         $null = $param
 
         Addmember
     }
 }
 
-function AddBusModeMembers () {
-    param(
-        [String[]]$PARAMS
-    )
-    [hashtable]$Signatures = @{}
-    foreach ($param in $PARAMS) {
-        # Define getter
-        $Signatures["Getter"] = "[bool]`$this.Getter(`$this.cmd('mode.{0}'))" -f $param
-        # Define setter
-        $Signatures["Setter"] = "param ( [Single]`$arg )`n`$this.Setter(`$this.cmd('mode.{0}'), `$arg)" `
-            -f $param
-        $param = "mode_{0}" -f $param
-
-        Addmember
-    }
-}
-
 function Addmember {
     $AddMemberParams = @{
         Name        = $param
         MemberType  = 'ScriptProperty'
-        Value       = [scriptblock]::Create($Signatures["Getter"])
+        Value       = [scriptblock]::Create($Signatures['Getter'])
-        SecondValue = [scriptblock]::Create($Signatures["Setter"])
+        SecondValue = [scriptblock]::Create($Signatures['Setter'])
     }
     $this | Add-Member @AddMemberParams
 }

lib/profiles.ps1

@@ -1,5 +1,5 @@
 function Get_Profiles ([string]$kind_id) {
-    $basepath = Join-Path -Path $(Split-Path -Path $PSScriptRoot) -ChildPath "profiles"
+    $basepath = Join-Path -Path $(Split-Path -Path $PSScriptRoot) -ChildPath 'profiles'
     if (Test-Path $basepath) {
         $fullpath = Join-Path -Path $basepath -ChildPath $kind_id
     }
@@ -11,7 +11,7 @@ function Get_Profiles ([string]$kind_id) {
         $filenames | ForEach-Object {
             (Join-Path -Path $fullpath -ChildPath $_) | ForEach-Object {
                 $filename = [System.IO.Path]::GetFileNameWithoutExtension($_)
-                Write-Host ("Importing profile " + $kind_id + "/" + $filename)
+                Write-Host ('Importing profile ' + $kind_id + '/' + $filename)
                 $data[$filename] = Import-PowerShellDataFile -Path $_
             }
         }
@@ -24,14 +24,9 @@ function Set_Profile {
     param(
         [Object]$DATA, [string]$CONF
     )
-    try {
     if ($null -eq $DATA -or -not $DATA.$CONF) {
-            throw [VMRemoteErrors]::new("No profile named $CONF was loaded")
+        throw [VMRemoteErrors]::new("No profile named '$CONF' has been loaded into memory.")
     }
     Param_Set_Multi -HASH $DATA.$CONF
     Start-Sleep -m 1
 }
-    catch [VMRemoteErrors] {
-        Write-Warning $_.Exception.ErrorMessage()
-    }
-}

lib/recorder.ps1

@@ -1,48 +1,202 @@
-. $PSScriptRoot\meta.ps1
+class IRecorder {
-
-class Recorder {
     [Object]$remote
-    # Constructor
+
-    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
     }
 
+    [string] identifier () {
+        return 'Recorder'
+    }
+
     [string] ToString() {
         return $this.GetType().Name
     }
 
-    [single] Getter ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $false
-    }
-
-    [void] Setter ($param, $val) {
-        if ($val -is [Boolean]) {
-            Param_Set -PARAM $param -Value $(if ($val) { 1 } else { 0 })
-        }
-        else {
-            Param_Set -PARAM $param -Value $val
-        }
-    }
-
-    [string] cmd ($arg) {
-        return "Recorder.$arg"
-    }
-
     hidden $_loop = $($this | Add-Member ScriptProperty 'loop' `
         {
-            return Write-Warning ("ERROR: " + $this.cmd('mode.loop') + " is write only")
+            [bool]$this.mode.loop
         } `
         {
-            param([bool]$arg)
+            param($arg)
-            $this._loop = $this.Setter($this.cmd('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($this.cmd('load'), $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)]"
     }
 }
 

lib/strip.ps1

@@ -1,13 +1,43 @@
-. $PSScriptRoot\meta.ps1
+class IStrip {
-
-class Strip {
     [int]$index
     [Object]$remote
 
-    Strip ([int]$index, [Object]$remote) {
+    IStrip ([int]$index, [Object]$remote) {
         $this.index = $index
         $this.remote = $remote
+    }
 
+    [string] identifier () {
+        return 'Strip[' + $this.index + ']'
+    }
+
+    [single] Getter ($param) {
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter($this.Cmd($param))
+    }
+
+    [string] Getter_String ($param) {
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
+    }
+
+    [void] Setter ($param, $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')
         AddFloatMembers -PARAMS @('gain', 'pan_x', 'pan_y')
@@ -15,59 +45,222 @@ class Strip {
 
         AddChannelMembers
         AddGainlayerMembers
+
+        $this.levels = [StripLevels]::new($index, $remote)
     }
 
     [string] ToString() {
         return $this.GetType().Name + $this.index
     }
 
-    [single] Getter ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $false
-    }
-
-    [string] Getter_String ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $true
-    }
-
-    [void] Setter ($cmd, $val) {
-        Param_Set -PARAM $cmd -Value $val
-    }
-
-    [string] cmd ($arg) {
-        return "Strip[" + $this.index + "].$arg"
-    }
-
     [void] FadeTo ([single]$target, [int]$time) {
-        $this.Setter($this.cmd('FadeTo'), "($target, $time)")
+        $this.Setter('FadeTo', "($target, $time)")
     }
 
     [void] FadeBy ([single]$target, [int]$time) {
-        $this.Setter($this.cmd('FadeBy'), "($target, $time)")
+        $this.Setter('FadeBy', "($target, $time)")
+    }
+}
+
+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
+    [Object]$denoiser
+    [Object]$eq
+    [Object]$device
+
     PhysicalStrip ([int]$index, [Object]$remote) : base ($index, $remote) {
-        AddFloatMembers -PARAMS @('comp', 'gate', 'color_x', 'color_y', 'fx_x', 'fx_y')
+        AddFloatMembers -PARAMS @('color_x', 'color_y', 'fx_x', 'fx_y')
         AddFloatMembers -PARAMS @('reverb', 'delay', 'fx1', 'fx2')
         AddBoolMembers -PARAMS @('postreverb', 'postdelay', 'postfx1', 'postfx2')
+
+        $this.comp = [StripComp]::new($index, $remote)
+        $this.gate = [StripGate]::new($index, $remote)
+        $this.denoiser = [StripDenoiser]::new($index, $remote)
+        $this.eq = [StripEq]::new($index, $remote)
+        $this.device = [StripDevice]::new($index, $remote)
+    }
 }
 
-    hidden $_device = $($this | Add-Member ScriptProperty 'device' `
+class StripComp : IStrip {
+    StripComp ([int]$index, [Object]$remote) : base ($index, $remote) {
+        AddFloatMembers -PARAMS @('gainin', 'ratio', 'threshold', 'attack', 'release', 'knee', 'gainout')
+        AddBoolMembers -PARAMS @('makeup')
+    }
+
+    [string] identifier () {
+        return 'Strip[' + $this.index + '].Comp'
+    }
+
+    hidden $_knob = $($this | Add-Member ScriptProperty 'knob' `
         {
-            $this.Getter_String($this.cmd('device.name'))
+            $this.Getter_String('')
         } `
         {
-            return Write-Warning ("ERROR: " + $this.cmd('device.name') + " is read only")
+            param($arg)
+            return $this.Setter('', $arg)
+        }
+    )
+}
+
+class StripGate : IStrip {
+    StripGate ([int]$index, [Object]$remote) : base ($index, $remote) {
+        AddFloatMembers -PARAMS @('threshold', 'damping', 'bpsidechain', 'attack', 'hold', 'release')
+    }
+
+    [string] identifier () {
+        return 'Strip[' + $this.index + '].Gate'
+    }
+
+    hidden $_knob = $($this | Add-Member ScriptProperty 'knob' `
+        {
+            $this.Getter_String('')
+        } `
+        {
+            param($arg)
+            return $this.Setter('', $arg)
+        }
+    )
+}
+
+class StripDenoiser : IStrip {
+    StripDenoiser ([int]$index, [Object]$remote) : base ($index, $remote) {
+    }
+
+    [string] identifier () {
+        return 'Strip[' + $this.index + '].Denoiser'
+    }
+
+    hidden $_knob = $($this | Add-Member ScriptProperty 'knob' `
+        {
+            $this.Getter_String('')
+        } `
+        {
+            param($arg)
+            return $this.Setter('', $arg)
+        }
+    )
+}
+
+class StripEq : IStrip {
+    StripEq ([int]$index, [Object]$remote) : base ($index, $remote) {
+        AddBoolMembers -PARAMS @('on', 'ab')
+    }
+
+    [string] identifier () {
+        return 'Strip[' + $this.index + '].EQ'
+    }
+}
+
+class StripDevice : IStrip {
+    StripDevice ([int]$index, [Object]$remote) : base ($index, $remote) {
+    }
+
+    [string] identifier () {
+        return 'Strip[' + $this.index + '].Device'
+    }
+
+    hidden $_name = $($this | Add-Member ScriptProperty 'name' `
+        {
+            $this.Getter_String('name')
+        } `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).name is read only")
         }
     )
 
     hidden $_sr = $($this | Add-Member ScriptProperty 'sr' `
         {
-            $this.Getter($this.cmd('device.sr'))
+            $this.Getter('sr')
         } `
         {
-            return Write-Warning ("ERROR: " + $this.cmd('device.sr') + " is read only")
+            return Write-Warning ("ERROR: $($this.identifier()).sr is read only")
+        }
+    )
+
+    hidden $_wdm = $($this | Add-Member ScriptProperty 'wdm' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).wdm is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('wdm', $arg)
+        }
+    )
+
+    hidden $_ks = $($this | Add-Member ScriptProperty 'ks' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).ks is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('ks', $arg)
+        }
+    )
+
+    hidden $_mme = $($this | Add-Member ScriptProperty 'mme' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).mme is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('mme', $arg)
+        }
+    )
+
+    hidden $_asio = $($this | Add-Member ScriptProperty 'asio' `
+        {
+            return Write-Warning ("ERROR: $($this.identifier()).asio is write only")
+        } `
+        {
+            param($arg)
+            return $this.Setter('asio', $arg)
         }
     )
 }
@@ -77,6 +270,14 @@ class VirtualStrip : Strip {
         AddBoolMembers -PARAMS @('mc')
         AddIntMembers -PARAMS @('k')
     }
+
+    [void] AppGain ([string]$appname, [single]$gain) {
+        $this.Setter('AppGain', "(`"$appname`", $gain)")
+    }
+
+    [void] AppMute ([string]$appname, [bool]$mutestate) {
+        $this.Setter('AppMute', "(`"$appname`", $(if ($mutestate) { 1 } else { 0 })")
+    }
 }
 
 

lib/vban.ps1

@@ -1,70 +1,86 @@
-class Vban {
+class IVban {
     [int32]$index
+    [Object]$remote
     [string]$direction
 
-    # Constructor
+    IVban ([int]$index, [Object]$remote, [string]$direction) {
-    Vban ([int]$index) {
         $this.index = $index
+        $this.remote = $remote
+        $this.direction = $direction
+    }
+
+    [string] identifier () {
+        return 'vban.' + $this.direction + 'stream[' + $this.index + ']'
+    }
+
+    [single] Getter ($param) {
+        return $this.remote.Getter($this.Cmd($param))
+    }
+
+    [string] Getter_String ($param) {
+        $this.Cmd($param) | Write-Debug
+        return $this.remote.Getter_String($this.Cmd($param))
+    }
+
+    [void] Setter ($param, $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, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
     }
 
     [string] ToString() {
         return $this.GetType().Name + $this.index
     }
 
-    [single] Getter ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $false
-    }
-
-    [string] Getter_String ($cmd) {
-        return Param_Get -PARAM $cmd -IS_STRING $true
-    }
-
-    [void] Setter ($cmd, $set) {
-        Param_Set -PARAM $cmd -Value $set
-    }
-
-    [string] cmd ($arg) {
-        return "vban." + $this.direction + "stream[" + $this.index + "].$arg"
-    }
-
     hidden $_on = $($this | Add-Member ScriptProperty 'on' `
         {
-            $this.Getter($this.cmd('on'))
+            $this.Getter('on')
         } `
         {
             param([bool]$arg)
-            $this._on = $this.Setter($this.cmd('on'), $arg)
+            $this._on = $this.Setter('on', $arg)
         }
     )
 
     hidden $_name = $($this | Add-Member ScriptProperty 'name' `
         {
-            $this.Getter_String($this.cmd('name'))
+            $this.Getter_String('name')
         } `
         {
             param([string]$arg)
-            $this._name = $this.Setter($this.cmd('name'), $arg)
+            $this._name = $this.Setter('name', $arg)
         }
     )
 
     hidden $_ip = $($this | Add-Member ScriptProperty 'ip' `
         {
-            $this.Getter_String($this.cmd('ip'))
+            $this.Getter_String('ip')
         } `
         {
             param([string]$arg)
-            $this._ip = $this.Setter($this.cmd('ip'), $arg)
+            $this._ip = $this.Setter('ip', $arg)
         }
     )
 
     hidden $_port = $($this | Add-Member ScriptProperty 'port' `
         {
-            $this.Getter($this.cmd('port'))
+            $this.Getter('port')
         } `
         {
             param([string]$arg)
-            if ($arg -in 1024..65535) {
+            if ($arg -ge 1024 -and $arg -le 65535) {
-                $this._port = $this.Setter($this.cmd('port'), $arg)
+                $this._port = $this.Setter('port', $arg)
             }
             else {
                 Write-Warning ('Expected value from 1024 to 65535')
@@ -74,15 +90,15 @@ class Vban {
 
     hidden $_sr = $($this | Add-Member ScriptProperty 'sr' `
         {
-            $this.Getter($this.cmd('sr'))
+            $this.Getter('sr')
         } `
         {
             param([int]$arg)
-            if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
+            if ($this.direction -eq 'in') { Write-Warning ('Error, read only value') }
             else {
                 $opts = @(11025, 16000, 22050, 24000, 32000, 44100, 48000, 64000, 88200, 96000)
                 if ($opts.Contains($arg)) {
-                    $this._port = $this.Setter($this.cmd('sr'), $arg)
+                    $this._port = $this.Setter('sr', $arg)
                 }
                 else {
                     Write-Warning ('Expected one of', $opts)
@@ -93,14 +109,14 @@ class Vban {
 
     hidden $_channel = $($this | Add-Member ScriptProperty 'channel' `
         {
-            $this.Getter($this.cmd('channel'))
+            $this.Getter('channel')
         } `
         {
             param([int]$arg)
-            if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
+            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($this.cmd('channel'), $arg)
+                    $this._channel = $this.Setter('channel', $arg)
                 }
                 else {
                     Write-Warning ('Expected value from 1 to 8')
@@ -111,16 +127,16 @@ class Vban {
 
     hidden $_bit = $($this | Add-Member ScriptProperty 'bit' `
         {
-            $val = if ($this.Getter($this.cmd('bit')) -eq 1) { 16 } else { 24 }
+            $val = if ($this.Getter('bit') -eq 1) { 16 } else { 24 }
             return $val
         } `
         {
             param([int]$arg)
-            if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
+            if ($this.direction -eq 'in') { Write-Warning ('Error, read only value') }
             else {
                 if (@(16, 24).Contains($arg)) {
                     $val = if ($arg -eq 16) { 1 } else { 2 }
-                    $this._bit = $this.Setter($this.cmd('bit'), $val)
+                    $this._bit = $this.Setter('bit', $val)
                 }
                 else {
                     Write-Warning ('Expected value 16 or 24')
@@ -131,14 +147,14 @@ class Vban {
 
     hidden $_quality = $($this | Add-Member ScriptProperty 'quality' `
         {
-            $this.Getter($this.cmd('quality'))
+            $this.Getter('quality')
         } `
         {
             param([int]$arg)
-            if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
+            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($this.cmd('quality'), $arg)
+                    $this._quality = $this.Setter('quality', $arg)
                 }
                 else {
                     Write-Warning ('Expected value from 0 to 4')
@@ -149,14 +165,14 @@ class Vban {
 
     hidden $_route = $($this | Add-Member ScriptProperty 'route' `
         {
-            $this.Getter($this.cmd('route'))
+            $this.Getter('route')
         } `
         {
             param([int]$arg)
-            if ($this.direction -eq "in") { Write-Warning ('Error, read only value') }
+            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($this.cmd('route'), $arg)
+                    $this._route = $this.Setter('route', $arg)
                 }
                 else {
                     Write-Warning ('Expected value from 0 to 8')
@@ -168,17 +184,13 @@ class Vban {
 
 
 class VbanInstream : Vban {
-    # Constructor
+    VbanInstream ([int]$index, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
-    VbanInstream ([int]$index) : base ($index) {
-        $this.direction = "in"
     }
 }
 
 
 class VbanOutstream : Vban {
-    # Constructor
+    VbanOutstream ([int]$index, [Object]$remote, [string]$direction) : base ($index, $remote, $direction) {
-    VbanOutstream ([int]$index) : base ($index) {
-        $this.direction = "out"
     }
 }
 
@@ -188,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($_))
+        [void]$instream.Add([VbanInstream]::new($_, $remote, 'in'))
     }
     0..$($remote.kind.vban_out - 1) | ForEach-Object {
-        [void]$outstream.Add([VbanOutstream]::new($_))
+        [void]$outstream.Add([VbanOutstream]::new($_, $remote, 'out'))
     }
 
     $CustomObject = [pscustomobject]@{
@@ -201,7 +213,7 @@ function Make_Vban ([Object]$remote) {
 
     $CustomObject | Add-Member ScriptProperty 'enable' `
     {
-        return Write-Warning ("ERROR: vban.enable is write only")
+        return Write-Warning ('ERROR: vban.enable is write only')
     } `
     {
         param([bool]$arg)

tests/higher.Tests.ps1

@@ -27,12 +27,23 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
             }
         }
 
+        Context 'physical only' -ForEach @(
+            @{ Index = $phys_in }
+        ) {
+            Context 'eq.{param}' -Skip:$ifNotPotato {
+                It "Should set Strip[$index].EQ.On to $value" {
+                    $vmr.strip[$index].eq.on = $value
+                    $vmr.strip[$index].eq.on | Should -Be $expected
+                }                    
+            }
+        }
+
         Context 'Bus, one physical one virtual' -ForEach @(
             @{ Index = $phys_out }, @{ Index = $virt_out }
         ) {
-            It "Should set and get Bus[$index].Eq" -Skip:$ifBasic {
+            It "Should set and get Bus[$index].Eq.On" -Skip:$ifBasic {
-                $vmr.bus[$index].eq = $value
+                $vmr.bus[$index].eq.on = $value
-                $vmr.bus[$index].eq | Should -Be $expected
+                $vmr.bus[$index].eq.on | Should -Be $expected
             }
 
             It "Should set and get Bus[$index].Mono" {
@@ -40,14 +51,14 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
                 $vmr.bus[$index].mono | Should -Be $expected
             }
 
-            It "Should set and get Bus[$index].mode_amix" -Skip:$ifBasic {
+            It "Should set and get Bus[$index].mode.amix" -Skip:$ifBasic {
-                $vmr.bus[$index].mode_amix = $value
+                $vmr.bus[$index].mode.amix = $value
-                $vmr.bus[$index].mode_amix | Should -Be $expected
+                $vmr.bus[$index].mode.amix | Should -Be $expected
             }
 
-            It "Should set and get Bus[$index].mode_centeronly" -Skip:$ifBasic {
+            It "Should set and get Bus[$index].mode.centeronly" -Skip:$ifBasic {
-                $vmr.bus[$index].mode_centeronly = $value
+                $vmr.bus[$index].mode.centeronly = $value
-                $vmr.bus[$index].mode_centeronly | Should -Be $expected
+                $vmr.bus[$index].mode.centeronly | Should -Be $expected
             }
         }
 
@@ -79,17 +90,17 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
         }
 
         Context 'Recorder' -Skip:$ifBasic {
-            It "Should set and get Recorder.A3" {
+            It 'Should set and get Recorder.A3' {
                 $vmr.recorder.A3 = $value
                 $vmr.recorder.A3 | Should -Be $expected
             }
 
-            It "Should set and get Recorder.B1" {
+            It 'Should set and get Recorder.B1' {
                 $vmr.recorder.B1 = $value
                 $vmr.recorder.B1 | Should -Be $expected
             }
 
-            It "Should set and get Recorder.loop" {
+            It 'Should set and get Recorder.loop' {
                 $vmr.recorder.loop = $value
             }
         }
@@ -123,13 +134,58 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
                     @{ Value = 8.3; Expected = 8.3 }, @{ Value = 5.1; Expected = 5.1 }
                 ) {
                     It "Should set Strip[$index].Comp to $value" {
-                        $vmr.strip[$index].comp = $value
+                        $vmr.strip[$index].comp.knob = $value
-                        $vmr.strip[$index].comp | Should -Be $expected
+                        $vmr.strip[$index].comp.knob | Should -Be $expected
                     }
 
                     It "Should set Strip[$index].Gate to $value" {
-                        $vmr.strip[$index].gate = $value
+                        $vmr.strip[$index].gate.knob = $value
-                        $vmr.strip[$index].gate | Should -Be $expected
+                        $vmr.strip[$index].gate.knob | Should -Be $expected
+                    }
+                }
+
+                Context 'denoiser' -Skip:$ifNotPotato -ForEach @(
+                    @{ Value = 8.3; Expected = 8.3 }, @{ Value = 5.1; Expected = 5.1 }
+                ) {
+                    It "Should set Strip[$index].Denoiser to $value" {
+                        $vmr.strip[$index].denoiser.knob = $value
+                        $vmr.strip[$index].denoiser.knob | Should -Be $expected
+                    }
+                }
+
+                Context 'comp.{param}' -Skip:$ifNotPotato -ForEach @(
+                    @{ Value = 8.3; Expected = 8.3 }, @{ Value = 5.1; Expected = 5.1 }
+                ) {
+                    It "Should set Strip[$index].Comp.Attack to $value" {
+                        $vmr.strip[$index].comp.attack = $value
+                        $vmr.strip[$index].comp.attack | Should -Be $expected
+                    }
+                }
+
+                Context 'comp.{param}' -Skip:$ifNotPotato -ForEach @(
+                    @{ Value = 0.3; Expected = 0.3 }, @{ Value = 0.8; Expected = 0.8 }
+                ) {
+                    It "Should set Strip[$index].Comp.Knee to $value" {
+                        $vmr.strip[$index].comp.knee = $value
+                        $vmr.strip[$index].comp.knee | Should -Be $expected
+                    }
+                }
+
+                Context 'gate.{param}' -Skip:$ifNotPotato -ForEach @(
+                    @{ Value = 103; Expected = 103 }, @{ Value = 3800; Expected = 3800 }
+                ) {
+                    It "Should set Strip[$index].Gate.BPSidechain to $value" {
+                        $vmr.strip[$index].gate.bpsidechain = $value
+                        $vmr.strip[$index].gate.bpsidechain | Should -Be $expected
+                    }
+                }
+
+                Context 'gate.{param}' -Skip:$ifNotPotato -ForEach @(
+                    @{ Value = 0.3; Expected = 0.3 }, @{ Value = 5000; Expected = 5000 }
+                ) {
+                    It "Should set Strip[$index].Gate.Hold to $value" {
+                        $vmr.strip[$index].gate.hold = $value
+                        $vmr.strip[$index].gate.hold | Should -Be $expected
                     }
                 }
             }            
@@ -192,8 +248,8 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
             @{ Index = $phys_in }, @{ Index = $virt_in }
         ) {
             It "Should set Strip[$index].Label" -ForEach @(
-                @{ Value = "test0"; Expected = "test0" }
+                @{ Value = 'test0'; Expected = 'test0' }
-                @{ Value = "test1"; Expected = "test1" }
+                @{ Value = 'test1'; Expected = 'test1' }
             ) {
                 $vmr.strip[$index].label = $value
                 $vmr.strip[$index].label | Should -Be $expected
@@ -204,8 +260,8 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
             @{ Index = $phys_out }, @{ Index = $virt_out }
         ) {
             It "Should set Bus[$index].Label" -ForEach @(
-                @{ Value = "test0"; Expected = "test0" }
+                @{ Value = 'test0'; Expected = 'test0' }
-                @{ Value = "test1"; Expected = "test1" }
+                @{ Value = 'test1'; Expected = 'test1' }
             ) {
                 $vmr.bus[$index].label = $value
                 $vmr.bus[$index].label | Should -Be $expected
@@ -217,7 +273,7 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
         ) {
             Context 'instream' {
                 Context 'ip' -ForEach @(
-                    @{ Value = "0.0.0.0"; Expected = "0.0.0.0" }
+                    @{ Value = '0.0.0.0'; Expected = '0.0.0.0' }
                 ) {
                     It "Should set vban.instream[$index].name to $value" {
                         $vmr.vban.instream[$index].ip = $value
@@ -228,7 +284,7 @@ Describe -Tag 'higher', -TestName 'All Higher Tests' {
 
             Context 'outstream' {
                 Context 'ip' -ForEach @(
-                    @{ Value = "0.0.0.0"; Expected = "0.0.0.0" }
+                    @{ Value = '0.0.0.0'; Expected = '0.0.0.0' }
                 ) {
                     It "Should set vban.outstream[$index].name to $value" {
                         $vmr.vban.outstream[$index].ip = $value

tests/lower.Tests.ps1

@@ -29,7 +29,7 @@ Describe -Tag 'lower', -TestName 'All Lower Tests' {
             @{ Index = $phys_in }, @{ Index = $virt_in }
         ) {
             Context 'mute, mono, A1, B2' -ForEach @(
-                @{ param = "mute" }, @{ param = "A1" }
+                @{ param = 'mute' }, @{ param = 'A1' }
             ) {
                 It "Should set Strip[0].$param to 1" {
                     Param_Set -PARAM "Strip[$index].$param" -VALUE $value

tests/pre-commit.ps1

@@ -1,84 +0,0 @@
-Param([String]$tag, [Int]$num=1, [switch]$log, [string]$kind="potato")
-Import-Module .\lib\Voicemeeter.psm1
-
-Function ParseLog {
-    Param([String]$logfile)
-    $summary_file = Join-Path $PSScriptRoot "_summary.log"
-    if (Test-Path $summary_file) { Clear-Content $summary_file }
-
-    $PASSED_PATTERN = "^PassedCount\s+:\s(\d+)"
-    $FAILED_PATTERN = "^FailedCount\s+:\s(\d+)"
-
-    $DATA = @{
-        "passed" = 0
-        "failed" = 0
-    }
-
-    ForEach ($line in `
-    $(Get-content -Path "${logfile}")) {
-        if ($line -match $PASSED_PATTERN) {
-            $DATA["passed"] += $Matches[1]
-        }
-        elseif ($line -match $FAILED_PATTERN) {
-            $DATA["failed"] += $Matches[1]
-        }
-    }
-
-    "=========================`n" + `
-    "$num tests run:`n" + `
-    "=========================" | Tee-Object -FilePath $summary_file -Append
-    $DATA | ForEach-Object { $_ } | Tee-Object -FilePath $summary_file -Append
-}
-
-
-function main() {
-    try
-    {
-        switch ($kind) {
-            "basic" { $vmr = Get-RemoteBasic }
-            "banana" { $vmr = Get-RemoteBanana }
-            "potato" { $vmr = Get-RemotePotato }
-        }
-        Write-Host "Running tests for $vmr"
-
-        # test boundaries by kind
-        $phys_in = $vmr.kind.p_in - 1
-        $virt_in = $vmr.kind.p_in + $vmr.kind.v_in - 1
-        $phys_out = $vmr.kind.p_out - 1
-        $virt_out = $vmr.kind.p_out + $vmr.kind.v_out - 1
-        $vban_in = $vmr.kind.vban_in - 1
-        $vban_out = $vmr.kind.vban_out - 1
-
-        # skip conditions by kind
-        $ifBasic = $vmr.kind.name -eq "basic"
-        $ifBanana = $vmr.kind.name -eq "banana"
-        $ifPotato = $vmr.kind.name -eq "potato"
-        $ifNotBasic = $vmr.kind.name -ne "basic"
-        $ifNotBanana = $vmr.kind.name -ne "banana"
-        $ifNotPotato = $vmr.kind.name -ne "potato"
-
-        $logfile = Join-Path $PSScriptRoot "_results.log"
-        if (Test-Path $logfile) { Clear-Content $logfile }
-
-        1..$num | ForEach-Object {
-            if ($log) { 
-                "Running test $_ of $num" | Tee-Object -FilePath $logfile -Append
-                Invoke-Pester -Tag $tag -PassThru | Tee-Object -FilePath $logfile -Append
-            }
-            else { 
-                "Running test $_ of $num"
-                Invoke-Pester -Tag $tag -PassThru
-            }
-        }
-
-        if($log) { Parselog -logfile $logfile }
-    }
-    finally
-    {
-        $vmr.Logout()
-    }    
-}
-
-
-
-if ($MyInvocation.InvocationName -ne '.') { main }

tests/run.ps1

@@ -0,0 +1,30 @@
+[Diagnostics.CodeAnalysis.SuppressMessageAttribute("PSUseDeclaredVarsMoreThanAssignments", "", Target = "variablename")]
+Param([String]$tag, [string]$kind = 'potato')
+Import-Module .\lib\Voicemeeter.psm1
+
+
+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
+        $phys_in = $vmr.kind.p_in - 1
+        $virt_in = $vmr.kind.p_in + $vmr.kind.v_in - 1
+        $phys_out = $vmr.kind.p_out - 1
+        $virt_out = $vmr.kind.p_out + $vmr.kind.v_out - 1
+        $vban_in = $vmr.kind.vban_in - 1
+        $vban_out = $vmr.kind.vban_out - 1
+
+        # skip conditions by kind
+        $ifBasic = $vmr.kind.name -eq 'basic'
+        $ifNotPotato = $vmr.kind.name -ne 'potato'
+
+        Invoke-Pester -Tag $tag -PassThru | Out-Null
+    }
+    finally { Disconnect-Voicemeeter }   
+}
+
+
+main