This article contains a sample script that demonstrates the various properties of the Voxler application object.

To run this script:

1. Copy the script below, or click here to download the BAS file: ApplicationObject.BAS
2. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\Voxler 4\Scripter.
3. Double click on Scripter.exe to launch Scripter.
4. Press Ctrl+A to select all of the existing lines then press Delete.
5. If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
6. Click Script | Run to run the script.
    

*********

'********************************************************************************************
' ApplicationObject.bas
' This script demonstrates the various properties of the Voxler application object.
'
'********************************************************************************************

' If Voxler is running, retrieve the current instance of Voxler.  Otherwise,
' create a new instance of Voxler.
Function VoxlerApplication()
   On Error Resume Next
   Set VoxlerApplication = GetObject(, "Voxler.Application")
   If Err.Number <> 0 Then
      Set VoxlerApplication = CreateObject("Voxler.Application")
   End If
   On Error GoTo 0
End Function

Sub Main
 'Retrieve running instance of Voxler or create a new instance of Voxler
  Dim VoxlerApp As Object
  Set VoxlerApp = VoxlerApplication()

 'Make Voxler visible
  VoxlerApp.Visible = True

 'Access the application and return the name
  Debug.Print VoxlerApp.Application.name

 'Return the name of the application
  Debug.Print "Application name is "; VoxlerApp.name

 'Return the full path and name of the application
  Debug.Print "Application path and name is "; VoxlerApp.FullName

 'Return the path to the Voxler application
  Debug.Print "Application path is "; VoxlerApp.Path

 'Return the version of Voxler currently running
  Debug.Print "Voxler version number is "; VoxlerApp.Version

 'Make Voxler visible
  VoxlerApp.Visible = True

 'Access the command interface
  Set CommandApi = VoxlerApp.CommandApi

 'Close Voxler
  VoxlerApp.Quit

End Sub

Updated February 21, 2019