[..] Mini probleme plate dans le while

[jamesst20]

Je voit rien

Code : Tout sélectionner

Case $MyButton1
_Refresh()

Func _Refresh()
    GuiCtrlSetData($list, "")
    GuiCtrlSetData($list, "Patientez SVP !")
$Test1 = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<title>", "</title>",  1)
GuiCtrlSetData($list, "")
For $i = 1 to 10 Step 1
    $Test1[$i] = StringReplace($Test1[$i], "&#8217;", "'")
    $Test1[$i] = StringReplace($Test1[$i], "&#8230;", "")
        GuiCtrlSetData($list, _Utf8ToAnsi($Test1[$i]) & @CRLF , 1)
Next
EndFunc

Ya pas de probleme sur sa!!

[jamesst20]

AH!!

C'est tu parce que $test1 change de valeur??

Si c'est sa je ne sais pas comment en venir a bout

[GaRydelaMer]

Bonsoir,

pour les liste tu dois lui passer une "liste de chaine" dans GUICtrlSetData()

sépare tes chaines avec "|"

ou

GUICtrlSetData($list, _ArrayToString($Test1, "|", 1))

Pour ton code

Code : Tout sélectionner

GuiCtrlSetData($list, "")
local $sTest1 = "", $sep = "|"
For $i = 1 to 10
    Local $str = _Utf8ToAnsi($Test1[$i]) 
    $str = StringReplace($str, "’", "'") 
    $str = StringReplace($str, "…", "")
    $sTest1 &= $str &  $sep
Next
$sTest1 = StringTrimRight($sTest1, StringLen($Sep))
GuiCtrlSetData($list, $sTest1 )

[Tlem]

Bon, juste avant d'aller me coucher :
1 seconde = 1000 ms
1 minute = 1 s * 60 = 1000 ms * 60 = 60000 ms
5 minutes = 5 s * 60 = 1000 ms * 60 * 5 = 300000 ms
Etc ...

Un TrayTip() reste souvent affiché même si on lui indique une temporisation de 1 seconde. Donc il faut l'effacer.

Votre code contient encore pas mal d'incohérences sur certaines partie.
A vous de faire ce qu'il faut.
- $Test1 non déclaré
- Certaines fonctions devraient être lancée avant la boucle d'attente.
- Le code de gestion du temps du TrayTip n'est pas là ou il faut.
- La fenêtre option possède un menu système qui ferme tout si on clique la croix ...
Et j'en oublie surement encore.

Amusez vous bien.

[jamesst20]

Salut j'Ai deux questions

@GaRydelaMer: J'ai changer pour ce que tu ma dit dans mon script mais je ne comprend pas la différence?

Sinon j'arrive toujours pas avec mon Tray Peut importe mes test depuis quelque jours..
@Thlem j'ai essayé de l'éfacer en refesant Traytip avec les "" mais sa ne fonctionne pas quand même
Merci

[jamesst20]

S'il vous plait

[Tlem]

Pffff, malgré le nombre de message et d'aide que vous avez eu, vous n'arrivez pas à résoudre des problèmes aussi simple ...

A étudier de très très prés afin de ne pas recommencer les même erreurs :

► Afficher le texte

Code : Tout sélectionner

#include <WinAPI.au3>
#include <_pngnormal.au3>
#include <_RSS.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#RequireAdmin
#AutoIt3Wrapper_Icon=iPodtouch.ico
#AutoIt3Wrapper_Compression=4

Global $Test1 ; *** Ajout
FileInstall("C:\Users\James\Desktop\images\pic.png", @TempDir & "/pic.png")
#NoTrayIcon
Opt("TrayMenuMode", 1)
TrayCreateItem("Ouvrir")
Opt("TrayAutoPause", 0) ; Script will not be paused when clicking the tray icon.
TraySetIcon("iPodtouch.ico", "")



