Der Gambas Club

Code: Alles auswählen

Public Sub GetBoxes()
  Dim hVM As VBoxUnit
  Dim sTmp As String
  Dim aVbox As String[]
  Dim aMounts As String[] = FMain.GetOtherMounts()
  Dim s As String
  Dim i As Integer

  $aVMS = New VBoxUnit[]

  'Dim d As Date = Now
  '  Shell "vboximg-mount -lv" Wait To sRes
  sTmp = Temp("vms")
  Shell "vboximg-mount -lv >" & sTmp Wait
  $sVMText = File.Load(sTmp)
  Try Kill sTmp
  'Debug DateDiff(d, Now, gb.Millisecond)

  aVBox = Split($sVMText, "\n")
  Print aVBox.max

  Do Until i = aVBox.max
     Inc i
     s = aVBox[i]
     'Print "s: "; s
     If InStr(s, "VM Name:") Then 
        hVM = New VBoxUnit As "VBUNIT"
        hVM.Name = UnQuote(GetLine(s))
     Else          
       If InStr(s, "UUID:") Then  
         hVM.UUID = GetLine(s)
       Else If InStr(s, "  Path:") Then
         hVM.Path = GetLine(s)
       Else If InStr(s, "Image:") Then
         hVM.ImageName = GetLine(s)
       Else If InStr(s, "ImageUUID:") Then
         hVM.ImageUUID = GetLine(s)        
       Else If InStr(s, "  UUID:") Then
         hVM.ImageUUID = GetLine(s)
       Else If InStr(s, "Path:") Then
         hVM.ImagePath = GetLine(s)
       Else If InStr(s, "  Format:") Then
         hVM.ImageFormat = GetLine(s)
       Else If InStr(s, "  Size:") Then
         hVM.ImageSize = GetLine(s)        
       Else If InStr(s, "  State:") Then
         hVM.ImageState = GetLine(s)       
       Else If InStr(s, "  Type:") Then
         hVM.ImageType = GetLine(s)     
         'hVM.Volumes = VBoxVDI.GetVolumes(hVM.ImagePath)
         $aVMS.Add(hVM)
         If aMounts.Exist(hVM.TmpDir & "/*", gb.Like) Then
           hVM.Mount(True)
         Endif
       Endif
     End If
   Loop

End

Code: Alles auswählen

Private Function GetLine(sLine As String) As String
  Dim sSplit As String[] 
  
  sSplit = Split(sLine, ":")
  Return Trim(sSplit[1])

End

Code: Alles auswählen

Static Public Sub GetVolumes(Path As String) As VBoxVDI[]
   ...
   Error.Raise(Split(sRes, "\n\r", Null, True)[0])
   ...

Code: Alles auswählen

Public Sub _new(ID As Integer, Size As String, UUID As String)

  $iID = ID
  $sSizeString = Size
  $sUUID = UUID

  Dim f As Long
  Dim sChar As String = Right($sSizeString, 1)
  Dim sVal As String = Left($sSizeString, -1)
  If sChar = "M" Then
    'f = Val(sVal) * 1024 * 1024   '<-------------------------- 
    f = CStr(sVal) * 1024 * 1024
  Else If sChar = "G" Then
    'f = Val(sVal) * 1024 * 1024 * 1024  '<------------------------
    f = CStr(sVal) * 1024 * 1024 * 1024
  Endif
  ....