[R] Demande de création de script de lancement

[muller80]

Bonjour,

Je suis nouveau parmis vous, et j'ai découvert ce language de programmation que récemment.
J'ai créé pour mes besoins professionnel quelques script d'automatisation de connexion sur des extranets de ticketing.

Je souhaiterais aujourd'hui remplacer le mini site php que j'ai fais, par un petit programme.
Il doit avoir pour fonction lors de son exécution :
- L'ouverture d'une fenêtre
- La possibilité de saisir 2 mots de passe différents qui serait stocké dans une variable
- La possibilité de lancer 2 programmes différents qui utiliserait l'identifiant de compte windows en login et un des mots de passe qui aurait été saisi au préalable et stocké dans une variable
- la possibilité de quitter la fenêtre une fois les programmes lancé

Est ce que quelqu'un aurait la possibilité de m'aider a la création de ce petit script ?

Merci à vous de votre aide.

[GhostLine]

Un truc de ce genre là, du coup ...

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 187, 75, 508, 255)
$passw1_txt = GUICtrlCreateLabel("Mot de passe 1 :", 0, 0, 83, 17)
$passw2_txt = GUICtrlCreateLabel("Mot de passe 2 :", 0, 24, 83, 17)
$passw1_inp = GUICtrlCreateInput("", 88, 0, 97, 21)
$passw2_inp = GUICtrlCreateInput("", 88, 24, 97, 21)
$Prog_1 = GUICtrlCreateButton("Prog_1", 0, 48, 89, 25)
$Prog_2 = GUICtrlCreateButton("Prog_2", 96, 48, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$user_n = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName")
$chemin_prog_1 = "c:\programme1.exe"
$chemin_prog_2 = "c:\programme2.exe"

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Prog_1
            If GUICtrlRead($passw1_inp) <> "" Then
                Run($chemin_prog_1)
                WinWaitActive("la fenêtre de logon de ton programme")
;~              Je pars du principe que le curseur est directement positionné sur la saisie du nom d'utilisateur
                Send($user_n)
                Send("{TAB}")
                Send($passw1_inp)
                Send("{ENTER}")
;~              Le login est complet, on peut quitter le programme
                Exit
            EndIf
            MsgBox(0,"","Merci de saisir un mot de passe dans le champ Mot de passe 1.")
        Case $Prog_2
            If GUICtrlRead($passw2_inp) <> "" Then
                Run($chemin_prog_2)
                WinWaitActive("la fenêtre de logon de ton programme")
;~              Je pars du principe que le curseur est directement positionné sur la saisie du nom d'utilisateur
                Send($user_n)
                Send("{TAB}")
                Send($passw2_inp)
                Send("{ENTER}")
;~              Le login est complet, on peut quitter le programme
                Exit
            EndIf
            MsgBox(0,"","Merci de saisir un mot de passe dans le champ Mot de passe 2.")
    EndSwitch
WEnd
 

[TommyDDR]

muller80, conformément aux règles du forum que vous avez approuvé, vous êtes tenu de mettre un titre explicite à votre demande.

[muller80]

Bonjour.

Oui il faut une petite interface ou on peut saisir son identifiant ainsi que ces 2 mots de passe.

Ensuite des bouton qui lance les applications lorsque l on clic dessus.

[GhostLine]

Bah tout est dans le bout de code que je t'ai mis dans ma première réponse alors.

Edit : et modifie le titre de ton premier message en
[..] Demande de création de script de lancement
par exemple, ca évitera à ton post de finir à la poubelle.

[TommyDDR]

Dernière chance pour mettre un titre EXPLICITE avant que le sujet ne parte à la poubelle...

[muller80]

Re,

Désolé pour le titre, j'ai du bugger à l'ouverture du sujet, car il me semblait l'avoir fait.
Merci pour ce début.

En effet ce serait à peu près cela que je souhaite.

Est il possible d'avoir une fenêtre plus grande ?
J'ai environ 6 applications différentes à lancer. Il faudrait également que les mot de passe soit du type hidden

Merci de ton aide.

[GhostLine]

C'est possible

Je ne te promets pas pour aujourd’hui par contre.

[muller80]

Bonjour,

Je te remercie vraiment.
En fait j'ai réussi à avancer un peu de mon coté.

Je rencontre un soucis.
Lorsque je saisi mon mot de passe, je le renvoi vers un fichier texte afin de comprendre mon problème de connexion.

Exemple :

Je saisi test en mot de passe, la variable renvoi 61

si tu as une idée ..

Merci de ton aide

[Tlem]

61 est l'ID de votre contrôle. Pour avoir le texte contenu dans votre contrôle, vous devez utiliser l'ID et la fonction de lecture des contrôles : GUICtrlRead().

[muller80]

Je te remercie beaucoup !

[muller80]

Bonjour,

Je mets la Balise R dans le sujet . étant donné que cette partie la est complètement maitrisée.

Merci de votre aide.