$Option = GUICreate("Option", 373, 146, 194, 135)
GUISetBkColor(0xB9D1EA)
$456 = IniRead(@ScriptDir & "\conf.ini", "Options", "Minuterie", "5 Minutes")
$Minuterie = GUICtrlCreateCombo($456, 200, 32, 153, 25)
GUICtrlSetData(-1, "5 Minutes|10 Minutes|15 Minutes|20 Minutes|30 Minutes|45 Minutes|1 Heure|2 Heures")
$Label1 = GUICtrlCreateLabel("M'avertir à toutes les", 24, 32, 171, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Demarrer = GUICtrlCreateCheckbox("Demarrer avec Windows", 32, 64, 220, 25)
$traytimon = IniRead(@ScriptDir & "\conf.ini", "Options2", "TrayTime", "")
If $traytimon = 1 Then GUICtrlSetState($Demarrer, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Réglages", 8, 16, 361, 89, $BS_CENTER)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MyButton45 = GUICtrlCreateButton("Ok", 264, 112, 100, 30, $BS_FLAT)
GUISetState(@SW_HIDE)



$sc12 = @TempDir & "\pic.png"
$Form1_1 = GUICreate("iTMBlogNews", 370, 375, 196, 123)
GUISetBkColor(0xA6CAF0)
PpngGuiCreatePic($sc12, -15, -10)
$Group1 = GUICtrlCreateGroup("10 Dernères News", 64, 72, 241, 180, $BS_CENTER)
GUISetBkColor(0xA6CAF0)
$MyButton1 = GUICtrlCreateButton("Réactualiser", 64, 260, 116, 30, $BS_FLAT)
$MyButton2 = GUICtrlCreateButton("Aperçu", 192, 260, 116, 30, $BS_FLAT)
$MyButton3 = GUICtrlCreateButton("Option", 64, 290, 244, 30, $BS_FLAT)
$list = GUICtrlCreateList("", 68, 84, 234, 155, BitOR($LBS_SORT, $__LISTBOXCONSTANT_WS_VSCROLL, $LBS_NOTIFY), $WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetData($list, "")
GUICtrlSetData($list, "Patientez SVP !")


GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetBkColor(0xA6CAF0)
GUISetState(@SW_SHOW)

_Refresh() ; *** Ajout et suppression ancien code
AdlibRegister("_Traymsg", 1000 * 60 * 5) ; *** Ajout

While 1

    $nMsg = GUIGetMsg()
    Switch $nMsg

        Case $GUI_EVENT_CLOSE
            $lecture = GUICtrlRead($Minuterie)
            IniWrite(@ScriptDir & "\conf.ini", "Options", "Minuterie", $lecture)
            $rel = GUICtrlRead($Demarrer)
            IniWrite(@ScriptDir & "\conf.ini", "Options2", "TrayTime", $rel)
            Exit



        Case $MyButton2
            For $i = 1 To 30 Step 1
                $1erm = 370 + 5
                $2e = 375 + 20
                $3e = 196 + 20
                $4e = 123 + 20

                WinMove($Form1_1, "", 196, 123, 500, 600, $WS_EX_COMPOSITED)
            Next
        Case $MyButton1
            _Refresh()

        Case $MyButton3
            GUISetState(@SW_SHOW, $Option)

        Case $MyButton45
            $voila = GUICtrlRead($Minuterie) ; *** Déplacement
            If $voila = "5 Minutes" Then $tmh = 1000 * 60 * 5 ; *** Déplacement et modifications
            If $voila = "10 Minutes" Then $tmh = 1000 * 60 * 10 ; *** Déplacement et modifications
            If $voila = "15 Minutes" Then $tmh = 1000 * 60 * 15 ; *** Déplacement et modifications
            If $voila = "20 Minutes" Then $tmh = 1000 * 60 * 20 ; *** Déplacement et modifications
            If $voila = "30 Minutes" Then $tmh = 1000 * 60 * 30 ; *** Déplacement et modifications
            If $voila = "45 Minutes" Then $tmh = 1000 * 60 * 45 ; *** Déplacement et modifications
            If $voila = "1 Heure" Then $tmh = 1000 * 60 * 60 ; *** Déplacement et modifications
            If $voila = "2 Heures" Then $tmh = 1000 * 60 * 120 ; *** Déplacement et modifications

            AdlibRegister("_Traymsg", $tmh) ; *** Déplacement
            GUISetState(@SW_HIDE, $Option)

        Case $Demarrer
            $lire = GUICtrlRead($Demarrer)
            If $lire = 1 Then
                RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "iTMFRBlogNews", "REG_SZ", @ScriptDir & "\iTMFRBlogNews.exe")
            Else
                RegDelete("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "iTMFRBlogNews")
            EndIf

    EndSwitch

WEnd

Func _Traymsg()
    TrayTip("Dernière News du Blog iTMFR!", _Utf8ToAnsi($Test1[1]), 1)
    Sleep(3000) ; *** Ajout
    TrayTip("", "", 1) ; *** Ajout
EndFunc   ;==>_Traymsg

; string conversion: UTF-8 --> ANSI (default or given code page)
Func _Utf8ToAnsi($Utf8String, $CodePage = 0)
    Local $struct = _WinAPI_MultiByteToWideChar($Utf8String, 65001)
    Return (_WinAPI_WideCharToMultiByte(DllStructGetPtr($struct), $CodePage))
EndFunc   ;==>_Utf8ToAnsi

Func _Refresh()
    GUICtrlSetData($list, "")
    GUICtrlSetData($list, "Patientez SVP !")
    $Test1 = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<title>", "</title>", 1)
    GUICtrlSetData($list, "")
    For $i = 1 To 10 Step 1
        $Test1[$i] = StringReplace($Test1[$i], "&#8217;", "'")
        $Test1[$i] = StringReplace($Test1[$i], "&#8230;", "")
        GUICtrlSetData($list, _Utf8ToAnsi($Test1[$i]), 1) ; *** Pas de CRLF
    Next
EndFunc   ;==>_Refresh

Et si vous n'y comprenez rien malgré les explications, suivez mon conseil :
Arrêtez la programmation avec AutoIt, ou lisez plus en détail les tutoriels et documentations qui sont à votre disposition sur ce forum, dans le dossier AutoIt et sur le site du Zéro et revenez nous voir lorsque vous serez capable de comprendre l'aide qu'on vous fournit.

[jamesst20]

Salut, j'avance pas car

1) Les boutons fonctionne toujours pas Edit: Ne fonctionne pas apres avoir cliquer sur Ok dans les options)
2) Je suis oubliger a tout les éxécutions de cliquer sur OK dans les options..

