VERSION 5.00
Caption = "VirtualBox Test"
ClientHeight = 4692
ClientLeft = 60
ClientTop = 348
ClientWidth = 6972
LinkTopic = "TestForm"
ScaleHeight = 4692
ScaleWidth = 6972
Height = 2352
Left = 240
TabIndex = 4
Top = 2040
Width = 6492
End
Caption = "Get Machine List"
Height = 372
Left = 2640
TabIndex = 0
Top = 720
Width = 1692
End
Caption = "Registered Machines:"
Height = 192
Left = 240
TabIndex = 5
Top = 1680
Width = 1572
End
Caption = "<none>"
Height = 192
Left = 1680
TabIndex = 3
Top = 1320
Width = 528
End
Caption = "VirtualBox Version:"
Height = 252
Left = 240
TabIndex = 2
Top = 1320
Width = 1344
End
Height = 372
Left = 240
TabIndex = 1
Top = 120
Width = 6492
End
End
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetEnvironmentVariable Lib "kernel32" _
Private Declare Function GetEnvironmentVariable Lib "kernel32" _
Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
' Set where to take VirtualBox configuration from
'SetEnvironmentVariable "VBOX_USER_HOME", "E:\VirtualBoxHome\win"
' Setup debug logging (available only in debug builds)
'SetEnvironmentVariable "VBOX_LOG", "main.e.l.f + gui.e.l.f"
'SetEnvironmentVariable "VBOX_LOG_FLAGS", "time tid thread"
'SetEnvironmentVariable "VBOX_LOG_DEST", "dir:" + PATH_OUT_BASE + "/logs"
End Sub
Private Sub getMachieListCmd_Click()
' Clear the old list contents
' Disable the button and the list for the duration of the call
getMachieListCmd.Enabled = False
machineList.Enabled = False
' Obtain the global VirtualBox object (this will start
' the VirtualBox server if it is not already started)
' Get the VirtualBox server version
' Obtain a list of registered machines
Else
Next i
End If
' Reenable the button and the list
getMachieListCmd.Enabled = True
machineList.Enabled = True
End Sub