Gambas France BETA


Pas de compte ? Incription

[RESOLU]attendre l'entrée du mot de passe Kdesudo

Ce sujet est résolu.

1
AuteurMessages
LanoueC#1 Posté le 22/1/2011 à 11:27:00
Bonjour

voici un bout de code :

1
'on crée le répertoire du projet si n'existe paschemin = "/opt/lampp/htdocs/projets" &/ entrerProjet cheminProg = Application.Path &/ "fichiers" If Not Exist("/opt/lampp/htdocs/projets" &/ entrerProjet) Then 'on créer le répertoire(dossier) avec shellpour avoir autorisation sudo Shell "kdesudo mkdir /opt/lampp/htdocs/projets" &/ entrerProjet For Read As "Process" Wait 5 'pour l'entrée du pwd =========> que mettre pour attendre le retour de la boite de dialogue de kdesudo ???????????????? ==> ou enoyer le ot de passe à kdesudo? If Not Error Then TextArea1.Text = "\n\ncréation du répertoire pour le projet : " & entrerProjet Wait 5 Else TextArea1.Text &= " ce projet existe déjà !" Timer1.Stop boolErreur = True Endif


je voudrais que le code ne s'exécute que lorsque le mot de passe a été entrée dans la boite de dialogue de Kdesudo
OU
envoyer à kdesudo le mot de passe depuis Gambas

je ne vois pas comment faire
quelqu'un a une idée?

LanoueC
linuxos#2 Posté le 22/1/2011 à 13:20:00
Un peu de sel, de poivre et la crevette sera... LanoueC,

1
'on crée le répertoire du projet si n'existe paschemin = "/opt/lampp/htdocs/projets" &/ entrerProjetcheminProg = Application.Path &/ "fichiers" If Not Exist("/opt/lampp/htdocs/projets" &/ entrerProjet) Then 'on créer le répertoire(dossier) avec shellpour avoir autorisation sudo TRY Shell "kdesudo mkdir /opt/lampp/htdocs/projets" &/ entrerProjet WAIT ' La cmd WAIT permet d'attendre la fin de la Cmd SHELL avant de continuer IF ERROR THEN IF NOT EXIST("/opt/lampp/htdocs/projets" &/ entrerProjet") THEN TextArea1.Text = "\n\ncréation du répertoire pour le projet : " & entrerProjet & " => OK mais erreur Cmd mkdir !" ELSE TextArea1.Text = "\n\ncréation du répertoire pour le projet : " & entrerProjet & " => ERREUR !!!" END IF TextArea1.Insert("\nMessage : " & Error.Text & "\n") Else TextArea1.Text &= " ce projet existe déjà !" Timer1.Stop boolErreur = True Endif

Je ne l'ai pas testé directement, juste corrigé a la volée.

1 - Question ? Pourquoi déclarer des variables (chemin, cheminProg) pour ne pas les utiliser après ?
2 - L'utilisation de variables pré-calculés fait gagner du temps de traitement en général. Cela n'a pas d'impact ici mais dans une boucle importante
cela peut accélérer énormément le traitement.

Olivier
Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous.
LanoueC#3 Posté le 22/1/2011 à 18:08:00
Linuxos merci

Question ? Pourquoi déclarer des variables (chemin, cheminProg) pour ne pas les utiliser après ?


ce sont des variables dont je me sers plus loin dans cette partie de code

encore merci de ton aide
1