AutoIt Français

Bonjour ,

Je fais quelques GUI depuis peu et j'aurai bien voulu savoir ce que je peux faire comme simplifications dans mes codes que je trouve un peu longs...

Cette GUI servira d'interface pour lancer un programme externe à partir du fichier .ini que je créer.

Voila ce que donne ma GUI

► Afficher le texte

Et voila le code :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.2.10.0
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Autheur    :        Cyril
;
; Fonction du script : Enregistrer des données dans un fichier .ini
;
;
;
; Version 1.0 : 01.08.2008
;           - Première Version.

; ----------------------------------------------------
; -------------------- Section III --------------------
; ----------------------------------------------------
; Déclarations Diverses.
#include <IE.au3>
#include <GUIConstants.au3>
#include <File.au3>

Global $version_interface = "1.0"
Global $version_Autoclics = "3.0"
Global $Paused
Global $Fichier_INI = @ScriptDir & "\preferences.ini"
Global $font="Arial"

$langue = IniRead($Fichier_INI, "langue", "langage", "fr")
if  $langue="en" then 
    Global $wintitle = "Autoclics GUI "&$version_interface&" for Autoclics "&$version_Autoclics 
Else
    Global $wintitle = "Autoclics GUI "&$version_interface&" pour Autoclics "&$version_Autoclics 
EndIf
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

; ----------------------------------------------------
; -------------------- Section IV --------------------
; ----------------------------------------------------

