AutoIt Français

Code : Tout sélectionner

#include <SendMessage.au3>
#include <WindowsConstants.au3>

Global $Resultat
Global $_GRE_hUser32dll

Run("Notepad.exe")
sleep(300)
;$hWnd = ControlGetHandle("Document - WordPad", "", "RICHEDIT50W2") ; pour recup le handle de la zone de saisie du wordpad
$hWnd = ControlGetHandle("Sans titre", "", "Edit1") ; Pour recuperer le handle du Bloc note

$Resultat = _Paste($hWnd)
;$Resultat = __GCR_SendMessage($hWnd, $WM_PASTE, 0, 0) ; fonctionne aussi
;MsgBox(0,"test",$Resultat)

Func __GCR_SendMessage($hWnd, $iMsg, $wParam = 0, $lparam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lparam")
    If $_GRE_hUser32dll = 0 Then $_GRE_hUser32dll = DllOpen("user32.dll")
    Local $aResult = DllCall($_GRE_hUser32dll, $sReturnType, "SendMessage", "hwnd", $hWnd, "int", $iMsg, $wParamType, $wParam, $lParamType, $lparam)
    If @error Then Return SetError(@error, @extended, "")
    If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn]
    Return $aResult
EndFunc   ;==>__GCR_SendMessage

Func _Paste($hWnd)
    If Not IsHWnd($hWnd) Then Return SetError(101, 0, False)
    __GCR_SendMessage($hWnd, $WM_PASTE, 0, 0)
    Return True
EndFunc   ;==>_GUICtrlRichEdit_Paste

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI = GUICreate("TxtToNotePad", 340, 482, 192, 124)
$Edit = GUICtrlCreateEdit("", 8, 8, 321, 385)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("Envoi du texte dans le bloc-notes", 53, 404, 233, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$CtrlSend = GUICtrlCreateButton("ControlSend", 11, 440, 80, 30)
$CtrlSetText = GUICtrlCreateButton("ControlSetText", 128, 440, 80, 30, $BS_FLAT)
$ClipBoard = GUICtrlCreateButton("Press-Papier", 248, 440, 80, 30, $BS_FLAT)
GUISetState(@SW_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $CtrlSend
            Opt("SendKeyDelay", 0)
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            ; Ne surtout pas oublier le flag 1 du dernier paramètre, sinon parfois cela fait de drole de choses. ;)
            ; Essayez de coller le texte de l'aide de la commande Send et d'utiliser cette méthode sans le flag 1. hihi
            ControlSend("Sans titre - Bloc-notes", "", "[CLASS:Edit; INSTANCE:1]", GUICtrlRead($Edit), 1)

        Case $CtrlSetText
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            ControlSetText("Sans titre - Bloc-notes", "", "[CLASS:Edit; INSTANCE:1]", GUICtrlRead($Edit))

        Case $ClipBoard
            ClipPut(GUICtrlRead($Edit))
            Run("notepad.exe")
            WinWaitActive("Sans titre - Bloc-notes")
            Send("^v")

    EndSwitch
WEnd

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