[..] Les fenêtres

[linvi]

Bonjour,

Voilà un nouveau topic pour approfondir les fonctions utilisées par les fenêtres.
Je donnerais certaines infos sur mon prochain post (pas beaucoup de temps là), et j'aimerais savoir comment faire pour avoir une fenêtre normale, c'est à dire une fenêtre avec les 3 icones actives

J'ai essayé tous les Styles proposés mais aucun ne m'as permis d'avoir les 3

Voilà.
Je vous souhaite une bonne soirée et à demain

[sylvanie]

Le style est :
$WS_OVERLAPPEDWINDOW
dispo via

Code : Tout sélectionner

#include<WindowsConstants.au3>

détails tirés de l'aide :
Creates an overlapped window with the WS_OVERLAPPED, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME, WS_MINIMIZEBOX, and WS_MAXIMIZEBOX styles. Same as the WS_TILEDWINDOW style.

[linvi]

Merci à toi sylvanie, en faisant la recherche j'ai trouvé pas mal de choses sympa sur la gestion des fenêtres que je n'avais pas trouvé.

Saurais tu comment faire pour faire en sorte que l'image de fond de l'executable soit transparente? (sachant que l'image en elle même n'est pas transparente)

J'ai essayé plusieurs manières pour la créer mais aucune n'a fonctionnée, chacunes me faisant des actions trés bizarre.

Code : Tout sélectionner

Global $GUI = GUICreate("Firefox Download Automatization", 300, 200, -1, -1,$WS_OVERLAPPEDWINDOW,$WS_EX_LAYERED)

Rien de particulier

Code : Tout sélectionner

Global $GUI = GUICreate("Firefox Download Automatization", 300, 200, -1, -1,$WS_OVERLAPPEDWINDOW,$WS_EX_TRANSPARENT)

Fenêtre intouchable, je pense que j'ai pas bien compris la définition donnée en anglais pour ce style

Code : Tout sélectionner

Global $GUI = GUICreate("Firefox Download Automatization", 300, 200, -1, -1,$WS_OVERLAPPEDWINDOW,$WS_EX_LAYERED)

Cela fait clignoter de plus en plus vite toutes mes fenêtres windows et je ne peux même plus utiliser le gestionnaire des taches.
Explorer semble tomber à chaque fois et l'écran freeze.
Pour refaire fonctionner windows, la seule solution est de redémarrer la session ^^

Mon code complet si besoin

► Afficher le texteCode complet

Code : Tout sélectionner

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

Global $Url,$MainButton,$temp,$ButtonQuit,$progressbar1,$ButtonStop,$percentage
[b]Global $GUI = GUICreate("Firefox Download Automatization", 300, 200, -1, -1,$WS_OVERLAPPEDWINDOW,$WS_EX_LAYERED)[/b]
GUICtrlSetColor (- 1 , 32250) ;thème Windows
WinSetTrans("Firefox Download Automatization","",210); Défini la transparence de la fenêtre

Init()

GUISetState(@SW_SHOW)
GUICtrlSetState($MainButton, $GUI_FOCUS)
GUICtrlSetState($ButtonQuit, $GUI_HIDE)
GUICtrlSetState($ButtonStop, $GUI_HIDE)
$percentage = 0

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $MainButton
            If ($temp <> "Install") Then
                Download_Firefox()
            Else
                Install_Firefox()
            EndIf
        Case $GUI_EVENT_RESIZED
            $InfoBox = WinGetPos($GUI)
            $Width = $InfoBox[2]
            $Height = $InfoBox[3]
        Case $GUI_EVENT_CLOSE
            ExitLoop
        Case $ButtonQuit
            ExitLoop
    EndSwitch
WEnd