Edit: Les boutons ces corect je sais pas pourquoi il y a eu un bug.

Merci

[Tlem]

N'oubliez pas la balise [R] dans le titre de votre premier message si votre sujet est résolu.

Même ca, je suis obligé de vous le rappeler ...

[jamesst20]

Salut, j'avance pas car

Je suis oubliger a tout les éxécutions de cliquer sur OK dans les options..



Merci

[Tlem]

Edit: Les boutons ces corect je sais pas pourquoi il y a eu un bug.

Pour info, chez moi ca fonctionne.

[jamesst20]

Oui mais c'est parce que si je quitte le script et que je le réexécute, je dois retourné dans Option et cliquer sur Ok pour mettre en fonction le tray.. Moi je veut qu'il soit fonctionnel des l'éxécution du script.

PS: Ya un conf.ini ou est sauvegarder les paramètres.

[jamesst20]

Personne le sais?

[jamesst20]

S'il vous plait

[jamesst20]

qu'avez vous comtre moi. Je ne comprend pas, je demande de l'aide et personne me répond !

[Tlem]

Hummm, à ce stade, ce n'est plus de l'aide qu'il vous faut, mais quelqu'un pour vous pondre le code tout fait.

[jamesst20]

Pas du tout.. c'est vous qui avez tout déplacer dans la fonction case.. Si je la replace, J'ai le meme probleme que avant.. Mais j'ai refet le script en Event Mode..

A+

[Tlem]

