Mostrare unità

[Gratisweb]

Come si visualizzano le unità con gambas ?
Es: nel pc ci sono 2 HDD  o un SSD ecc..., come si visualizzano con gambas  ?

[vuott]

Non so se possono aiutarti questi capitoli della nostra Wiki:
https://www.gambas-it.org/wiki/index.php/Guide_della_comunit%C3%A0#Sistema_operativo_-_Dispositivi_-_Interfacce_-_Reti
https://www.gambas-it.org/wiki/index.php/Guide_della_comunit%C3%A0#Hard_Disk
https://www.gambas-it.org/wiki/index.php/Guide_della_comunit%C3%A0#CPU_e_Scheda_Madre

[Gratisweb]

Ho scritto questo codice

Library "libc:6"

Private Const HDIO_GET_IDENTITY As Integer = &030D

' int ioctl (int __fd, unsigned long int __request, ...)
' Perform the I/O control operation specified by REQUEST on FD.
Private Extern ioctl(__fd As Integer, __request As Long, hd_drived As Pointer) As Integer


Public Sub Main()

 Dim fl As File
 Dim hd As Pointer
 Dim err As Integer

' Elimina la protezione del file-device "/dev/sda".
' Si dovrà inserire la propria password di sistema.
 Shell "echo MIA_PASSWORD | sudo -S chmod 444 /dev/sda" Wait

 fl = Open "/dev/sda" For Read

 hd = Alloc(SizeOf(gb.Byte), 512)

 err = ioctl(fl.Handle, HDIO_GET_IDENTITY, hd)
 If err < 0 Then
   Free(hd)
   Error.Raise("Errore alla funzione 'ioctl()' !")
 Endif

 Print "\n\nCilindri:       "; Short@(hd + 2) & Space(16)
 Print "Heads:          "; Short@(hd + 6)
 Print "Settori:        "; Short@(hd + 12)
 Print "Num. seriale:   "; Trim(Left(String@(hd + 20), 20))
 Print "Firmware rev.:  "; Left(String@(hd + 46),
 Print "Modello:        "; Left(String@(hd + 54), 40)

 Free(hd)
 fl.Close

End

Cerca la password di root ma mi serve uno script che non cerca nessuna password

[kicco]

 
a me gira senza errori, ma non mi dà il tempo di inserire la password!
 

[vuott]

ma non mi dà il tempo di inserire la password!
 

La password va scritta lì nel codice al posto della parola "MIA_PASSWORD".
Volendola inserire invece durante il funzionamento de programma (...runtime), allora potremmo inserire prima della linea di comando di "Shell" l'iscruzione Input:

Codice: [Seleziona]

Input s

laddove l'identificatore "s" rappresenta una variabile di tipo "String".
Così, al posto di MIA_PASSWORD si inserirà la suddetta variabile.
Il processo del programma si ferma all'istruzione "Input" restando in attesa che nella console/terminale sia scritta la propria password di sistema e quindi la si passi premendo il tasto " Invio" della tastiera.
Ovviamente in ambiente grafico, anziché dell'istruzione "Input", si farà uso dell'istruzione "InputBox()".

[kicco]

Come sempre super esaustivo!
Grazie!

[vuott]

Come sempre super esaustivo!

''Non siamo qui a pettinar le bambole o ad asciugar gli scogli ! '' 

[Gratisweb]

Per vedere le unità senza inserire nessuna password di root ho scritto questo codice ma va in errore e non capisco il perchè.....

Dim outp As System

' Esegue il comando e salva l'output in una variabile
outp = system("lsblk -o NAME,SIZE,TYPE | grep 'disk' | awk '{if ($2 != \"0B\") print $1}'")

' Controlla l'output per errori (facoltativo)
If outp Like "*error*" Then
  Print "Si è verificato un errore durante l'esecuzione del comando lsblk."
Else
  ' Stampa l'elenco delle unità
  Print outp
Endif

[vuott]

va in errore e non capisco il perchè.....

Dim outp As System

' Esegue il comando e salva l'output in una variabile
outp = system("lsblk -o NAME,SIZE,TYPE | grep 'disk' | awk '{if ($2 != \"0B\") print $1}'")

Che cosa è system ?

[Gratisweb]

va in errore e non capisco il perchè.....

Dim outp As System

' Esegue il comando e salva l'output in una variabile
outp = system("lsblk -o NAME,SIZE,TYPE | grep 'disk' | awk '{if ($2 != \"0B\") print $1}'")

Che cosa è system ?

Sbagliato a scrivere, era shell

[vuott]

Sbagliato a scrivere, era shell

Così funziona:

Codice: [Seleziona]

Public Sub Main()

  Dim s As String

  Shell "lsblk -o NAME,SIZE,TYPE | grep 'disk' | awk '{if ($2 != \"0B\") print $1}'" To s
  
  Print s

End