AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
; etc ....
Opt("GUIOnEventMode", 1)

; bien évidement les variables sont renseignées en Global

$mainwindow = GUICreate($windows_name, 733, 520, -1, -1, $WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)


; foultitude de GUICtrlCreateLabel, GUICtrlCreateProgress faisant référence a divers clé de registre ainsi qu'un fichier .INF etc...

$lanceInstall = GUICtrlCreateButton($RunTxt, 360, 424, 140, 30)
$retardeInstall = GUICtrlCreateButton($DelayTxt, 560, 424, 140, 30)

GUICtrlSetOnEvent($lanceInstall, "lanceInstall")
GUICtrlSetOnEvent($retardeInstall, "retardeInstall")

GUISetState(@SW_SHOW, $mainwindow)

; je vous épargne les paramètres de boucle mais dans l'ensemble ça ressemble a ça :
; la variable $temp_initial fait référence au fichier .INI

$startexetimer = TimerInit()
Do
    Sleep(200)

    If TimerDiff($startexetimer) >= 1000 Then
        $temp_initial = ($temp_initial - 1)
        $startexetimer = TimerInit()
        GUICtrlSetData ; mise a jour de GUICtrlCreateLabel (compte a rebourd)
    EndIf

Until $temp_initial <= 0

If $user_demande_report <= $repport_install_maximum Then ; maximum de report définis par .INI
    
    Do 
        ; compte a rebourd en attendant une interaction de l'utilisateur par un des deux boutons ($lanceInstall ou $retardeInstall)
        ; si l'utilisateur ne répond pas alors installation forcée
    Until
    
    ;encore plein de paramètres de test de registre et autre
    
    lanceInstall() ;appel d'une fonction qui lance l'install d'un software
    
EndIf
    

Func retardeInstall()

    messageboxretard() ; je me suis servis d'une fonction pour créer ma message box personnalisée avec compte a rebourd
    ; avec un MsgBox clasique tout fonctionne parfaitement !!!
    
        ; le code retour est : 0 pour un timeout / 1 pour OUI / 2 pour non (mais là le script continue)
        ; incrémentation d'une variable $user_demande_report 
        
        ;tout un tas de If / EndIf dont voici un exemple
        
        If $report = $nombre_report Then GUICtrlDelete($retardeInstall)
        
        ; en fonction de certains critères l'installation du software se lance

EndFunc 


Func lanceInstall()

    messageboxinstall()
        ; le code retour est : 0 pour un timeout / 1 pour OUI / 2 pour non (mais là le script continue)
        If $retourretardbouton = 1 Or $retourretardbouton = 0 Then
            lanceInstall() ;appel d'une fonction qui lance l'install d'un software
        EndIf

EndFunc

;
;
; A priori mon problème se pose précisement a cet endroit : le "focus" ne se fait pas sur les boutons
; j'ai lancé l'autoIt debug mais mon "interaction" avec les boutons ne passe pas :'(
; alors qu'une MessageBox toute simple ne pose aucun problème
;
;

Func messageboxretard()
    
    GUISetState(@SW_HIDE, $mainwindow)
    $messageboxretard = GUICreate($titre_retard_box, 600, 300, -1, -1, $WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)

    ; encore plein de GUICtrlCreateLabel 
    $yes_retard_button = GUICtrlCreateButton($DelayTxt, 145, 220, 140, 30)
    $no_retard_button = GUICtrlCreateButton($CancelTxt, 315, 220, 140, 30)
    GUISetState(@SW_SHOW, $messageboxretard)
    
    GUICtrlSetOnEvent($yes_retard_button, "retard_yes_button")
    GUICtrlSetOnEvent($no_retard_button, "retard_no_button")
    

    Do 
        ; compte a rebourd en attendant une interaction de l'utilisateur par un des deux boutons ($yes_retard_button ou $no_retard_button)
        ; si l'utilisateur ne répond pas alors installation forcée
    Until

    GUISetState(@SW_HIDE, $messageboxretard)
    GUIDelete($messageboxretard)
    GUISetState(@SW_SHOW, $mainwindow)

EndFunc 



