Differenze tra le versioni di "Lanciare un programma senza Shell, ma da una finestra di un Terminale"

Versione delle 09:22, 19 giu 2016

Per poter lanciare un programma senza usare l'istruzione Shell o Exec, bensì da un Terminale, si potrà adottare un codice come quello che segue, attivando innanzitutto i componenti gb.desktop e gb.desktop.x11 ed usando, così, il metodo .SendKeys della Classe Desktop.
Il metodo Desktop.SendKeys() simula da codice effettivamente l'invio di caratteri attraverso la tastiera (come se si fosse fatta pressione sui tasti alfanumerici della tastiera in propria dotazione).

Nell'esempio che segue si lancerà da Terminale - senza Shell - il programma di scrittura "Gedit":

Public Sub Button1_Click()  
     
' Apro la finestra di un Terminale:
   Desktop.OpenTerminal
      
End
 
 
Public Sub Button2_Click()    
      
 Dim c As Integer[]  
 
' Trova l'identificativo della finestra del Terminale aperta prima.
' Nel metodo "FindWindow()" inseriamo il nome della finestra del Terminale, che
' potrà essere - a seconda dei casi - "Terminal" oppure in italiano "Terminale".
  c = Desktop.FindWindow("*erminal")
 
  If c.Count > 0 Then
' Attribuisce il "Focus" alla finestra del Terminale:
    Desktop.ActiveWindow = c[c.Max]
 
    With Desktop
' Scrive nel Terminale la parola "gedit":
      .SendKeys("gedit")
' Simula l'emissione del comando di "Invio":
      .SendKeys("[Return]")
    End With

' Ma più brevemente le due precedenti righe potranno essere sostituite dalla seguente,
' che prevede alla fine il carattere di "nuova linea a capo":
'    Desktop.SendKeys("gedit\n")
  Endif
 
End