Voici tout mon code:
► Afficher le texteTout le code
Code : Tout sélectionner
#RequireAdmin
#AutoIt3Wrapper_icon=iPodtouch.ico
#AutoIt3Wrapper_Compression=4
#include <AVIConstants.au3>
#include <ListBoxConstants.au3>
#include <_RSS.au3>
#include <ButtonConstants.au3>
#include <_pngnormal.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#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)
$Minuterie = GUICtrlCreateCombo("5 Minutes", 200, 32, 153, 25)
GUICtrlSetData(-1, "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 aved Windows", 32, 64, 220, 25)
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)
FileInstall("C:\Users\James\Desktop\images\pic.png", @TempDir & "/pic.png")
$Test1 = _RSSGetInfo("http://blog.ipodtouchmasterfr.com/feed/", "<title>", "</title>", 1)
$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)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetBkColor(0xA6CAF0)
GUISetState(@SW_SHOW)
GuiCtrlSetData($list, "")
For $i = 1 to 10 Step 1
$Test1[$i] = StringReplace($Test1[$i], "’", "'")
GuiCtrlSetData($list, _Utf8ToAnsi($Test1[$i]) & @CRLF , 1)
Next
While 1
$voila = GUICtrlRead($Minuterie)
If $voila = "5 Minutes" Then $tmp = 300000
If $voila = "10 Minutes" Then $tmp = 600000
If $voila = "15 Minutes" Then $tmp = 900000
If $voila = "20 Minutes" Then $tmp = 1200000
If $voila = "30 Minutes" Then $tmp = 1800000
If $voila = "45 Minutes" Then $tmp = 2700000
If $voila = "1 Heure" Then $tmp = 3600000
If $voila = "2 Heures" Then $tmp = 7200000
_Traymsg()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
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
GUISetState(@SW_HIDE, $Option)
EndSwitch
WEnd
; 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 _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], "’", "'")
GuiCtrlSetData($list, _Utf8ToAnsi($Test1[$i]) & @CRLF , 1)
Next
EndFunc
Func _Traymsg()
StringReplace($Test1[1], "’", "'")
TrayTip("Dernière News du Blog iTMFR!", _Utf8ToAnsi($Test1[1]), 1)
Sleep($tmp)
EndFuncMerci



