[..] Création compte

[aikiox]

Bonjour,
J'ai commencé a créer un script pour la création de compte dans mon entreprise. Je ne vous cache pas que la création de compte est un peu particuliere et doit se faire imperativement par interface web.
Je rencontre un problème. Quand j'ecris l'une des cases, les caractaires sont differents sur la pages web.
Vous pouvez essayer pour vous en rendre compte...

J'ai essayé avec "GUICtrlSetData" et "GUICtrlRead" mais je ne comprend pas trop le fonctionnement de cette commande.

[Habibsbib]

Erreur lors de la conversion GUI\Html. Essaye une auttre commande, ou adapte mieux ton script : un GUICtrlRead ([la variable qui contient les inputs de ta GUI]) devrait suffire normalement.

[aikiox]

Bonjour,

Merci de ta reponse.
J'ai essayé ce que tu m'as dit. Sauf erreur de ma part, je n'ai pas reussi a faire fonctionner.

Voici le code :

► Afficher le texte

#include <GUIConstants.au3>
#include <IE.au3>



Opt("GUIOnEventMode", 1) ; Change to OnEvent mode


$gui1 = GUICreate("Création compte ManagerV3", 520, 225, -1, -1,-1,0x00000080) ; Création de la fenetre entiere avec son nom

$valider = GUICtrlCreateButton("Valider",455,195,55) ; Création bouton et se qu'il y aura ecrit dedans

$login = GUICtrlCreateLabel("Login", 120, 10, 50, 17)
$mdp = GUICtrlCreateLabel("Mot de Passe", 260, 10, 75, 17)
$nom = GUICtrlCreateLabel("Nom complet", 410, 10, 75, 17)
$dupliquer = GUICtrlCreateLabel("Compte à dupliquer",260,170,95,17)

$d1 = GUICtrlCreateInput("", 390, 165, 120, 21)


$c1 = GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
$l1 = GUICtrlCreateInput("", 70, 25, 120, 21)
$m1 = GUICtrlCreateInput("", 230, 25, 120, 21)
$n1 = GUICtrlCreateInput("", 390, 25, 120, 21)

$c2 = GUICtrlCreateLabel("Compte 2", 20, 52, 45, 17)
$l2 = GUICtrlCreateInput("", 70, 50, 120, 21)
$m2 = GUICtrlCreateInput("", 230, 50, 120, 21)
$n2 = GUICtrlCreateInput("", 390, 50, 120, 21)

$c3 = GUICtrlCreateLabel("Compte 3", 20, 78, 45, 17)
$l3 = GUICtrlCreateInput("", 70, 75, 120, 21)
$m3 = GUICtrlCreateInput("", 230, 75, 120, 21)
$n3 = GUICtrlCreateInput("", 390, 75, 120, 21)

$c4 = GUICtrlCreateLabel("Compte 4", 20, 104, 45, 17)
$l4 = GUICtrlCreateInput("", 70, 100, 120, 21)
$m4 = GUICtrlCreateInput("", 230, 100, 120, 21)
$n4 = GUICtrlCreateInput("", 390, 100, 120, 21)

$c5 = GUICtrlCreateLabel("Compte 5", 20, 130, 45, 17)
$l5 = GUICtrlCreateInput("", 70, 125, 120, 21)
$m5 = GUICtrlCreateInput("", 230, 125, 120, 21)
$n5 = GUICtrlCreateInput("", 390, 125, 120, 21)

GUICtrlSetOnEvent($valider,"ie") ; la consequence du clique du bouton
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ; permet de quitter avec la croix en haut a droite
GUISetState(@SW_SHOW)

While 1
sleep(100)
Wend




func ie()

GUIDELETE($gui1) ; ferme la fenetre principal
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked") ; permet de quitter avec la croix en haut a droite
GUISetState(@SW_SHOW)
BlockInput(0)
$oIE = _IECreate ("http://tiennot.romain.free.fr/managerv3.html",0,1) ; ouvre managerv3
_IELoadWait($oIE) ; attand la fenetre internet
winwaitactive("ManagerV3 : Nouvel Utilisateur - Windows Internet Explorer")
Msgbox(64, "Attention", "Cliquer sur Loging SVP")
sleep(2000)
GUICtrlRead($l1)




EndFunc



Func CLOSEClicked()
Exit
EndFunc

Cordialement
Romain

[Habibsbib]

En fait, Le GUICtrlRead permet d'obtenir la donnée d'un Input. Mais après, tu ne fais que la lire, il n'y a pas exploitation des données. Pour cela, stocke le GUICtrlRead($l1) dans une variable, comme ceci :

Code : Tout sélectionner

$cekilyademarkedansl1 = GUICtrlRead($l1)

Enjoy

[aikiox]