Func messageboxinstall() 
    
    GUISetState(@SW_HIDE, $mainwindow)
    $messageboxinstall = GUICreate($titre_retard_box, 600, 300, -1, -1, $WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOPMOST)

    ; encore plein de GUICtrlCreateLabel 
    $yes_install_button = GUICtrlCreateButton($DelayTxt, 145, 220, 140, 30)
    $no_install_button = GUICtrlCreateButton($CancelTxt, 315, 220, 140, 30)
    GUISetState(@SW_SHOW, $messageboxinstall)
    
    GUICtrlSetOnEvent($yes_install_button, "install_yes_button")
    GUICtrlSetOnEvent($no_install_button, "install_no_button")
    

    Do 
        ; compte a rebourd en attendant une interaction de l'utilisateur par un des deux boutons ($yes_install_button ou $no_install_button)
        ; si l'utilisateur ne répond pas alors installation forcée
    Until

    GUISetState(@SW_HIDE, $messageboxinstall)
    GUIDelete($messageboxinstall)
    GUISetState(@SW_SHOW, $mainwindow)

EndFunc   ;==>messageboxinstall

; mon besoin ici est de pouvoir loguer toutes les actions de façon bien distincte

Func retard_yes_button()
    _FileWriteLog("C:\_Logfiles\InfPrePatch_NewVersion.log", "###  postpone button presed is " & $DelayTxt, -1)
    $retourretardbouton = 1
    $temp_affichage_retard_box = "0" ;sortie de la boucle "until"

EndFunc   ;==>retard_yes_button

Func retard_no_button()
    _FileWriteLog("C:\_Logfiles\InfPrePatch_NewVersion.log", "###  postpone button presed is " & $CancelTxt, -1)
    $retourretardbouton = 2
    $temp_affichage_retard_box = "0" ;sortie de la boucle "until"

EndFunc   ;==>retard_no_button


Func install_yes_button()
    _FileWriteLog("C:\_Logfiles\InfPrePatch_NewVersion.log", "###  installation button presed is " & $RunTxt, -1)
    $retourinstallbouton = 1
    $temp_affichage_install_box = "0" ;sortie de la boucle "until"

EndFunc   ;==>install_yes_button

Func install_no_button()
    _FileWriteLog("C:\_Logfiles\InfPrePatch_NewVersion.log", "###  installation button presed is " & $CancelTxt, -1)
    $retourinstallbouton = 2
    $temp_affichage_install_box = "0" ;sortie de la boucle "until"

EndFunc   ;==>install_no_button

Func lanceInstall()
    ; install du software
EndFunc

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 570, 216, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Button1 = GUICtrlCreateButton("Button1", 64, 88, 145, 57, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Button2", 256, 88, 209, 65, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(100)
WEnd

Func Button1Click()

EndFunc
Func Button2Click()

EndFunc
Func Form1Close()

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc


 

Code : Tout sélectionner

#include <GUIConstants.au3>

Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 570, 216, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Button1 = GUICtrlCreateButton("Button1", 64, 88, 145, 57, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Button2", 256, 88, 209, 65, 0)
GUICtrlSetOnEvent(-1, "Button2Click")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($Button2,$GUI_FOCUS)
While 1
    Sleep(100)
WEnd

Func Button1Click()

EndFunc
Func Button2Click()

EndFunc
Func Form1Close()

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc


 

Code : Tout sélectionner

; ************ Constants and declaration ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>
#include <DateTimeConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

Global $gui2
;Opt ( "TrayIconHide", 1 )
Opt("GUIOnEventMode", 1)
Opt("GUICoordMode", 1)
opt("TrayIconDebug",1)





$gui1 = GUICreate("Gui1",400,400,-1,-1)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"quitter")
$bouton = GUICtrlCreateButton("Bouton",50,50,50,50)
GUICtrlSetOnEvent(-1,"gui2")
Global $timer = 15
Global $_timer, $_tps

While 1
    Sleep(100)
    
WEnd


Func gui2()
    $gui2 = GUICreate("gui2",200,200,-1,-1)
    GUISetOnEvent($GUI_EVENT_CLOSE,"closechild")
    Global $exe = GUICtrlCreateButton("Executer",10,10,100,40)
    Global $_tps = GUICtrlCreateLabel("",10,100,100,40)
    
    GUISetState(@SW_SHOW)
    
    GUISetState(@SW_HIDE,$gui1)
    
    $_timer = TimerInit()
    
    AdlibEnable("timer",10)

    
EndFunc

Func timer()
    AdlibDisable()
    While $timer > 0 
    $diff = TimerDiff($_timer)/1000
    $timer = 15 - Round($diff,0)
    
    GUICtrlSetData($_tps,$timer)
    Sleep(300)
WEnd
closechild()


EndFunc


Func closechild()
    GUIDelete($gui2)
    Sleep(200) 
    GUISetState(@SW_SHOW,$gui1)
EndFunc


Func quitter()
    Exit
EndFunc