; Fenetre principale.
$GUI_MAIN2 = GUICreate($wintitle,550,382,400,0)
$Img = GUICtrlCreatePic(@ScriptDir & "\images\fond.jpg",0 , 0, 0, 0,BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUISetIcon ( @ScriptDir & "\images\Autoclic.ico","Autoclic.ico" )

;récupération des données du fichier .ini
$progression=IniRead($Fichier_INI, "progression", "progression", "non")
$inscrire_lien=IniRead($Fichier_INI, "inscrirelien", "inscrirelien", "4")
$lien_inscrit=IniRead($Fichier_INI, "lienainscrire", "lienainscrire", "http://")
$date_inscrite=IniRead($Fichier_INI, "dateinscription", "dateinscription", "-1")
if  $langue="en" then 
    $autres_dates="Automatic (recommanded)|Tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)"
    if $date_inscrite="-1" then $date_inscrite="Automatic (recommanded)" 
    if $date_inscrite="0"  then $date_inscrite="Today (not recommanded)" 
    if $date_inscrite="1" then $date_inscrite="Tomorrow"
    if $date_inscrite="2" then $date_inscrite="In 2 days" 
    if $date_inscrite="3" then $date_inscrite="In 3 days"
    if $date_inscrite="4" then $date_inscrite="In 4 days" 
    if $date_inscrite="5" then $date_inscrite="In 5 days"
    if $date_inscrite="6" then $date_inscrite="In 6 days" 
else 
    $sData = "langage=fr"
    IniWriteSection($Fichier_INI, "langue", $sData)
    $autres_dates="Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)"
    if $date_inscrite="-1" then $date_inscrite="Automatique (conseillé)"
    if $date_inscrite="0"  then $date_inscrite="Aujourd'hui (déconseillé)" 
    if $date_inscrite="1" then $date_inscrite="Demain"
    if $date_inscrite="2" then $date_inscrite="Dans 2 jours" 
    if $date_inscrite="3" then $date_inscrite="Dans 3 jours"
    if $date_inscrite="4" then $date_inscrite="Dans 4 jours" 
    if $date_inscrite="5" then $date_inscrite="Dans 5 jours"
    if $date_inscrite="6" then $date_inscrite="Dans 6 jours" 
EndIf
$pseudo=IniRead($Fichier_INI, "pseudo", "pseudo", "")
$mdp=IniRead($Fichier_INI, "mdp", "mdp", "")
$modeauto=IniRead($Fichier_INI, "modeauto", "modeauto", "4")
$modeintel=IniRead($Fichier_INI, "modeintel", "modeintel", "4")
$marge=IniRead($Fichier_INI, "marge", "marge", "5000")
$connectsimult=IniRead($Fichier_INI, "connectsimult", "connectsimult", "20")
            
;Entète de présentation

;choix de langue Français/Anglais
$Francais=GUICtrlCreateButton ( "FR", 30, 7,32,32 , $BS_ICON )
GUICtrlSetImage (-1, @ScriptDir & "\images\Français.ico","Français.ico")
$Anglais=GUICtrlCreateButton ( "EN", 488, 7,32,35 , $BS_ICON )
GUICtrlSetImage (-1, @ScriptDir & "\images\Anglais.ico","Anglais.ico")

$LeVisiteur=GUICtrlCreateEdit("Le Visiteur Ultra Rapide",150,10,250,25,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,12, 800, 2, $font)    
GUICtrlSetBkColor (-1,0xFF8040)
$option=GUICtrlCreateEdit("Cette interface vous permet de configurer le Visiteur Ultra Rapide, et éventuellement d'effectuer l'inscription d'un lien sans passer par Autoclics",35,45,480,30,$ES_READONLY+$ES_CENTER,$WS_EX_TRANSPARENT )
GUICtrlSetFont (-1,8, 400, 2, $font)    

;barre séparatrice centrale
GUICtrlCreateInput('',275,85,2,230,$ES_READONLY)
GUICtrlSetBkColor (-1,0x0000FF)

;Partie de gauche 

;Progression
$display=GUICtrlCreateEdit("Afficher la progression",52,92,170,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,9, 600, 2, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_display = GUICtrlCreateCheckbox  ("", 130, 132, 14, 14)
if $progression="oui" then GUICtrlSetState ($box_display, $GUI_CHECKED)
if $progression="non" then GUICtrlSetState ($box_display, $GUI_UNCHECKED)

;barre séparatrice horizontale
GUICtrlCreateInput('',37,162,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;Nombre de visites simultanées
$simult=GUICtrlCreateEdit("Visites simultanées (1-35)",50,174,175,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,9, 600, 2, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$input_simult=GuiCtrlCreateInput($connectsimult, 122, 209, 30, 21)
GUICtrlSetFont (-1,10, 600, 1, $font)    

;barre séparatrice horizontale
GUICtrlCreateInput('',37,240,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;inscription d'un lien
$inscription=GUICtrlCreateEdit("Inscrire un lien",50,252,175,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetBkColor (-1,0x99FF66)
GUICtrlSetFont (-1,9, 600, 2, $font)    
$box_inscrire = GUICtrlCreateCheckbox  ("", 130, 292, 14, 14)
if $inscrire_lien="1" then GUICtrlSetState ($box_inscrire, $GUI_CHECKED)
if $inscrire_lien="0" then GUICtrlSetState ($box_inscrire, $GUI_UNCHECKED)

;partie de droite

;partie option du lien
$optionLien=GUICtrlCreateEdit("Options pour l'inscription d'un lien",312,85,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;lien à inscrire
$lien=GUICtrlCreateEdit("Lien à inscrire",290,112,75,20,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$lien_a_inscrire=GUICtrlCreateInput($lien_inscrit,370,112,175,20)
GUICtrlSetFont (-1,7, 400,1 , $font)    

;date d'inscription
$date=GUICtrlCreateEdit("Inscrire ce lien pour",290,138,100,20,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$date_a_inscrire=GuiCtrlCreatecombo($date_inscrite, 395, 138, 150, 20)
GUICtrlSetFont (-1,7, 400, 1, $font)    
if $langue="fr" then 
    $dateDinscription=GUICtrlSetData(-1,"Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)")
Else
    $dateDinscription=GUICtrlSetData(-1,"Automatic (recommanded)|Tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)")
EndIf

;barre séparatrice horizontale
GUICtrlCreateInput('',312,165,195,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;partie visites
$miniville=GUICtrlCreateEdit("Options pour visitors",312,175,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;barre séparatrice centrale
GUICtrlCreateInput('',412,200,2,57,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;mode auto
$auto=GUICtrlCreateEdit("Mode automatique",290,200,90,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_automatique = GUICtrlCreateCheckbox  ("", 385, 200, 14, 15)
if $modeauto="1" then GUICtrlSetState ($box_automatique, $GUI_CHECKED)
if $modeauto="0" then GUICtrlSetState ($box_automatique, $GUI_UNCHECKED)

;mode intelligent
$intel=GUICtrlCreateEdit("Mode intelligent",425,200,90,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_intelligent = GUICtrlCreateCheckbox  ("", 520, 200, 14, 15)
GUICtrlSetFont (-1,7, 400, 1, $font)    
if $modeintel="1" then GUICtrlSetState ($box_intelligent, $GUI_CHECKED)
if $modeintel="0" then GUICtrlSetState ($box_intelligent, $GUI_UNCHECKED)

;marge intelligent
$margeintel=GUICtrlCreateEdit("Marge d'accueil",425,220,70,33,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$input_marge=GUICtrlCreateInput($marge,500,230,45,16)
GUICtrlSetFont (-1,7, 400, 1, $font)    

;barre séparatrice horizontale
GUICtrlCreateInput('',312,261,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;partie modif

;entete
$modif=GUICtrlCreateEdit("Pour pouvoir modifier votre lien plus tard",312,273,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;pseudo et pass
$Pseudon=GUICtrlCreateEdit("Pseudo",290,300,50,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)
GUICtrlSetBkColor (-1,0x99FF66)
$input_pseudo=GUICtrlCreateInput($pseudo,345,300,65,16)
GUICtrlSetFont (-1,7, 400, 1, $font)
$mdpass=GUICtrlCreateEdit("Mot de passe",420,300,65,16,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)
GUICtrlSetBkColor (-1,0x99FF66)
$input_mdp=GUICtrlCreateInput($mdp,490,300,55,16,$ES_PASSWORD)
GUICtrlSetFont (-1,7, 400, 1, $font)

;barre séparatrice
GUICtrlCreateInput('',10,325,530,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x0000FF)

;Bouton d'enregistrement des variables
$lancerVisites=GUICtrlCreateButton ("Enregistrer Infos", 210,342,130,30  )
GUICtrlSetBkColor (-1,0xFF6A6A)

;bouton factice
$bouton_droite = GUICtrlCreateButton ("Un autosurf ultra-rapide!",370,345,170,25)
GUICtrlSetFont (-1,7, 400, 2, $font)    
GUICtrlSetBkColor (-1,0xB5BCF2)

;Traduction des cadres en fonction du language
if $langue="fr" then
            GUICtrlSetData($LeVisiteur,"Le visiteur Ultra Rapide")
            GUICtrlSetData($inscription,"Inscrire un lien" )
            GUICtrlSetData($date,"Inscrire ce lien pour")
            GUICtrlSetData($dateDinscription,"Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)")
            GUICtrlSetData($lien,"Lien à inscrire")
            GUICtrlSetData($option,"Cette interface vous permet de configurer le Visiteur Ultra Rapide, et éventuellement d'effectuer l'inscription d'un lien sans passer par Autoclics")
            GUICtrlSetData($optionLien,"Options pour l'inscription d'un lien")
            GUICtrlSetData($display,"Afficher la progression")
            GUICtrlSetData($simult,"Visites simultanées (1-35)")
            GUICtrlSetData($lancerVisites,"Enregistrer Infos")
            GUICtrlSetData($modif,"Pour pouvoir modifier votre lien plus tard")
            GUICtrlSetData($Pseudon,"Pseudo" )
            GUICtrlSetData($mdpass,"Mot de passe")
            GUICtrlSetData($miniville,"Options pour visitors")
            GUICtrlSetData($auto,"Mode automatique")
            GUICtrlSetData($intel,"Mode intelligent")
            GUICtrlSetData($margeintel,"Marge d'accueil")
            GUICtrlSetData($bouton_droite,"Un Autosurf Ultra Rapide!")

else        
            GUICtrlSetData($LeVisiteur,"The High-Speed Visitor")
            GUICtrlSetData($inscription,"Register a link")
            GUICtrlSetData($date,"Register this link for")
            GUICtrlSetData($dateDinscription,"Automatic (recommanded)|tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)")
            GUICtrlSetData($lien,"Link to register")
            GUICtrlSetData($option,"this interface allows you to configure the high-speed autosurf, with the possibility of registering a link without passing byAutoclics")
            GUICtrlSetData($optionLien,"Link registration's Options")
            GUICtrlSetData($display,"Display the progression")
            GUICtrlSetData($simult,"Simultaneous visits (1-35)")
            GUICtrlSetData($lancerVisites,"register Informations")
            GUICtrlSetData($modif,"To modify your link later")
            GUICtrlSetData($Pseudon,"Nickname" )
            GUICtrlSetData($mdpass,"Password ")
            GUICtrlSetData($miniville,"Options for visitors")
            GUICtrlSetData($auto,"Automatic mode")
            GUICtrlSetData($intel,"Intelligent mode")
            GUICtrlSetData($margeintel,"Population margin")
            GUICtrlSetData($bouton_droite,"An High Speed Autosurf")
EndIf

GUISetState(@SW_SHOW)

; ----------------------------------------------------
; -------------------- Section V --------------------
; ----------------------------------------------------

While 1
    $msg = GUIGetMsg()
        Select
        
        Case $msg = $GUI_EVENT_CLOSE  
            Exit
        Case $msg = $Francais
            $sData = "langage=fr"
            IniWriteSection($Fichier_INI, "langue", $sData)
            GUICtrlSetData($LeVisiteur,"Le Visiteur Ultra Rapide")
            GUICtrlSetData($inscription,"Inscrire un lien" )
            GUICtrlSetData($date,"Inscrire ce lien pour")
            GUICtrlSetData($dateDinscription,"Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)")
            GUICtrlSetData($lien,"Lien à inscrire")
            GUICtrlSetData($option,"Cette interface vous permet de configurer le Visiteur Ultra-Rapide, et éventuellement d'effectuer l'inscription d'un lien sans passer par Autoclics")
            GUICtrlSetData($optionLien,"Options pour l'inscription d'un lien")
            GUICtrlSetData($display,"Afficher la progression")
            GUICtrlSetData($simult,"Visites simultanées (1-35)")
            GUICtrlSetData($lancerVisites,"Enregistrer Infos")
            GUICtrlSetData($modif,"Pour pouvoir modifier votre lien plus tard")
            GUICtrlSetData($Pseudon,"Pseudo" )
            GUICtrlSetData($mdpass,"Mot de passe")
            GUICtrlSetData($miniville,"Options pour visitors")
            GUICtrlSetData($auto,"Mode automatique")
            GUICtrlSetData($intel,"Mode intelligent")
            GUICtrlSetData($margeintel,"Marge d'accueil")
            GUICtrlSetData($bouton_droite,"Un Autosurf Ultra Rapide!")

        Case $msg = $Anglais
            $sData = "langage=en"
            IniWriteSection($Fichier_INI, "langue", $sData)
            GUICtrlSetData($LeVisiteur,"The High-Speed Visitor")
            GUICtrlSetData($inscription,"Register a link")
            GUICtrlSetData($date,"Register this link for")
            GUICtrlSetData($dateDinscription,"Automatic (recommanded)|tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)")
            GUICtrlSetData($lien,"Link to register")
            GUICtrlSetData($option,"This interface allows you to configure the high-speed visitor, with the possibility of registering a link without passing by Autoclics")
            GUICtrlSetData($optionLien,"Link registration's Options")
            GUICtrlSetData($display,"Display the progression")
            GUICtrlSetData($simult,"Simultaneous visits (1-35)")
            GUICtrlSetData($lancerVisites,"register Informations")
            GUICtrlSetData($modif,"To modify your link later")
            GUICtrlSetData($Pseudon,"Nickname" )
            GUICtrlSetData($mdpass,"Password ")
            GUICtrlSetData($miniville,"Options for visitors")
            GUICtrlSetData($auto,"Automatic mode")
            GUICtrlSetData($intel,"Intelligent mode")
            GUICtrlSetData($margeintel,"Population margin")
            GUICtrlSetData($bouton_droite,"An High Speed Autosurf")

            
        Case $msg = $bouton_droite
            sleep(50)
        Case $msg = $lancerVisites  
            $menutext   = GUICtrlRead($box_display, 0)
            if $menutext="4" then 
                $menutext="non"
            else 
                $menutext="oui"
            EndIf
            $sData = "progression="&$menutext
            IniWriteSection($Fichier_INI, "progression", $sData)
            $menutext   = GUICtrlRead($box_inscrire, 0)
                if $menutext="4" then $menutext="0"
                $sData = "inscrirelien="&$menutext
                IniWriteSection($Fichier_INI, "inscrirelien", $sData)
            $menutext   = GUICtrlRead($lien_a_inscrire, 1)
                $sData = "lienainscrire="&$menutext
                IniWriteSection($Fichier_INI, "lienainscrire", $sData)
            $menutext   = GUICtrlRead($date_a_inscrire, 1)
                if $menutext="Automatic (recommanded)" or $menutext="Automatique (conseillé)" then $menutext="-1"
                if $menutext="Today (not recommanded)" or $menutext="Aujourd'hui (déconseillé)" then $menutext="0"
                if $menutext="tomorrow" or $menutext="Demain" then $menutext="1"
                if $menutext="In 2 Days" or $menutext="Dans 2 jours" then $menutext="2"
                if $menutext="In 3 Days" or $menutext="Dans 3 jours" then $menutext="3"
                if $menutext="In 4 Days" or $menutext="Dans 4 jours" then $menutext="4"
                if $menutext="In 5 Days" or $menutext="Dans 5 jours" then $menutext="5"
                if $menutext="In 6 Days" or $menutext="Dans 6 jours" then $menutext="6"
                $sData = "dateinscription="&$menutext
                IniWriteSection($Fichier_INI, "dateinscription", $sData)
            $menutext   = GUICtrlRead($input_pseudo, 1)
                $sData = "pseudo="&$menutext
                IniWriteSection($Fichier_INI, "pseudo", $sData)
            $menutext   = GUICtrlRead($input_mdp, 1)
                $sData = "mdp="&$menutext
                IniWriteSection($Fichier_INI, "mdp", $sData)
            $menutext   = GUICtrlRead($box_automatique, 0)
                if $menutext="4" then $menutext="0"
                $sData = "modeauto="&$menutext
                IniWriteSection($Fichier_INI, "modeauto", $sData)
            $menutext   = GUICtrlRead($box_intelligent, 0)
                if $menutext="4" then $menutext="0"
                $sData = "modeintel="&$menutext
                IniWriteSection($Fichier_INI, "modeintel", $sData)
            $menutext   = GUICtrlRead($input_marge, 1)
                $sData = "marge="&$menutext
                IniWriteSection($Fichier_INI, "marge", $sData)
            $menutext   = GUICtrlRead($input_simult, 1)
                $sData = "connectsimult="&$menutext
                IniWriteSection($Fichier_INI, "connectsimult", $sData)
        EndSelect
WEnd

; ----------------------------------------------------
; -------------------- Section VI --------------------
; ----------------------------------------------------

Func TogglePause()
    $Paused = NOT $Paused
        While $Paused
            sleep(100)
            ToolTip('Script is "Paused"',0,0)
        WEnd
            ToolTip("")
EndFunc

Func Terminate()
    Exit(0)
EndFunc

Merci pour vos suggestion dans la simplification de mon code

par pitié
edit ton post et au lieux de mettre

Code : Tout sélectionner

met

Code : Tout sélectionner

car je suis completement perdu sans couleurs

Si vous souhaitez la coloration syntaxique, copiez le code présenté sur le forum dans une fenêtre Scite de votre ordinateur.

La coloration est réservée aux exemples de script, UDF et aux tutoriels.

je pense qu'il y a un probleme la

► Afficher le texte

Code : Tout sélectionner

$date_inscrite=IniRead($Fichier_INI, "dateinscription", "dateinscription", "-1")
if  $langue="en" then 
    $autres_dates="Automatic (recommanded)|Tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)"
    if $date_inscrite="-1" then $date_inscrite="Automatic (recommanded)" 
    if $date_inscrite="0"  then $date_inscrite="Today (not recommanded)" 
    if $date_inscrite="1" then $date_inscrite="Tomorrow"
    if $date_inscrite="2" then $date_inscrite="In 2 days" 
    if $date_inscrite="3" then $date_inscrite="In 3 days"
    if $date_inscrite="4" then $date_inscrite="In 4 days" 
    if $date_inscrite="5" then $date_inscrite="In 5 days"
    if $date_inscrite="6" then $date_inscrite="In 6 days" 
else 
    $sData = "langage=fr"
    IniWriteSection($Fichier_INI, "langue", $sData)
    $autres_dates="Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)"
    if $date_inscrite="-1" then $date_inscrite="Automatique (conseillé)"
    if $date_inscrite="0"  then $date_inscrite="Aujourd'hui (déconseillé)" 
    if $date_inscrite="1" then $date_inscrite="Demain"
    if $date_inscrite="2" then $date_inscrite="Dans 2 jours" 
    if $date_inscrite="3" then $date_inscrite="Dans 3 jours"
    if $date_inscrite="4" then $date_inscrite="Dans 4 jours" 
    if $date_inscrite="5" then $date_inscrite="Dans 5 jours"
    if $date_inscrite="6" then $date_inscrite="Dans 6 jours" 
EndIf

$date_a_inscrire=GuiCtrlCreatecombo($date_inscrite, 395, 138, 150, 20)

            $progression = GUICtrlRead($date_a_inscrire, 1)
                if $progression="Automatic (recommanded)" or $progression="Automatique (conseillé)" then $progression="-1"
                if $progression="Today (not recommanded)" or $progression="Aujourd'hui (déconseillé)" then $progression="0"
                if $progression="tomorrow" or $progression="Demain" then $progression="1"
                if $progression="In 2 Days" or $progression="Dans 2 jours" then $progression="2"
                if $progression="In 3 Days" or $progression="Dans 3 jours" then $progression="3"
                if $progression="In 4 Days" or $progression="Dans 4 jours" then $progression="4"
                if $progression="In 5 Days" or $progression="Dans 5 jours" then $progression="5"
                if $progression="In 6 Days" or $progression="Dans 6 jours" then $progression="6"

car les dates ne doivent pas s'afficher comme tu le souhaite ?!

après une heure de recherche voila ce que j'ai :

► Afficher le texte

Code : Tout sélectionner

; Version AutoIt :    3.2.10.0
; Langue     :        Francais
; Plateforme :        Win9x/XP/Vista
; Autheur    :        Cyril
;
; Fonction du script : Enregistrer des données dans un fichier .ini
;
;
;
; Version 1.0 : 01.08.2008
;           - Première Version.

; ----------------------------------------------------
; -------------------- Section III --------------------
; ----------------------------------------------------
; Déclarations Diverses.
#include <IE.au3>
#include <GUIConstants.au3>
#include <File.au3>

Global $version_interface = "1.0"
Global $version_Autoclics = "3.0"
Global $Paused
Global $Fichier_INI = @ScriptDir & "\preferences.ini"
Global $font="Arial"

$langue = IniRead($Fichier_INI, "langue", "langage", "fr")
if  $langue="en" then
    Global $wintitle = "Autoclics GUI "&$version_interface&" for Autoclics "&$version_Autoclics 
Else
    Global $wintitle = "Autoclics GUI "&$version_interface&" pour Autoclics "&$version_Autoclics 
EndIf

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

; ----------------------------------------------------
; -------------------- Section IV --------------------
; ----------------------------------------------------

; Fenetre principale.
$GUI_MAIN2 = GUICreate($wintitle,550,382,400,0)
$Img = GUICtrlCreatePic(@ScriptDir & "\images\fond.jpg",0 , 0, 0, 0,BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
GUISetIcon ( @ScriptDir & "\images\Autoclic.ico","Autoclic.ico" )

;récupération des données du fichier .ini
$progression=IniRead($Fichier_INI, "progression", "progression", "non")
$inscrire_lien=IniRead($Fichier_INI, "inscrirelien", "inscrirelien", "4")
$lien_inscrit=IniRead($Fichier_INI, "lienainscrire", "lienainscrire", "http://")
$date_inscrite=IniRead($Fichier_INI, "dateinscription", "dateinscription", "-1")
if  $langue="en" then 
    $autres_dates="Automatic (recommanded)|Tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)"
    if $date_inscrite="-1" then $date_inscrite="Automatic (recommanded)" 
    if $date_inscrite="0"  then $date_inscrite="Today (not recommanded)" 
    if $date_inscrite="1" then $date_inscrite="Tomorrow"
    if $date_inscrite="2" then $date_inscrite="In 2 days" 
    if $date_inscrite="3" then $date_inscrite="In 3 days"
    if $date_inscrite="4" then $date_inscrite="In 4 days" 
    if $date_inscrite="5" then $date_inscrite="In 5 days"
    if $date_inscrite="6" then $date_inscrite="In 6 days" 
else 
    $sData = "langage=fr"
    IniWriteSection($Fichier_INI, "langue", $sData)
    $autres_dates="Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)"
    if $date_inscrite="-1" then $date_inscrite="Automatique (conseillé)"
    if $date_inscrite="0"  then $date_inscrite="Aujourd'hui (déconseillé)" 
    if $date_inscrite="1" then $date_inscrite="Demain"
    if $date_inscrite="2" then $date_inscrite="Dans 2 jours" 
    if $date_inscrite="3" then $date_inscrite="Dans 3 jours"
    if $date_inscrite="4" then $date_inscrite="Dans 4 jours" 
    if $date_inscrite="5" then $date_inscrite="Dans 5 jours"
    if $date_inscrite="6" then $date_inscrite="Dans 6 jours" 
EndIf
$pseudo=IniRead($Fichier_INI, "pseudo", "pseudo", "")
$mdp=IniRead($Fichier_INI, "mdp", "mdp", "")
$modeauto=IniRead($Fichier_INI, "modeauto", "modeauto", "4")
$modeintel=IniRead($Fichier_INI, "modeintel", "modeintel", "4")
$marge=IniRead($Fichier_INI, "marge", "marge", "5000")
$connectsimult=IniRead($Fichier_INI, "connectsimult", "connectsimult", "20")
            
;Entète de présentation

;choix de langue Français/Anglais
$Francais=GUICtrlCreateButton ( "FR", 30, 7,32,32 , $BS_ICON )
GUICtrlSetImage (-1, @ScriptDir & "\images\Français.ico","Français.ico")
$Anglais=GUICtrlCreateButton ( "EN", 488, 7,32,35 , $BS_ICON )
GUICtrlSetImage (-1, @ScriptDir & "\images\Anglais.ico","Anglais.ico")

$LeVisiteur=GUICtrlCreateEdit("Le Visiteur Ultra Rapide",150,10,250,25,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,12, 800, 2, $font)    
GUICtrlSetBkColor (-1,0xFF8040)
$option=GUICtrlCreateEdit("Cette interface vous permet de configurer le Visiteur Ultra Rapide, et éventuellement d'effectuer l'inscription d'un lien sans passer par Autoclics",35,45,480,30,$ES_READONLY+$ES_CENTER,$WS_EX_TRANSPARENT )
GUICtrlSetFont (-1,8, 400, 2, $font)    

;barre séparatrice centrale
GUICtrlCreateInput('',275,85,2,230,$ES_READONLY)
GUICtrlSetBkColor (-1,0x0000FF)

;Partie de gauche 

;Progression
$display=GUICtrlCreateEdit("Afficher la progression",52,92,170,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,9, 600, 2, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_display = GUICtrlCreateCheckbox  ("", 130, 132, 14, 14)
if $progression="oui" then GUICtrlSetState ($box_display, $GUI_CHECKED)
if $progression="non" then GUICtrlSetState ($box_display, $GUI_UNCHECKED)

;barre séparatrice horizontale
GUICtrlCreateInput('',37,162,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;Nombre de visites simultanées
$simult=GUICtrlCreateEdit("Visites simultanées (1-35)",50,174,175,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,9, 600, 2, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$input_simult=GuiCtrlCreateInput($connectsimult, 122, 209, 30, 21)
GUICtrlSetFont (-1,10, 600, 1, $font)    

;barre séparatrice horizontale
GUICtrlCreateInput('',37,240,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;inscription d'un lien
$inscription=GUICtrlCreateEdit("Inscrire un lien",50,252,175,25,$ES_READONLY+$ES_CENTER )
GUICtrlSetBkColor (-1,0x99FF66)
GUICtrlSetFont (-1,9, 600, 2, $font)    
$box_inscrire = GUICtrlCreateCheckbox  ("", 130, 292, 14, 14)
if $inscrire_lien="1" then GUICtrlSetState ($box_inscrire, $GUI_CHECKED)
if $inscrire_lien="0" then GUICtrlSetState ($box_inscrire, $GUI_UNCHECKED)

;partie de droite

;partie option du lien
$optionLien=GUICtrlCreateEdit("Options pour l'inscription d'un lien",312,85,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;lien à inscrire
$lien=GUICtrlCreateEdit("Lien à inscrire",290,112,75,20,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$lien_a_inscrire=GUICtrlCreateInput($lien_inscrit,370,112,175,20)
GUICtrlSetFont (-1,7, 400,1 , $font)    

;date d'inscription
$date=GUICtrlCreateEdit("Inscrire ce lien pour",290,138,100,20,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$date_a_inscrire=GuiCtrlCreatecombo($date_inscrite, 395, 138, 150, 20)
GUICtrlSetFont (-1,7, 400, 1, $font)    
if $langue="fr" then 
    $dateDinscription=GUICtrlSetData(-1,"Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)")
Else
    $dateDinscription=GUICtrlSetData(-1,"Automatic (recommanded)|Tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)")
EndIf

;barre séparatrice horizontale
GUICtrlCreateInput('',312,165,195,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;partie visites
$miniville=GUICtrlCreateEdit("Options pour visitors",312,175,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;barre séparatrice centrale
GUICtrlCreateInput('',412,200,2,57,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;mode auto
$auto=GUICtrlCreateEdit("Mode automatique",290,200,90,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_automatique = GUICtrlCreateCheckbox  ("", 385, 200, 14, 15)
if $modeauto="1" then GUICtrlSetState ($box_automatique, $GUI_CHECKED)
if $modeauto="0" then GUICtrlSetState ($box_automatique, $GUI_UNCHECKED)

;mode intelligent
$intel=GUICtrlCreateEdit("Mode intelligent",425,200,90,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$box_intelligent = GUICtrlCreateCheckbox  ("", 520, 200, 14, 15)
GUICtrlSetFont (-1,7, 400, 1, $font)    
if $modeintel="1" then GUICtrlSetState ($box_intelligent, $GUI_CHECKED)
if $modeintel="0" then GUICtrlSetState ($box_intelligent, $GUI_UNCHECKED)

;marge intelligent
$margeintel=GUICtrlCreateEdit("Marge d'accueil",425,220,70,33,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)    
GUICtrlSetBkColor (-1,0x99FF66)
$input_marge=GUICtrlCreateInput($marge,500,230,45,16)
GUICtrlSetFont (-1,7, 400, 1, $font)    

;barre séparatrice horizontale
GUICtrlCreateInput('',312,261,200,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x666666)

;partie modif

;entete
$modif=GUICtrlCreateEdit("Pour pouvoir modifier votre lien plus tard",312,273,200,20,$ES_READONLY+$ES_CENTER  )
GUICtrlSetBkColor (-1,0xFFFF99)

;pseudo et pass
$Pseudon=GUICtrlCreateEdit("Pseudo",290,300,50,16,$ES_READONLY+$ES_CENTER  )
GUICtrlSetFont (-1,7, 400, 1, $font)
GUICtrlSetBkColor (-1,0x99FF66)
$input_pseudo=GUICtrlCreateInput($pseudo,345,300,65,16)
GUICtrlSetFont (-1,7, 400, 1, $font)
$mdpass=GUICtrlCreateEdit("Mot de passe",420,300,65,16,$ES_READONLY+$ES_CENTER )
GUICtrlSetFont (-1,7, 400, 1, $font)
GUICtrlSetBkColor (-1,0x99FF66)
$input_mdp=GUICtrlCreateInput($mdp,490,300,55,16,$ES_PASSWORD)
GUICtrlSetFont (-1,7, 400, 1, $font)

;barre séparatrice
GUICtrlCreateInput('',10,325,530,2,$ES_READONLY)
GUICtrlSetBkColor (-1,0x0000FF)

;Bouton d'enregistrement des variables
$lancerVisites=GUICtrlCreateButton ("Enregistrer Infos", 210,342,130,30  )
GUICtrlSetBkColor (-1,0xFF6A6A)

;bouton factice
$bouton_droite = GUICtrlCreateButton ("Un autosurf ultra-rapide!",370,345,170,25)
GUICtrlSetFont (-1,7, 400, 2, $font)    
GUICtrlSetBkColor (-1,0xB5BCF2)

language()

GUISetState(@SW_SHOW)

; ----------------------------------------------------
; -------------------- Section V --------------------
; ----------------------------------------------------

While 1
    $msg = GUIGetMsg()
    Select
        
        Case $msg = $GUI_EVENT_CLOSE  
            Exit
        Case $msg = $Francais
            IniWriteSection($Fichier_INI, "langue", "language=fr") ;~j'ai pensé que déclarer la variable $sdata ne server a rien
            $langue = "fr" ;~ j'ai préferer redeclarer la variable au cas ou ...
            language()

        Case $msg = $Anglais
            IniWriteSection($Fichier_INI, "langue", "language=en")
            $langue = "en" ;~ là pareille
            language()

        Case $msg = $lancerVisites  
            ;~ j'ai supprimer la variable $menutext qui finalment ne servais a rien et toutes les déclaration de variable $sdata
            IniWriteSection($Fichier_INI, "progression", "progression="&$progression)
            $progression = GUICtrlRead($box_inscrire, 0)
                if $progression="4" then $progression="0"
                IniWriteSection($Fichier_INI, "inscrirelien", "inscrire="&$progression)
            $progression = GUICtrlRead($lien_a_inscrire, 1)
                IniWriteSection($Fichier_INI, "lienainscrire", "lienainscrire="&$progression)
            $progression = GUICtrlRead($date_a_inscrire, 1)
                if $progression="Automatic (recommanded)" or $progression="Automatique (conseillé)" then $progression="-1"
                if $progression="Today (not recommanded)" or $progression="Aujourd'hui (déconseillé)" then $progression="0"
                if $progression="tomorrow" or $progression="Demain" then $progression="1"
                if $progression="In 2 Days" or $progression="Dans 2 jours" then $progression="2"
                if $progression="In 3 Days" or $progression="Dans 3 jours" then $progression="3"
                if $progression="In 4 Days" or $progression="Dans 4 jours" then $progression="4"
                if $progression="In 5 Days" or $progression="Dans 5 jours" then $progression="5"
                if $progression="In 6 Days" or $progression="Dans 6 jours" then $progression="6"
                $sData = "dateinscription="&$progression
                IniWriteSection($Fichier_INI, "dateinscription", "dateinscription="&$sData)
            $progression = GUICtrlRead($input_pseudo, 1)
                IniWriteSection($Fichier_INI, "pseudo", "pseudo="$sData)
            $progression   = GUICtrlRead($input_mdp, 1)
                IniWriteSection($Fichier_INI, "mdp", "mdp="&$sData)
            $progression   = GUICtrlRead($box_automatique, 0)
                if $progression="4" then $progression="0"
                IniWriteSection($Fichier_INI, "modeauto", "modeauto="&$sData)
            $progression   = GUICtrlRead($box_intelligent, 0)
                if $progression="4" then $progression="0"
                IniWriteSection($Fichier_INI, "modeintel", "modeintel="$sData)
            $progression   = GUICtrlRead($input_marge, 1)
                IniWriteSection($Fichier_INI, "marge", "marge="&$sData)
            $progression   = GUICtrlRead($input_simult, 1)
                IniWriteSection($Fichier_INI, "connectsimult", "connectsimmult="&$sData)
    EndSelect
WEnd

; ----------------------------------------------------
; -------------------- Section VI --------------------
; ----------------------------------------------------

;~ fonction pause
Func TogglePause()
    $Paused = NOT $Paused
        While $Paused
            sleep(100)
            ToolTip('Script is "Paused"',0,0)
        WEnd
            ToolTip("")
EndFunc

;~ fonction quitter
Func Terminate()
    Exit(0)
EndFunc

;Traduction des cadres en fonction du language
Func language()
    if $langue="fr" then
        GUICtrlSetData($LeVisiteur,"Le visiteur Ultra Rapide")
        GUICtrlSetData($inscription,"Inscrire un lien" )
        GUICtrlSetData($date,"Inscrire ce lien pour")
        GUICtrlSetData($dateDinscription,"Automatique (conseillé)|Demain|Dans 2 jours|Dans 3 jours|Dans 4 jours|Dans 5 jours|Dans 6 jours|Aujourd'hui (déconseillé)")
        GUICtrlSetData($lien,"Lien à inscrire")
        GUICtrlSetData($option,"Cette interface vous permet de configurer le Visiteur Ultra Rapide, et éventuellement d'effectuer l'inscription d'un lien sans passer par Autoclics")
        GUICtrlSetData($optionLien,"Options pour l'inscription d'un lien")
        GUICtrlSetData($display,"Afficher la progression")
        GUICtrlSetData($simult,"Visites simultanées (1-35)")
        GUICtrlSetData($lancerVisites,"Enregistrer Infos")
        GUICtrlSetData($modif,"Pour pouvoir modifier votre lien plus tard")
        GUICtrlSetData($Pseudon,"Pseudo" )
        GUICtrlSetData($mdpass,"Mot de passe")
        GUICtrlSetData($miniville,"Options pour visitors")
        GUICtrlSetData($auto,"Mode automatique")
        GUICtrlSetData($intel,"Mode intelligent")
        GUICtrlSetData($margeintel,"Marge d'accueil")
        GUICtrlSetData($bouton_droite,"Un Autosurf Ultra Rapide!")

    else        
        GUICtrlSetData($LeVisiteur,"The High-Speed Visitor")
        GUICtrlSetData($inscription,"Register a link")
        GUICtrlSetData($date,"Register this link for")
        GUICtrlSetData($dateDinscription,"Automatic (recommanded)|tomorrow|In 2 Days|In 3 Days|In 4 Days|In 5 Days|In 6 Days|Today (not recommanded)")
        GUICtrlSetData($lien,"Link to register")
        GUICtrlSetData($option,"this interface allows you to configure the high-speed autosurf, with the possibility of registering a link without passing byAutoclics")
        GUICtrlSetData($optionLien,"Link registration's Options")
        GUICtrlSetData($display,"Display the progression")
        GUICtrlSetData($simult,"Simultaneous visits (1-35)")
        GUICtrlSetData($lancerVisites,"register Informations")
        GUICtrlSetData($modif,"To modify your link later")
        GUICtrlSetData($Pseudon,"Nickname" )
        GUICtrlSetData($mdpass,"Password ")
        GUICtrlSetData($miniville,"Options for visitors")
        GUICtrlSetData($auto,"Automatic mode")
        GUICtrlSetData($intel,"Intelligent mode")
        GUICtrlSetData($margeintel,"Population margin")
        GUICtrlSetData($bouton_droite,"An High Speed Autosurf")
    EndIf
EndFunc

donc ton script faisait 394 lignes et celui racourcis en fait 349 mais je pense qu'il y a encore a faire

et tu l'a tester ???
parce qu'il ne doit pas marcher comme il le devrait ... mdr
dans ma tete en tout il ne ^marche pas bien
des petites erreur hin je te rassure

puis-je avoir le fichier.ini ainsi que les images pour le tester ???

Ce qui serait plus sympa à faire, c'est un fichier par langue qui ressemblerait à ceci :

Lang.fr

Code : Tout sélectionner

$LeVisiteur="Le visiteur Ultra Rapide"
$inscription="Inscrire un lien"
$date="Inscrire ce lien pour"
...

Dans le code sélectionner la langue, puis lire avec une simple boucle les valeurs de chaque variables.
Cela permettrais de rendre totalement multilingue ce script ...

AutoIt Français

[..] demande de conseils pour simplifier le code de ma GUI

[..] demande de conseils pour simplifier le code de ma GUI

Re: [...] demande de conseils pour simplifier le code de ma GUI

Re: [...] demande de conseils pour simplifier le code de ma GUI

Re: [...] demande de conseils pour simplifier le code de ma GUI

Re: [...] demande de conseils pour simplifier le code de ma GUI