AutoIt Français

Code : Tout sélectionner

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

Example()

; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
Func Example()
    Local $oIE, $GUI_Button_Back, $GUI_Button_Forward
    Local $GUI_Button_Home, $GUI_Button_Stop, $msg

    $oIE = ObjCreate("Shell.Explorer.2")

    ; Create a simple GUI for our output
    GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
    GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 420, 100, 30)

    GUISetState() ;Show GUI

    $oIE.navigate("http://www.autoitscript.com")

    ; Waiting for user to close the window
    While 1
        $msg = GUIGetMsg()

        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $GUI_Button_Home
                $oIE.navigate("http://www.autoitscript.com")
            Case $msg = $GUI_Button_Back
                $oIE.GoBack
            Case $msg = $GUI_Button_Forward
                $oIE.GoForward
            Case $msg = $GUI_Button_Stop
                $oIE.Stop
        EndSelect

    WEnd

    GUIDelete()
EndFunc   ;==>Example

Code : Tout sélectionner

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>
#include <IE.au3>

$oIE = _IECreateEmbedded ()
#Region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Mailing avec plusieurs pièces jointes", 965, 824, 189, 130, $WS_SIZEBOX)
GUICtrlCreateObj($oIE, 16, 256, 929, 491)
    GUICtrlSetResizing(-1 , $GUI_DOCKBORDERS)
Global $Label1 = GUICtrlCreateLabel("Fichier Excel des emails + pièce jointe personnalisée", 16, 17, 117, 16)
Global $Input1 = GUICtrlCreateInput("", 16, 32, 657, 24)
Global $Button1 = GUICtrlCreateButton("Selectionner", 680, 32, 75, 24)
Global $Label2 = GUICtrlCreateLabel("Pièce jointe commune 1", 16, 64, 117, 16)
Global $Input2 = GUICtrlCreateInput("", 16, 80, 273, 24)
Global $Button2 = GUICtrlCreateButton("Selectionner", 296, 80, 75, 24)
Global $Label3 = GUICtrlCreateLabel("Pièce jointe commune 2", 16, 112, 117, 16)
Global $Input3 = GUICtrlCreateInput("", 16, 128, 273, 24)
Global $Button3 = GUICtrlCreateButton("Selectionner", 296, 128, 75, 24)
Global $Label4 = GUICtrlCreateLabel("Pièce jointe commune 3", 400, 64, 117, 16)
Global $Input4 = GUICtrlCreateInput("", 400, 80, 273, 21)
Global $Button4 = GUICtrlCreateButton("Selectionner", 680, 80, 75, 24)
Global $Label5 = GUICtrlCreateLabel("Pièce jointe commune 4", 400, 112, 117, 16)
Global $Input5 = GUICtrlCreateInput("", 400, 128, 273, 21)
Global $Button5 = GUICtrlCreateButton("Selectionner", 680, 128, 75, 24)
Global $Label6 = GUICtrlCreateLabel("Objet du mail :", 16, 184, 82, 16)
Global $Input6 = GUICtrlCreateInput("", 16, 200, 617, 24)
;Global $Checkbox1 = GUICtrlCreateCheckbox("HTML", 656, 200, 47, 17)
Global $Label7 = GUICtrlCreateLabel("Message:", 16, 240, 50, 16)
;Global $Edit1 = GUICtrlCreateEdit("", 16, 256, 929, 441)

Global $Pic1 = GUICtrlCreatePic(@scriptdir & "\logo.jpg", 840, 27, 75, 75)

GUICtrlSetData(-1, "")
Global $Button6 = GUICtrlCreateButton("GO !", 864, 762, 75, 25)

Global $Group1 = GUICtrlCreateGroup("Confirmations", 720, 168, 137, 73)
Global $confirm_envoi = GUICtrlCreateCheckbox("Envoi", 736, 192, 97, 17)
Global $confirm_lecture = GUICtrlCreateCheckbox("Lecture", 736, 216, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###