Si vous ne comprenez pas le code que vous écrivez, je ne vois pas ce que le mode événementiel va vous apporter (si ce n'est plus de confusion).

En principe, lorsqu'on débute, on commence par des choses simples.
Je vous ai fournit ici votre code modifié (il subsiste des oublis de codage, mais je ne vais pas tout vous faire quand même ) en vous suggérant l'étude des corrections. Mais il semble que cela ne vous apporte pas grand chose.

[jamesst20]

Bien en faite je trouve toujours pas..

Voici OnEventMode: PS: Il est plus complet que l'ancien car je les avancé quand même:

► Afficher le texteiTMBlogNewsOnEventMode

Code : Tout sélectionner

#NoTrayIcon
#include <GuiListBox.au3>
#include <_pngnormal.au3>
#include <_RSS.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <_PngGui.au3>
RegWrite("HKCU\Software\AutoIt v3\Autoit", "Include", "REG_SZ", @ProgramFilesDir & "AutoIt3\Include\" )

Opt("GUIOnEventMode", 1)
FileInstall("C:\Users\James\Desktop\iTMNEwS\images\pic.png", @TempDir & "/pic.png")
Opt("TrayMenuMode", 1)
TrayCreateItem("Ouvrir")
Opt("TrayAutoPause",0)  ; Script will not be paused when clicking the tray icon.
TraySetIcon("iPodtouch.ico", "")
$Test2 = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<title>", "</title>",  1)
$Test1 = $Test2


    $Option = GUICreate("Option", 373, 146, 194, 135)
GUISetBkColor(0xB9D1EA)
$456 = IniRead(@ScriptDir & "\conf.ini", "Options", "Minuterie", "5 Minutes")
$Minuterie = GUICtrlCreateCombo($456, 200, 32, 153, 25)
GUICtrlSetData(-1, "5 Minutes|10 Minutes|15 Minutes|20 Minutes|30 Minutes|45 Minutes|1 Heure|2 Heures")
$Label1 = GUICtrlCreateLabel("M'avertir à toutes les", 24, 32, 171, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Demarrer = GUICtrlCreateCheckbox("Demarrer avec Windows", 32, 64, 220, 25)
$traytimon = IniRead(@ScriptDir & "\conf.ini", "Options2", "TrayTime", "")
If $traytimon = 1 Then Guictrlsetstate($Demarrer,$GUI_CHECKED)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Réglages", 8, 16, 361, 89, $BS_CENTER)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MyButton45 = GUICtrlCreateButton("Ok", 264, 112, 100, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "OptionButtonOk")
GUISetState(@SW_HIDE)

$sc12 = @TempDir &"\pic.png"
$1 = 370
$2 = 375
$3 = 196
$4 = 123
$Form1_1 = GUICreate("iTMBlogNews", $1, $2, $3, $4)
    GUISetOnEvent($GUI_EVENT_CLOSE, "GUIClose")
    WinMove("iTMBlogNews", "" , $3, $4 , $1, $2)
GUISetBkColor(0xA6CAF0)
$pngm1 = -15
$pngm2 = -10
$png = PpngGuiCreatePic($sc12, $pngm1, $pngm2)
$Group1 = GUICtrlCreateGroup("10 Dernères News", 64, 72, 241, 180, $BS_CENTER)
GUISetBkColor(0xA6CAF0)
$MyButton1 = GUICtrlCreateButton("Réactualiser", 64, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "_refresh")
$MyButton2 = GUICtrlCreateButton("Aperçu", 192, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "Apercu")
$MyButton3 = GUICtrlCreateButton("Option", 64, 290, 244, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "OptionButton")
$list = GUICtrlCreateList("",68,84,234,155,BitOR($__LISTBOXCONSTANT_WS_VSCROLL, $LBS_NOTIFY),$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GuiCtrlSetData($list, "")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetBkColor(0xA6CAF0)
$Group2 = GUICtrlCreateGroup("Description", 400, 72, 241, 180, $BS_CENTER)
$MyButtonQuitApercu = GUICtrlCreateButton("Ok", 615, 310, 40, 30, $BS_FLAT)
$MyButtonopenpage = GUICtrlCreateButton("Ouvrir la Page", 398, 261, 244, 30, $BS_FLAT)
$editinformation = GUICtrlCreateEdit("", 405,83, 232,165,$__LISTBOXCONSTANT_WS_VSCROLL,$WS_EX_TRANSPARENT)
GUISetState(@SW_SHOW)
Global $tmh
_refresh()

AdlibRegister("_DefineTmh", 3)
AdlibRegister("_Traymsg", $tmh)
AdlibRegister("DescriptionGet", 3)






While 1
    $Test1 = $Test2
WEnd

Func DescriptionGet()
    $NumberofList = _GUICtrlListBox_GetCurSel($list)
    $redon = GUICtrlRead($NumberofList)
    MsgBox(0,"", $NumberofList)
    EndFunc

Func _Description()
$description = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<description>", "</description>",  1)
$Description[1] = StringReplace($Description[1], "&#8217;", "'")
    $Description[1] = StringReplace($Description[1], "&#8230;", "")
    $Description[2] = StringReplace($Description[2], "&#8217;", "'")
    $Description[2] = StringReplace($description[2], "&#8230;", "")
    $description[3] = StringReplace($Description[3], "&#8217;", "'")
    $description[3] = StringReplace($Description[3], "&#8230;", "")
    $description[4] = StringReplace($description[4], "&#8217;", "'")
    $description[4] = StringReplace($description[4], "&#8230;", "")
    $description[5] = StringReplace($description[5], "&#8217;", "'")
    $description[5] = StringReplace($description[5], "&#8230;", "")
    $description[6] = StringReplace($description[6], "&#8217;", "'")
    $description[6] = StringReplace($description[6], "&#8230;", "")
    $description[7] = StringReplace($description[7], "&#8217;", "'")
    $description[7] = StringReplace($description[7], "&#8230;", "")
    $description[8] = StringReplace($description[8], "&#8217;", "'")
    $description[8] = StringReplace($description[8], "&#8230;", "")
    $description[9] = StringReplace($description[9], "&#8217;", "'")
    $description[9] = StringReplace($description[9], "&#8230;", "")
    $description[10] = StringReplace($description[10], "&#8217;", "'")
    $description[10] = StringReplace($description[10], "&#8230;", "")
    $Description[1] = StringReplace($Description[1], "ption><![CDATA[", "")
    $Description[1] = StringReplace($Description[1], "[...]]]>", "")
    $Description[2] = StringReplace($Description[2], "ption><![CDATA[", "")
    $Description[2] = StringReplace($description[2], "[...]]]>", "")
    $description[3] = StringReplace($Description[3], "ption><![CDATA[", "")
    $description[3] = StringReplace($Description[3], "[...]]]>", "")
    $description[4] = StringReplace($description[4], "ption><![CDATA[", "")
    $description[4] = StringReplace($description[4], "[...]]]>", "")
    $description[5] = StringReplace($description[5], "ption><![CDATA[", "")
    $description[5] = StringReplace($description[5], "[...]]]>", "")
    $description[6] = StringReplace($description[6], "ption><![CDATA[", "")
    $description[6] = StringReplace($description[6], "[...]]]>", "")
    $description[7] = StringReplace($description[7], "ption><![CDATA[", "")
    $description[7] = StringReplace($description[7], "[...]]]>", "")
    $description[8] = StringReplace($description[8], "ption><![CDATA[", "")
    $description[8] = StringReplace($description[8], "[...]]]>", "")
    $description[9] = StringReplace($description[9], "ption><![CDATA[", "")
    $description[9] = StringReplace($description[9], "[...]]]>", "")
    $description[10] = StringReplace($description[10], "ption><![CDATA[", "")
    $description[10] = StringReplace($description[10], "[...]]]>", "")
    GuiCtrlSetData($editinformation, "")
GUICtrlSetData($editinformation, _Utf8ToAnsi($description[1] & "..." &@CRLF &@CRLF &"Pour voir le reste, cliquer sur le bouton portant le nom:  Ouvrir la Page"), 1)
EndFunc


;Tous les functions

Func _refresh()
    GuiCtrlSetData($list, "")
    GuiCtrlSetData($list, "Patientez SVP !")
$Test2 = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<title>", "</title>",  1)
GuiCtrlSetData($list, "")
For $i = 1 to 10 Step 1
    $Test2[$i] = StringReplace($Test2[$i], "&#8217;", "'")
    $Test2[$i] = StringReplace($Test2[$i], "&#8230;", "")
GUICtrlSetData($list,  _Utf8ToAnsi($Test2[$i]), 1)
Next

EndFunc

; string conversion: UTF-8 --> ANSI (default or given code page)
Func _Utf8ToAnsi($Utf8String, $CodePage = 0)
Local $struct = _WinAPI_MultiByteToWideChar($Utf8String, 65001)
Return(_WinAPI_WideCharToMultiByte(DllStructGetPtr($struct), $CodePage))
EndFunc

Func GUIClose()
    $lecture = GUICtrlRead($Minuterie)
                IniWrite(@ScriptDir & "\conf.ini", "Options", "Minuterie", $lecture)
                $rel = GUICtrlRead($Demarrer)
                IniWrite(@ScriptDir & "\conf.ini", "Options2", "TrayTime", $rel)
    Exit
EndFunc

Func OptionButton()
    GUISetState(@SW_SHOW, $Option)
EndFunc


Func OptionButtonOk()
    GUISetState(@SW_HIDE, $Option)
EndFunc



Func _Traymsg()
    $Test2[1] = StringReplace($Test2[1], "&#8217;", "'")
    $Test2[1] = StringReplace($Test2[1], "&#8230;", "")
TrayTip("Dernière News du Blog iTMFR!", _Utf8ToAnsi($Test2[1]), 1)
Sleep(3000)
TrayTip("","", 0)

EndFunc

Func _DefineTmh()
    $voila = GUICtrlRead($Minuterie)
If $voila = "5 Minutes" Then $tmh = 8000
If $voila = "10 Minutes" Then $tmh = 600000
If $voila = "15 Minutes" Then $tmh = 900000
If $voila = "20 Minutes" Then $tmh = 1200000
If $voila = "30 Minutes" Then $tmh = 1800000
If $voila = "45 Minutes" Then $tmh = 2700000
If $voila = "1 Heure" Then $tmh = 3600000
If $voila = "2 Heures" Then $tmh = 7200000
EndFunc











Func Apercu()
$1 = 370
$png2m = -15

For $i = 1 to 30
    Sleep(15)


;~  Fenetre itmnews
    $1 = $1+10
    WinMove("iTMBlogNews", "" , $3, $4 , $1, $2)
;~  png Pic
    $png2m  = $png2m+4.8
    GUICtrlDelete($png)
$png = PpngGuiCreatePic($sc12, $png2m, -10)




;~ Group

GUICtrlDelete($Group1)
$Group1 = GUICtrlCreateGroup("10 Dernères News", 64, 72, 241, 180, $BS_CENTER)

;~ Bouton
GUICtrlDelete($MyButton1)
$MyButton1 = GUICtrlCreateButton("Réactualiser", 64, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "_refresh")
GUICtrlDelete($MyButton2)
$MyButton2 = GUICtrlCreateButton("Aperçu", 192, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "Apercu")
GUICtrlDelete($MyButton3)
$MyButton3 = GUICtrlCreateButton("Option", 64, 290, 244, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "OptionButton")

GUICtrlDelete($list)
$list = GUICtrlCreateList("",68,84,234,155,BitOR($__LISTBOXCONSTANT_WS_VSCROLL, $LBS_NOTIFY),$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, 0xA6CAF0)
_ListRezise()

GUICtrlDelete($Group2)
$Group2 = GUICtrlCreateGroup("Description", 400, 72, 241, 180, $BS_CENTER)
GUICtrlDelete($MyButtonQuitApercu)
$MyButtonQuitApercu = GUICtrlCreateButton("Ok", 615, 310, 40, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "_ReduireGui")
GUICtrlDelete($MyButtonopenpage)
$MyButtonopenpage = GUICtrlCreateButton("Ouvrir la Page", 398, 261, 244, 30, $BS_FLAT)
GUICtrlDelete($editinformation)
$editinformation = GUICtrlCreateEdit("", 405,83, 232,165,$__LISTBOXCONSTANT_WS_VSCROLL,$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, 0xA6CAF0)


Next
_Description()
EndFunc

Func _ReduireGui()
    $png2m = 129
For $i = 1 to 30
    Sleep(15)


;~  Fenetre itmnews
    $1 = $1-10
    WinMove("iTMBlogNews", "" , $3, $4 , $1, $2)

    ;~ Group
GUICtrlDelete($Group1)
$Group1 = GUICtrlCreateGroup("10 Dernères News", 64, 72, 241, 180, $BS_CENTER)

;~  png Pic
    $png2m  = $png2m-4.8
    GUICtrlDelete($png)
$png = PpngGuiCreatePic($sc12, $png2m, -10)

    ;~ Bouton
GUICtrlDelete($MyButton1)
$MyButton1 = GUICtrlCreateButton("Réactualiser", 64, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "_refresh")
GUICtrlDelete($MyButton2)
$MyButton2 = GUICtrlCreateButton("Aperçu", 192, 260, 116, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "Apercu")
GUICtrlDelete($MyButton3)
$MyButton3 = GUICtrlCreateButton("Option", 64, 290, 244, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "OptionButton")

;~ la liste
GUICtrlDelete($list)
$list = GUICtrlCreateList("",68,84,234,155,BitOR($__LISTBOXCONSTANT_WS_VSCROLL, $LBS_NOTIFY),$WS_EX_TRANSPARENT)
GUICtrlSetBkColor(-1, 0xA6CAF0)
_ListRezise()


GUICtrlDelete($Group2)
$Group2 = GUICtrlCreateGroup("Description", 400, 72, 241, 180, $BS_CENTER)
GUICtrlDelete($MyButtonQuitApercu)
$MyButtonQuitApercu = GUICtrlCreateButton("Ok", 615, 310, 40, 30, $BS_FLAT)
GUICtrlSetOnEvent(-1, "_ReduireGui")
GUICtrlDelete($MyButtonopenpage)
$MyButtonopenpage = GUICtrlCreateButton("Ouvrir la Page", 398, 261, 244, 30, $BS_FLAT)
GUICtrlDelete($editinformation)
$editinformation = GUICtrlCreateEdit("", 405,83, 232,165,$__LISTBOXCONSTANT_WS_VSCROLL,$WS_EX_TRANSPARENT)


Next
EndFunc

Func _ListRezise()

    $Test1[1] = StringReplace($Test1[1], "&#8217;", "'")
    $Test1[1] = StringReplace($Test1[1], "&#8230;", "")
    $Test1[2] = StringReplace($Test1[2], "&#8217;", "'")
    $Test1[2] = StringReplace($Test1[2], "&#8230;", "")
    $Test1[3] = StringReplace($Test1[3], "&#8217;", "'")
    $Test1[3] = StringReplace($Test1[3], "&#8230;", "")
    $Test1[4] = StringReplace($Test1[4], "&#8217;", "'")
    $Test1[4] = StringReplace($Test1[4], "&#8230;", "")
    $Test1[5] = StringReplace($Test1[5], "&#8217;", "'")
    $Test1[5] = StringReplace($Test1[5], "&#8230;", "")
    $Test1[6] = StringReplace($Test1[6], "&#8217;", "'")
    $Test1[6] = StringReplace($Test1[6], "&#8230;", "")
    $Test1[7] = StringReplace($Test1[7], "&#8217;", "'")
    $Test1[7] = StringReplace($Test1[7], "&#8230;", "")
    $Test1[8] = StringReplace($Test1[8], "&#8217;", "'")
    $Test1[8] = StringReplace($Test1[8], "&#8230;", "")
    $Test1[9] = StringReplace($Test1[9], "&#8217;", "'")
    $Test1[9] = StringReplace($Test1[9], "&#8230;", "")
    $Test1[10] = StringReplace($Test1[10], "&#8217;", "'")
    $Test1[10] = StringReplace($Test1[10], "&#8230;", "")
    GUICtrlSetData($list,  _Utf8ToAnsi($Test1[1]) & "|" &_Utf8ToAnsi($Test1[2]) & "|" &_Utf8ToAnsi($Test1[3]) & "|" &_Utf8ToAnsi($Test1[4]) & "|" &_Utf8ToAnsi($Test1[5]) & "|" &_Utf8ToAnsi($Test1[6]) & "|" &_Utf8ToAnsi($Test1[7]) & "|" &_Utf8ToAnsi($Test1[8]) & "|" &_Utf8ToAnsi($Test1[9]) & "|" &_Utf8ToAnsi($Test1[10]), 1)
    EndFunc

PS: La msgbox est temporaire c'est pour afficher la description de la News sélectionné dans la liste..


J'ai mit la fonction du temps en AdlibRegister("_DefineTmh", 3)

Func _DefineTmh()
$voila = GUICtrlRead($Minuterie)
If $voila = "5 Minutes" Then $tmh = 8000
If $voila = "10 Minutes" Then $tmh = 600000
If $voila = "15 Minutes" Then $tmh = 900000
If $voila = "20 Minutes" Then $tmh = 1200000
If $voila = "30 Minutes" Then $tmh = 1800000
If $voila = "45 Minutes" Then $tmh = 2700000
If $voila = "1 Heure" Then $tmh = 3600000
If $voila = "2 Heures" Then $tmh = 7200000
EndFunc

Mais faut croire que la fonction s'éxécute pour rien car elle ne donne pas de valeur au $tmh
Merci

[Tlem]

Comme d'ab, on n'écoute rien ...

Alors déjà, pour un code aussi long, on évite de le mettre dans un message. On le met en pièce jointe.

De plus lorsque on utilise des UDF spécifiques, on les joints au code de manière à ce que l'on puisse tester le code sans ce prendre la tête sur ce qu'il faut désactiver ou non ...

Dernière constatation : Le mode événementiel n'a pas résolu vos problèmes puisque le code ne fonctionne toujours pas !!!