AutoIt Français

Code : Tout sélectionner

#include <GUIConstants.au3>
#include<misc.au3>
#include<ie.au3>
Opt("GUIOnEventMode", 1)
Global $oieh
$Form1 = GUICreate("Form1", 625, 445, 193, 125)
$pic2 = _GUICtrlCreateGIF(@ScriptDir & "\" & "ordi.gif")

$www1 = ControlGetHandle($Form1, "", $oieh) ; oieh est définit dans GuictrlCreateGif



IniWrite("testtt.ini", $oieh, "Name", "test")
MsgBox(0, "", $oieh)
ObjEvent($pic2, "Pic1Click")
GUISetState(@SW_SHOW)


While 1
    Sleep(100)
WEnd

Func Pic1Click()
    If _IsPressed("01", "user32.dll") Then
        $www = ControlGetHandle($Form1, "", @COM_EventObj) ; Récupération du handle du gif
        
        $test = IniRead("testtt.ini", $www, "Name", "Erreur")
        MsgBox(0, $www, " " & $test)
        If $test = "Erreur" Then
            Exit
        EndIf


    EndIf
EndFunc   ;==>Pic1Click





;===============================================================================
;   UDF Name: _AnimatedGif.au3
;
;   Version v1.0.0  Oct 12, 2006, built with Autoit 3.2.1.3
;
;   Authors:  gafrost, elgabionline, lod3n
;
;   Contribution: Ed_Maximized
;
;   Email: <edmundofasano [at] gmail [dot] com>
;
;   Use: Creation of an animated GIF control and functions to stop/resume animation
;===============================================================================
#include-once
;===============================================================================
;
; Function Name:    _GUICtrlCreateGIF()
; Description:      Create an Animated GIF control
; Parameter(s):     $gif        [required]      path and filename of the animated GIF
;                   $x          [optional]        x pos of the top-left corner
;                   $y          [optional]  y pos of the top-left corner
;                   $border  [optional]      0 = no border
;                                    any other = sunken border
; Requirement(s):   #include <IE.au3>
; Return Value(s):
;               controlID of the control created
; Author(s):        elgabionline, gafrost, Ed_Maximized
;
;===============================================================================
Func _GUICtrlCreateGIF($gif, $x = 0, $y = 0, $border = 0)
    Local $pwidth, $pheight, $oIE, $GUIActiveX
    _GetGifPixWidth_Height($gif, $pwidth, $pheight)
    
    
    $oIE = ObjCreate("Shell.Explorer.2")
    
    $GUIActiveX = GUICtrlCreateObj($oIE, $x, $y, $pwidth, $pheight)
    
    $oIE.navigate("about&#058;blank")
    While _IEPropertyGet($oIE, "busy")
        Sleep(100)
    WEnd
    $oIE.document.body.background = $gif
    $oIE.document.body.scroll = "no"
    If $border = 0 Then $oIE.document.body.style.border = "0px"
    
    
    Return $oIE
    $oieh = ControlGetHandle($Form1, "", $oIE)
    
EndFunc   ;==>_GUICtrlCreateGIF

;===============================================================================
;
; Function Name:    _GetGifPixWidth_Height()
; Description:      return the size of a GIF image in pixels
; Parameter(s):     $s_gif    [required]    path and filename of the animated GIF
;
; Requirement(s):   #include <IE.au3>
; Return Value(s):
;               $pwidth = width of the GIF in pixels
;               $pheight = height of the GIF in pixels
; Author(s):        gafrost
;
;===============================================================================
Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
    
    If FileGetSize($s_gif) > 9 Then
        Local $sizes = FileRead($s_gif, 10)
        ;ConsoleWrite("Gif version: " & StringMid($sizes, 1, 6) & @LF)
        $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
        $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
        ;ConsoleWrite($pwidth & " x " & $pheight & @LF)
        
    EndIf
EndFunc   ;==>_GetGifPixWidth_Height