Non funziona, appena clicco il button subito scrive la stringa passo  mentre il terminale è aperto

Verifica questo esempio semplice:

Codice: [Seleziona]

Public Sub Button1_Click()

  Shell "gnome-terminal -x sudo -S ls" Wait

  Print "passo"

End

---

Ai lettori del nostro forum suggeriamo a tal riguardo anche la lettura delle seguente pagine:
   https://www.gambas-it.org/wiki/index.php/Inserire_le_password_per_lanciare_comandi
   https://www.gambas-it.org/wiki/index.php/Lanciare_da_un%27applicazione_Gambas_il_Terminale_e_far_partire_da_esso_un_programma

In un form metto un button con una label e nel button scrivo il seguente codice....

Public Sub Button1_Click()
  Dim cmd As String
  cmd = "gnome-terminal -- bash -c 'echo inserisci la password di root; sudo -S apt update; exec bash'"

  ' Esegui il comando in un terminale GNOME
  Shell cmd Wait

  ' Questo testo apparirà solo dopo la chiusura del terminale
  Label1.Text = "Aggiornamento finito"

End

appena clicco il button si apre il terminale per digitare la password di root ed eseguire sudo apt update ma il problema è che nella label1 immediatamente appare "Aggiornamento finito" quando ancora devo scrivere la password sul terminale.......

Come se il wait non aspetta la chiusura del terminale

Come selezionare tramite comando le voci che appaio su fileview e riportali su un textarea ?

Ho installato dai sorgenti l' ultima versione di gambas, ma il traduttore risulta disattivato. Dalle opzioni l' ho abilitato ma non và.....
Translate-shell è installato è funziona....

Citazione da: Gratisweb - 01 Luglio 2024, 16:46:40

Debian 12, ma io la versione.3.19.1 l' ho installata con i sorgenti. Volevo sapere come aggiornarla alla 3.19.2

Se l'hai già fatto, ti basta disinstallare la versione vecchia e installare quella nuova 

Io non l' ho installato tramite apt ma dai sorgenti, quindi per aggiornarla ?

Ho la versione gambas 3.19.1, sul sito ufficiale ho visto che c'è la versione 3.19.2.
Come aggiornarla ?

Ho provato questo è funziona......

Public Sub Form_Activate()   ' oppure "Sub Main()" se il programma è a "linea di comando"
 
 Dim s, cmdline As String
 Dim id As New String[]

 For Each s In Dir("/proc", "*", gb.Directory)
   If Exist("/proc" &/ s &/ "cmdline") Then
     cmdline = File.Load("/proc" &/ s &/ "cmdline")
     If (cmdline Like "*" & Application.Name & ".gambas*") Then
       id.Push(Split(File.Load("/proc" &/ s &/ "stat"), Chr(32))[0])
       If id.Count > 1 Then
         If id[id.Max] > id[id.Max - 1] Then Quit
       Endif     
     Endif
   Endif
 Next
   
End


Ma funziona solo se il file eseguibile finisce con .gambas.....
Ma se il file eseguibile non finisce con .gambas ma non ha estensionee?

Esempio invece di chiamarsi
esempio.gambas si chiama esempio

Perchè appena rinomino il file eseguibile togliendo il .gambas non funziona