Merci !
Cela m'a beaucoup aidé et j'ai reussi a comprendre son fonctionnement. Malheuresement, la commande send a beaucoup de mal avec le HTML... J'ai contourné le problème grace a clicput.

Voici le code :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <IE.au3>



Opt("GUIOnEventMode", 1)                                                                ; Change to OnEvent mode


$gui1 = GUICreate("Création compte ManagerV3", 520, 225, -1, -1,-1,0x00000080)             ; Création de la fenetre entiere avec son nom

$valider = GUICtrlCreateButton("Valider",455,195,55)                                    ; Création bouton et se qu'il y aura ecrit dedans

$login = GUICtrlCreateLabel("Login", 120, 10, 50, 17)
$mdp = GUICtrlCreateLabel("Mot de Passe", 260, 10, 75, 17)
$nom = GUICtrlCreateLabel("Nom complet", 410, 10, 75, 17)
$dupliquer = GUICtrlCreateLabel("Compte à dupliquer",260,170,95,17)

$d1 = GUICtrlCreateInput("", 390, 165, 120, 21)


$c1 = GUICtrlCreateLabel("Compte 1", 20, 26, 45, 17)
$l1 = GUICtrlCreateInput("", 70, 25, 120, 21)
$m1 = GUICtrlCreateInput("", 230, 25, 120, 21)
$n1 = GUICtrlCreateInput("", 390, 25, 120, 21)

$c2 = GUICtrlCreateLabel("Compte 2", 20, 52, 45, 17)
$l2 = GUICtrlCreateInput("", 70, 50, 120, 21)
$m2 = GUICtrlCreateInput("", 230, 50, 120, 21)
$n2 = GUICtrlCreateInput("", 390, 50, 120, 21)

$c3 = GUICtrlCreateLabel("Compte 3", 20, 78, 45, 17)
$l3 = GUICtrlCreateInput("", 70, 75, 120, 21)
$m3 = GUICtrlCreateInput("", 230, 75, 120, 21)
$n3 = GUICtrlCreateInput("", 390, 75, 120, 21)

$c4 = GUICtrlCreateLabel("Compte 4", 20, 104, 45, 17)
$l4 = GUICtrlCreateInput("", 70, 100, 120, 21)
$m4 = GUICtrlCreateInput("", 230, 100, 120, 21)
$n4 = GUICtrlCreateInput("", 390, 100, 120, 21)

$c5 = GUICtrlCreateLabel("Compte 5", 20, 130, 45, 17)
$l5 = GUICtrlCreateInput("", 70, 125, 120, 21)
$m5 = GUICtrlCreateInput("", 230, 125, 120, 21)
$n5 = GUICtrlCreateInput("", 390, 125, 120, 21)


GUICtrlSetOnEvent($valider,"ie")                                                        ; la consequence du clique du bouton
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")                                         ; permet de quitter avec la croix en haut a droite
GUISetState(@SW_SHOW)

While 1
  sleep(100)
Wend




func ie()

$cl1 = GUICtrlRead($l1)
$cl2 = GUICtrlRead($l2)
$cl3 = GUICtrlRead($l3)
$cl4 = GUICtrlRead($l4)
$cl5 = GUICtrlRead($l5)
$cm1 = GUICtrlRead($m1)
$cm2 = GUICtrlRead($m2)
$cm3 = GUICtrlRead($m3)
$cm4 = GUICtrlRead($m4)
$cm5 = GUICtrlRead($m5)
$cn1 = GUICtrlRead($n1)
$cn2 = GUICtrlRead($n2)
$cn3 = GUICtrlRead($n3)
$cn4 = GUICtrlRead($n4)
$cn5 = GUICtrlRead($n5)
$cd1 = guictrlread($d1)


            $oIE = _IECreate ("http://tiennot.romain.free.fr/managerv3.html",0,1)   ; ouvre managerv3
            _IELoadWait($oIE)           ; attand la fenetre internet
            winwaitactive("http://tiennot.romain.free.fr/managerv3.html")
            Msgbox(64, "Attention", "Cliquer sur Loging SVP")
            sleep(2000)

            ;Premier Compte

            Clipput($cl1)
            send('^v')
            send("{tab}")





EndFunc



Func CLOSEClicked()
      Exit
EndFunc

[Tlem]

N'oubliez pas les balises de code.
Et si votre sujet est résolut, modifiez le titre du premier message.

[aikiox]

Merci,
C'est presque résolu, car je pense apporter des modifications et je pense que j'aurais besoin d'un certain nombre d'aide...

Cordialement
Romain

[aikiox]

J'ai modifier quelque peux le script.

Le voici en pièce jointe

Cordialement
Romain

[Tlem]

J'ai modifié votre message afin de mettre le code en pièce jointe.
Merci à l'avenir de ne pas mettre dans un message un code aussi long.