Differenze tra le versioni di "Lanciare un programma senza Shell, ma da una finestra di un Terminale"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
<BR>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). | <BR>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'': | + | Nell'esempio che segue si lancerà da Terminale - <SPAN Style="text-decoration:underline">senza ''Shell''</span> - ad esempio il programma di scrittura ''Gedit'': |
− | + | Public Sub Button1_Click() | |
<FONT color=gray>' ''Apre la finestra del Terminale:''</font> | <FONT color=gray>' ''Apre la finestra del Terminale:''</font> | ||
Desktop.OpenTerminal | Desktop.OpenTerminal | ||
− | + | End | |
− | + | Public Sub Button2_Click() | |
Dim c As Integer[] | Dim c As Integer[] | ||
Riga 21: | Riga 21: | ||
<FONT color=gray>' ''Attribuisce il "Focus" alla finestra del Terminale:''</font> | <FONT color=gray>' ''Attribuisce il "Focus" alla finestra del Terminale:''</font> | ||
Desktop.ActiveWindow = c[c.Max] | Desktop.ActiveWindow = c[c.Max] | ||
+ | <FONT color=gray>' ''Il ciclo garantisce che la finestra del Terminale risulti quella che ha il "focus":''</font> | ||
+ | While Desktop.ActiveWindow <> c[c.Max] | ||
+ | Wait 0.01 | ||
+ | Wend | ||
With Desktop | With Desktop | ||
<FONT color=gray>' ''Scrive nel Terminale la parola "gedit":''</font> | <FONT color=gray>' ''Scrive nel Terminale la parola "gedit":''</font> | ||
Riga 31: | Riga 35: | ||
Endif | Endif | ||
− | + | End |
Versione attuale delle 12:36, 23 nov 2023
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 il componente gb.desktop e 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 - ad esempio il programma di scrittura Gedit:
Public Sub Button1_Click() ' Apre la finestra del Terminale: Desktop.OpenTerminal End Public Sub Button2_Click() Dim c As Integer[] ' Trova il numero identificativo della finestra del Terminale, che prima è stata aperta, inserendo nel 1° argomento del Metodo "FindWindow()" il "nome esatto della finestra" del Terminale oppure inserendo nel 2° argomento il "nome esatto del programma Terminale". A tal fine si potrà usare anche il carattere jolly dell'asterisco "*" (all'inizio e/o alla fine del nome). c = Desktop.FindWindow("nome_esatto_della_finestra_del_terminale", "nome_esatto_del_terminale", Null) If c.Count > 0 Then ' Attribuisce il "Focus" alla finestra del Terminale: Desktop.ActiveWindow = c[c.Max] ' Il ciclo garantisce che la finestra del Terminale risulti quella che ha il "focus": While Desktop.ActiveWindow <> c[c.Max] Wait 0.01 Wend 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