Info shell

[vuott]

...con Shell il richiamo a un Terminale non è necessario.
 Fai semplicemente:

Codice: [Seleziona]

Dim a As String

Shell "speedtest-cli" To a

Label1.Text = a

L'uso dell'istruzione "To variabile", però, va bene se il programma lanciato ti restituisce un risultato tutto subito, in un colpo solo.
Se "speedtest-cli" ti dà vari risultati differiti nel tempo, allora dovrai porlo sotto osservazione aprendo il suo processo in Lettura:

Codice: [Seleziona]

Private pr As Process

Public Sub Form_Open()

' Lancia "speedtest-cli", ne apre il processo e lo pone sotto osservazione:
 pr = Shell "speedtest-cli" For Input As "Speed" 

End

 ' Quando c'è qualcosa da leggere dal processo di "Speedtest-cli", allora viene sollevato questo Evento di lettura dei dati:
Public Sub Speed_Read() 

 Dim s As String
 
 Line Input #pr, s

 Label1.Text = s

End

Al riguardo suggerisco questa pagina:
   https://www.gambas-it.org/wiki/index.php?title=Lettura_dati_da_un_Processo_e_scrittura_dati_in_un_Processo

[Gratisweb]

 Line Input #pr, s

Indicatore sconosciuto (pr)

[vuott]

Indicatore sconosciuto (pr)

Hai inserito all'inizio del codice questa riga ?

 

Codice: [Seleziona]

Private pr As Process

[Gratisweb]

Public Sub Form_Open()
' Lancia "speedtest-cli", ne apre il processo e lo pone sotto osservazione:
 pr = Shell "speedtest-cli" For Input As "Speed"
End
Public Sub Speed_Read()

 Private pr As Process
 Dim s As String
 
 Line Input #pr, s

 Label.Text1.Text = s

End

Indicatore sconosciuto (pr)

[vuott]

1) Non hai copiato e quindi inserito la prima riga della dichiarazione della variabile di tipo "Process" come Globale.
Riguarda bene il mio codice all'inizio.
Essa va inserita così:

Codice: [Seleziona]

Private pr As Process

Public Sub Form_Open()

 ...etc....

2) C'è un mio errore di scrittura qua:
 Label.Text1.Text = s

che ora ho corretto.
Ovviamente va scritto così:

Codice: [Seleziona]

Label1.Text = s

[Gratisweb]

Scusa, l' avevo scritto sbagliato.
Mi appare però sulla label solo il risultato del download
come faccio a far apparire il risultato del download e upload ?

[vuott]

Scusa, l' avevo scritto sbagliato.
Mi appare però sulla label solo il risultato del download
come faccio a far apparire il risultato del download e upload ?

Io purtroppo non posseggo il programma "speedtest-cli" e neppure ne conosco il funzionamento.
L'unica cosa che ho potuto dirti è che la gestione dei Processi dei programmi aperti con "Shell" (o con "Exec") è in buona sostanza come sopra descritto.
...forse devi inserire qualche opzione... forse. O forse devi attendere la sua azione dell'upload... Non so.   

[Gratisweb]

Siccome lo devo inserrire in un bottone ma sbaglio qualcosa

Public Sub Button1_Click()
' Lancia "speedtest-cli", ne apre il processo e lo pone sotto osservazione:
 Dim s As String
 pr = Shell "speedtest-cli" For Input As "Speed"
  Line Input #pr, s
 Label1.Text = s

End

[Gratisweb]

Siccome lo devo inserrire in un bottone ma sbaglio qualcosa

Public Sub Button1_Click()
' Lancia "speedtest-cli", ne apre il processo e lo pone sotto osservazione:
 Dim s As String
 pr = Shell "speedtest-cli" For Input As "Speed"
  Line Input #pr, s
 Label1.Text = s

End

Basta installarlo, si trova su synaptic
sudo apt-get install speedtest-cli

[vuott]

Va be'... l'ho installato. Mannaggia ! 

Ho fatto la prova con il mio codice sopra mostrato, facendo però scrivere tutto in console.
A me funziona completamente.
Ecco i risultati:

Testing download speed................................................................................
Download: 44.53 Mbit/s
Testing upload speed...
Upload: 5.74 Mbit/s

Devi attendere un po' per ottenere i risultati.
Fai la prova in console, per ora, come ho fatto io:
 

Codice: [Seleziona]

Print s

[Gratisweb]

sistemato, adesso voglio che sulla label vengono riportate tutte le voci

Tipo così
Retrieving speedtest.net configuration...
Testing from Telecom Italia (XX.XXX.XXX.XXX)...
Retrieving speedtest.net server list...
Selecting best server based on ping...
Hosted by Fly Network (Novi Velia) [304.38 km]: 70.526 ms
Testing download speed................................................................................
Download: X.XX Mbit/s
Testing upload speed...
.
Upload: X.XX Mbit/s

[vuott]

Eh... e quindi ? ....come faresti ?
Fai delle prove. Cerca di risolvere tu la questione (...'sto programma lo devi fare tu, o io ?  )
Se hai problemi, li vediamo insieme. 

[Gratisweb]

ok
scrivendo così Label1.Text = Label1.text + s
va in errore sarà sbaglio qualcosa. Una volta ma parlo di 25 anni fa circa programmavo in visual basic.

[Gratisweb]

Ci sto riuscendo.....
Grazie

[vuott]

scrivendo così Label1.Text = Label1.text + s
va in errore sarà sbaglio qualcosa.

Per aggiungere una stringa ad un'altra precedente devi usare l'operatore "&".
Nel tuo caso però devi anche aggiungere il ritorno a capo, altrimenti la Label ti scrive tutto su una riga.

Codice: [Seleziona]

Label1.Text &= s & "\n"

Ossia: alla Label va assegnato il suo testo posseduto con l'aggiunta di quello presente nella variabile "s", alla fine della stringa va altresì aggiunto il comando escape di nuova riga a capo.

Su come andare a capo in un oggetto di testo, suggerisco questa pagina:
   https://www.gambas-it.org/wiki/index.php?title=%22Andare_a_capo%22_in_un_oggetto_di_testo