19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
PUBLIC SUB Button6_Click()DIM sOutput AS StringDIM emailadress AS StringDIM indirizzo AS Stringindirizzo = DirChooser1.SelectedPath emailadress = TextBox2.Text SHELL "cd " & indirizzo & " " "dh_make - s - e " & emailadress & " -n --copyright gpl " WAIT TO sOutput TextArea1.Text = sOutputENDPUBLIC SUB Button10_Click()DIM sOutput AS StringDIM debuildbinary2 AS Stringdebuildbinary2 = DirChooser1.SelectedPath SHELL "cd" & debuildbinary2 & "debuild binary " WAIT TO sOutput TextArea1.Text = sOutputEND
SHELL "cd " & indirizzo & " " "dh_make - s - e " & emailadress & " -n --copyright gpl 2>&1" WAIT TO sOutput
SHELL "cd " & indirizzo & " ;dh_make - s - e " & emailadress & " -n --copyright gpl 2>&1" TO sOutputWAIT