base.ps1
|
. $PSScriptRoot\errors.ps1 . $PSScriptRoot\binding.ps1 function Login { param( [string]$kindId ) $retval = [int][Voicemeeter.Remote]::VBVMR_Login() if ($retval -notin @(0, 1, -2)) { throw [CAPIError]::new($retval, "VBVMR_Login") } 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 } catch [CAPIError] { $exception = $_ $exception | Write-Debug } } while ($sw.elapsed -lt $timeout) if ($null -ne $exception) { throw [VMRemoteError]::new("Timeout logging into the API.") } while (P_Dirty -or M_Dirty) { Start-Sleep -m 1 } } function Logout { Start-Sleep -m 100 $retval = [int][Voicemeeter.Remote]::VBVMR_Logout() 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 { $retval = [Voicemeeter.Remote]::VBVMR_IsParametersDirty() if ($retval -notin @(0, 1)) { throw [CAPIError]::new($retval, "VBVMR_IsParametersDirty") } [bool]$retval } function M_Dirty { $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 -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_GetVoicemeeterType") } switch ($ptr) { 1 { return "basic" } 2 { return "banana" } 3 { return "potato" } } } function VmVersion { New-Variable -Name ptr -Value 0 $retval = [int][Voicemeeter.Remote]::VBVMR_GetVoicemeeterVersion([ref]$ptr) 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 $v4 = $ptr -band 0x000000FF "$v1.$v2.$v3.$v4" } function Param_Get { param( [string]$PARAM, [bool]$IS_STRING = $false ) Start-Sleep -m 30 while (P_Dirty) { Start-Sleep -m 1 } if ($IS_STRING) { $BYTES = [System.Byte[]]::new(512) $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterStringA($PARAM, $BYTES) if ($retval -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_GetParameterStringA") } [System.Text.Encoding]::ASCII.GetString($BYTES).Trim([char]0) } else { New-Variable -Name ptr -Value 0.0 $retval = [int][Voicemeeter.Remote]::VBVMR_GetParameterFloat($PARAM, [ref]$ptr) if ($retval -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_GetParameterFloat") } [single]$ptr } } function Param_Set { param( [string]$PARAM, [Object]$VALUE ) 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") } } } function MB_Set { param( [int64]$ID, [single]$SET, [int64]$MODE ) $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_SetStatus($ID, $SET, $MODE) if ($retval -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_MacroButton_SetStatus") } } function MB_Get { param( [int64]$ID, [int64]$MODE ) Start-Sleep -m 50 while (M_Dirty) { Start-Sleep -m 1 } New-Variable -Name ptr -Value 0.0 $retval = [int][Voicemeeter.Remote]::VBVMR_MacroButton_GetStatus($ID, [ref]$ptr, $MODE) if ($retval -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_MacroButton_GetStatus") } [int]$ptr } function Param_Set_Multi { param( [hashtable]$HASH ) foreach ($key in $HASH.keys) { $classobj, $m2, $m3 = $key.Split("_") if ($m2 -match "^\d+$") { $index = [int]$m2 } else { $index = [int]$m3 } foreach ($h in $HASH[$key].GetEnumerator()) { $property = $h.Name $value = $h.Value if ($value -in ('False', 'True')) { [System.Convert]::ToBoolean($value) } switch ($classobj) { 'strip' { $this.strip[$index].$property = $value } 'bus' { $this.bus[$index].$property = $value } { ($_ -eq 'button') -or ($_ -eq 'mb') } { $this.button[$index].$property = $value } 'vban' { $this.vban.$m2[$index].$property = $value } } } } } function Set_By_Script { param( [string]$script ) if ($script.Length -gt 48000) { throw [VMRemoteError]::new("Script size cannot be larger than 48kB") } $retval = [int][Voicemeeter.Remote]::VBVMR_SetParameters($script) if ($retval -notin @(0)) { throw [CAPIError]::new($retval, "VBVMR_SetParameters") } } 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 } |