Func Init()

    Global $Url = "http://download.mozilla.org/?product=firefox-3.0rc2&os=win&lang=fr"

    $InfoBox = WinGetPos($GUI)
    $Width = $InfoBox[2]
    $Height = $InfoBox[3]
    $picb = GUICtrlCreatePic("C:\firefox.jpg",0,0,300,200,BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
    $txt1 = GUICtrlCreateLabel("This Program will help you to download automatically the", 10, 30)
    $txt2 = GUICtrlCreateLabel("last version of Firefox!",95 , 50)
    GUICtrlSetBkColor ( $txt1 , $GUI_BKCOLOR_TRANSPARENT  )
    GUICtrlSetBkColor ( $txt2 , $GUI_BKCOLOR_TRANSPARENT  )

    Global $MainButton = GUICtrlCreateButton("Download" , 160, 125, 80 , 35) ; bouton
    Global $ButtonStop = GUICtrlCreateButton("Stop", 250, 125, 30, 35)
    Global $ButtonQuit = GUICtrlCreateButton("Quit", 250, 125, 30, 35)
    Global $grouppercent = GUICtrlCreateGroup("", 10,120, 60,40)
    Global $grouppercent = GUICtrlCreateGroup("", 99, 99, 1 ,1)
    Global $progressbar1 = GUICtrlCreateProgress (10 , 170 , 280 , 20) ; processbar


    If (FileExists(@DesktopDir&"/Install-FireFox.exe") = 1) Then
    ;   $FileSizeIn = FileGetSize (@DesktopDir&"/Install-FireFox.exe")
    EndIf

    ;If ($FileSize = $FileSizeIn) Then
    ;   GUICtrlSetData($MainButton , "Install")
    ;EndIf
    $temp = GUICtrlRead($MainButton)
    
EndFunc

Func Download_Firefox()
    GUICtrlSetData ( $progressbar1 , 0 )
    GUICtrlSetState($ButtonQuit, $GUI_HIDE)
    GUICtrlSetState($MainButton, $GUI_DISABLE)
    GUICtrlSetState($ButtonStop, $GUI_SHOW)
    GUICtrlSetState($ButtonStop, $GUI_FOCUS)
    $FileSize = InetGetSize ( $Url ) ; ceci calcul la taille de ton fichier qui se trouve sur internet
    InetGet( $Url , @DesktopDir&"/Install-FireFox.exe", 1, 1);il sera dl sur le bureau
    $txt3 = GUICtrlCreateLabel($percentage & "%", 15, 135)
    GUICtrlSetBkColor ( $txt3 , $GUI_BKCOLOR_TRANSPARENT  )
    While @InetGetActive
        ;$i = TrayTip("Download...",  Int ( ( @InetGetBytesRead * 100 ) / $FileSize )&" %", 10, 16)
        GUICtrlSetData ( $progressbar1 , Int ( ( @InetGetBytesRead * 100 ) / $FileSize ) )
        ;$percentage= (Int(( @InetGetBytesRead * 100 )*100 / $FileSize)/10)
            ;GUICtrlCreateLabel(Int(( @InetGetBytesRead * 100 )*10 / $FileSize)/10, 60, 90)
        If ($percentage <> (Int(( @InetGetBytesRead * 100 ) / $FileSize))) Then
            $percentage= (Int(( @InetGetBytesRead * 100 ) / $FileSize))
            GUICtrlDelete($txt3)
            $txt3 = GUICtrlCreateLabel($percentage & "%", 15, 135)
            GUICtrlSetBkColor ( $txt3 , $GUI_BKCOLOR_TRANSPARENT  )
        EndIf
        Sleep(50)
        $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $ButtonStop
                    FileDelete("Install-Firefox.exe")
                    ExitLoop
                Case $GUI_EVENT_CLOSE
                    Exit
            EndSwitch
    Wend
    If (Int ((@InetGetBytesRead * 100 ) / $FileSize) = 100) Then
        $percentage= (Int(( @InetGetBytesRead * 100 ) / $FileSize))
        $txt3 = GUICtrlCreateLabel($percentage & "%", 15, 135)
        GUICtrlSetBkColor ( $txt3 , $GUI_BKCOLOR_TRANSPARENT  )
        $i = TrayTip("Download Done!", "Firefox Download is complete!", 10 , 1)
        GUICtrlSetData($MainButton , "Install")
        WinSetTitle("Firefox Download Automatization","","Install Firefox");Changement du titre de la barre
    Else    
        $i = TrayTip("Download Aborted!", "Firefox Install has been removed!", 10)
    EndIf
    $temp = GUICtrlRead($MainButton)
    GUICtrlSetState($ButtonQuit, $GUI_SHOW)
    GUICtrlSetState($MainButton, $GUI_ENABLE)
    GUICtrlSetState($ButtonStop, $GUI_HIDE)
    GUICtrlDelete($txt3)
    Sleep(1000)
EndFunc

Func Install_Firefox()
    GUICtrlSetState($ButtonQuit, $GUI_SHOW)
    Run(@DesktopDir&"/Install-FireFox.exe")
    WinWaitActive("Installation de Mozilla Firefox")
    Sleep(300)
    send("{ENTER}")
    WinWaitActive("Installation de Mozilla Firefox","Accord de licence")
    Sleep(300)
    send("{TAB}")
    send("{SPACE}")
    send("{ENTER}")
    WinWaitActive("Installation de Mozilla Firefox","Type d'installation")
    Sleep(300)
    send("{ENTER}")
    WinWaitActive("Installation de Mozilla Firefox","Résumé")
    Sleep(300)
    send("{ENTER}")
    WinWaitActive("Installation de Mozilla Firefox","Fin de l'assistant d'installation de Mozilla Firefox")
    Sleep(300)
    send("{ENTER}")
    Sleep(300)
EndFunc

Pouvez vous m'aider svp