AutoIt Français

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