; Merci à Melba23 pour l'idée des notifications
#Include <Array.au3>
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 3) 

$id = StringTrimRight(@ScriptName, 4)
If _Singleton($id , 1) = 0 Then 
   MsgBox(48, "Attention", "  Ce programme est déjà lancé    ")
   Exit
EndIf

$ping = Ping("www.google.fr", 800)
If $ping = 0 Then 
  Msgbox(48,"Fatal Error", "  Pas de connexion internet   ")
  Exit
EndIf

Global $radio[7], $btn[7], $index[7] = [3, 4, 6, 21, 20, 14, 9]
Global $urlforum = "http://www.autoitscript.fr/forum/viewforum.php?f="
Global $urltopic = "http://www.autoitscript.fr/forum/viewtopic.php?f="
Global $urlportal = "http://www.autoitscript.fr/forum/portal.php"
Global $ind, $string, $delai, $listGui, $gen_btn, $listview, $listguiexists = 0
Global $survArray[1][6], $survs = 0, $indexLV3, $notfound, $surv_gen = 0
Global $survList, $reset_btn, $ok_btn, $survMenuVire, $allforums = 0
Global $message[3], $loading = 0, $g_eventerror = 0, $infos, $started = 0, $test_act = 0
Global $iniGui, $edit, $ini = "C:\survforum.ini"
Global $Notification[1][3], $retracting = 0, $nb_notifs = 0
Global $Notif_W = 440, $Notif_H = 36 
Global $Notif_X = @DesktopWidth - 10 - $Notif_W
Global $traytip = 1, $except = "", $noNotif = 0
Global $Notif_news[1][3], $news = 0, $nb_notifs_news = 0
Global $hNotif_mail, $checkmail, $mails = 0
Global $urlmail = "http://www.autoitscript.fr/forum/ucp.php?i=pm&folder=inbox"

Global $T_gui = TrayCreateItem ("Réduire la fenêtre")
Global $T_surv = TrayCreateItem ("Lancer la surveillance")
TrayCreateItem ("")
Global $T_news= TrayCreateItem ("News")
TrayCreateItem ("")
Global $T_ini = TrayCreateItem ("Voir le ini")
TrayCreateItem ("")
$T_exit = TrayCreateItem ("Quitter")
TraySetClick(8)

$mainGui = GUICreate("Surveillance arrêtée", 635, 186, 300, 20, _ 
	BitXOR($GUI_SS_DEFAULT_GUI, $WS_MINIMIZEBOX))
$group1 = GUICtrlCreateGroup("Forums", 10, 5, 214, 175)
$radio[0] = GUICtrlCreateRadio("Aide générale", 20, 22, 170, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$radio[1] = GUICtrlCreateRadio("Interface utilisateur (GUI)", 20, 40, 170, 20)
$radio[2] = GUICtrlCreateRadio("Exemples de script", 20, 58, 170, 20)
$radio[3] = GUICtrlCreateRadio("Fonctions et UDF", 20, 76, 170, 20)
$radio[4] = GUICtrlCreateRadio("Demande de création de Scripts", 20, 94, 170, 20)
$radio[5] = GUICtrlCreateRadio("La vie du Forum", 20, 112, 170, 20)
$radio[6] = GUICtrlCreateRadio("Chat", 20, 130, 170, 20)
$btn[0] = GUICtrlCreateButton(".", 195, 24, 20, 15)
$btn[1] = GUICtrlCreateButton(".", 195, 42, 20, 15)
$btn[2] = GUICtrlCreateButton(".", 195, 60, 20, 15)
$btn[3] = GUICtrlCreateButton(".", 195, 78, 20, 15)
$btn[4] = GUICtrlCreateButton(".", 195, 96, 20, 15)
$btn[5] = GUICtrlCreateButton(".", 195, 114, 20, 15)
$btn[6] = GUICtrlCreateButton(".", 195, 132, 20, 15)
GUICtrlCreateLabel("Users à ignorer", 18, 158, 75, 16)
GUICtrlSetTip(-1, "noms à ignorer, séparés par des virgules")
$e_input = GUICtrlCreateInput("", 95, 155, 120, 18)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$group2 = GUICtrlCreateGroup("Liste de surveillance", 230, 5, 396, 175)
$survList = GUICtrlCreateListView("|Sujet |Auteur", 235, 22, 385, 106, _ 
	BitOR($LVS_REPORT,$LVS_NOCOLUMNHEADER,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS))
GUICtrlSendMsg($survList, $LVM_SETCOLUMNWIDTH, 0, 20)
GUICtrlSendMsg($survList, $LVM_SETCOLUMNWIDTH, 1, 270)
GUICtrlSendMsg($survList, $LVM_SETCOLUMNWIDTH, 2, 70)
$survMenu  = GUICtrlCreateContextMenu($survList) 
$survMenuVire  = GUICtrlCreateMenuItem("Supprimer", $survMenu) 
$all_btn = GUICtrlCreateButton("surveiller tous les forums", 236, 132, 137, 18)
$news_btn = GUICtrlCreateButton("news", 378, 132, 42, 18)
GUICtrlSetTip(-1, "Voir les derniers messages")
GUICtrlCreateLabel("db-clic sur un sujet pour afficher sa page", 425, 133, 195, 16)
$ini_btn = GUICtrlCreateButton("ini", 240, 155, 35, 18)
$reset_btn = GUICtrlCreateButton("Reset", 280, 155, 50, 18)
GUICtrlCreateLabel("délai de vérification", 336, 158, 100, 18)
$d_input = GUICtrlCreateInput("", 431, 155, 30, 18)
GUICtrlCreateLabel("sec", 464, 158, 20, 18)
$exit_btn = GUICtrlCreateButton("Exit", 495, 155, 40, 18)
$ok_btn = GUICtrlCreateButton("Start", 548, 153, 70, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)

If not @Compiled Then
  InetGet("http://www.autoitscript.fr/images/favicon.ico", @tempdir & "\autoitfr.ico")
  TraySetIcon (@tempdir & "\autoitfr.ico")
  GuiSetIcon (@tempdir & "\autoitfr.ico")
EndIf

For $u = 0 To 6
GUICtrlSetTip($btn[$u], "voir tous les sujets de  " & GuiCtrlRead($radio[$u], 1))
GUICtrlSetState($btn[$u], $GUI_DISABLE)
Next
GUICtrlSetState($btn[0], $GUI_ENABLE)

If NOT FileExists($ini) Then 
    IniWrite($ini, "divers", "delai", "15")
    GuiCtrlSetData($d_input, "15")
    IniWrite($ini, "divers", "exceptions", "")
Else
    GuiCtrlSetData($d_input, IniRead($ini, "divers", "delai", "15"))
    GuiCtrlSetData($e_input, IniRead($ini, "divers", "exceptions", ""))
EndIf
_RestoreSurvList()

TraySetState()
GUISetState()

GUIRegisterMsg($WM_MOUSEACTIVATE, "_Notif_OFF") 
GUIRegisterMsg($WM_ACTIVATE, "WM_PAINT")
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

_CheckZeNewMails()


While 1

If not WinActive($mainGui) AND $test_act = 0 Then $test_act = 1 

$Tmsg = TrayGetMsg()
Switch $Tmsg
    Case $T_gui, -13   ; $TRAY_EVENT_PRIMARYDOUBLE	= -13, $TRAY_EVENT_PRIMARYDOWN = -7
	_ShowHideGui()
    Case $T_surv
	_Surveillance()
    Case $T_news
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	_ShowHideNews()
    Case $T_ini
	_ShowHideIni()
    Case $T_exit
	$started = 0
	AdlibUnRegister()
 	_UpdateIni()
	_Clean_Notifs()
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	Exit
EndSwitch


$msg = GuiGetMsg(1)

If $mails <> 0 Then   
    If $msg[1] = $hNotif_mail Then 
	$a = GUIGetCursorInfo($hNotif_mail)
	If $a[0]<$Notif_W-30 Then ShellExecute($urlmail)
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif_mail, "int", 500, "long", 0x00050001) 
	$mails = 0
	GUIDelete($hNotif_mail)
    EndIf
EndIf

Switch $msg[0]
    Case $GUI_EVENT_CLOSE
	Switch $msg[1]
           Case $listGui 
		GuiDelete($listGui)
		$listguiexists = 0
		If Not BitAnd(WinGetState($mainGui), 2) Then WinSetState($mainGui, "", @SW_SHOW)
           Case $iniGui 
		_ShowHideIni()
           Case $mainGui
		_ShowHideGui()
		If $traytip = 1 Then
		   TrayTip ("Surveillance forum", "Utiliser ce menu pour afficher ou masquer la fenêtre principale", 3 , 1)
		   $traytip = 0
		EndIf
	EndSwitch

    Case $exit_btn
	$started = 0
	AdlibUnRegister()
 	_UpdateIni()
	_Clean_Notifs()
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	Exit

   Case $ini_btn
	_ShowHideIni()

   Case $reset_btn
	If $started = 1 Then
	   $confirm = MsgBox (48+4, "Confirmer", "Surveillance en cours," &@CRLF& "Vider la liste quand même ?") 
	EndIf
	If $started = 0 OR $confirm = 6 Then ; msgbox 'oui'
		If $started = 1 Then 
		   AdLibUnRegister("_getZeUpdatedMessage")
		   $started = 0
		   GUICtrlSetData($ok_btn, "Start") 
		EndIf
		WinSetTitle($mainGui, "", "Surveillance arrêtée")
		$allforums = 0
		For $s = 0 To $survs-1
		     GUICtrlDelete($survArray[$s][0])
		Next
		FileDelete($ini)
		IniWrite($ini, "divers", "delai", "15")
		IniWrite($ini, "divers", "exceptions", "")
		GuiCtrlSetData($d_input, IniRead($ini, "divers", "delai", "15"))
		GuiCtrlSetData($e_input, IniRead($ini, "divers", "exceptions", ""))
		$survs = 0
		$survArray = ""
		Dim $survArray[1][6]
		_Clean_Notifs()
		GUICtrlSetState($news_btn, $GUI_ENABLE)
		TrayItemSetState($T_news, 64)  ; $TRAY_ENABLE
	EndIf

   Case $ok_btn  
	_Surveillance()

   Case $all_btn  ; tous les forums
	For $i = 0 To $survs-1
	    If $survArray[$i][3] = "Tous les forums" Then $allforums = 1
	Next
	If $allforums = 0 Then
           SplashTextOn ("", "Chargement des données"  & "...", 280, 55, -1, -1, 49)
           $infos = _getInfosAboutZeTopics($urlportal)
	   If @error Then
	      SplashTextOn ("", "Erreur de chargement "  & "...", 280, 55, -1, -1, 49)
	      Sleep(3000)
	      SplashOff()
	   Else
             SplashOff()
	     $allforums = 1
	     $survs +=1
	     ReDim $survArray[$survs][6]
	     $survArray[$survs-1][0] = GUICtrlCreateListViewItem ("|" & "Tous les forums" , $survList)  ; handle item
	     $survArray[$survs-1][1] = $infos[0][3]   ; lien forum
	     $survArray[$survs-1][2] = $infos[0][4]   ; date réponse
	     $survArray[$survs-1][3] = "Tous les forums"  ; nom forum
	     $survArray[$survs-1][4] = "" ; $infos[0][6]   ; index forum
	     $survArray[$survs-1][5] = "" ; $infos[0][1]   ; auteur
	     GUICtrlSetImage($survArray[$survs-1][0], @SystemDir & "\shell32.dll", -206)
	   _SaveSurv()
	   EndIf
	EndIf

   Case $news_btn   ; page de news
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	_ShowHideNews()

    Case $survMenuVire
	If $loading = 1 Then
		Do
		  Sleep(10)
		Until $loading = 0
	EndIf
	If ControlListView($mainGui, "", $survList, "IsSelected", $indexLV3) <> 0 Then
		GUICtrlDelete($survArray[$indexLV3][0])
		_ArrayDelete($survArray, $indexLV3)
		IniDelete ($ini, $indexLV3)
		For $i = $indexLV3+1 To $survs-1
			IniRenameSection ($ini, $i, $i-1) 
		Next
		$survs -=1
		;_ArrayDisplay($survArray, "debug")
		If $survArray = "" Then 
			AdLibUnRegister("_getZeUpdatedMessage")
			$indexLV3 = ""
			Dim $survArray[1][6]
		EndIf
	EndIf

EndSwitch


If $listguiexists = 1 Then
 Switch $msg[0]
   Case $gen_btn
	$listTitle = WinGetTitle($listGui)
	For $i = 0 To $survs-1
	    If $survArray[$i][3] = $listTitle Then $surv_gen = 1
	Next
	If $surv_gen = 0 Then
	     $survs +=1
	     ReDim $survArray[$survs][6]
	     $survArray[$survs-1][0] = GUICtrlCreateListViewItem ("|" & $listTitle , $survList)  ; handle item
	     $survArray[$survs-1][1] = $urlforum & $infos[0][6]   ; lien forum
	     $survArray[$survs-1][2] = $infos[0][4]   ; date réponse
	     $survArray[$survs-1][3] = $listTitle   ; nom forum
	     $survArray[$survs-1][4] = $infos[0][6]   ; index forum
	     $survArray[$survs-1][5] = ""   
	     GUICtrlSetImage($survArray[$survs-1][0], @SystemDir & "\shell32.dll", -206)
	   _SaveSurv()
	    $surv_gen = 1
	EndIf
EndSwitch
EndIf


For $k = 0 To 6

    Switch $msg[0]
       Case $radio[$k]
        For $u = 0 To 6
            GUICtrlSetState($btn[$u], $GUI_DISABLE)
        Next
        GUICtrlSetState($btn[$k], $GUI_ENABLE)


;======================================== listview forums===========
       Case $btn[$k]        
        ToolTip("")
        $tip = 0
        If $listguiexists = 1 Then 
	  	    GuiDelete($listGui)
		    $surv_gen = 0
		    $infos = ""
	    EndIf
        SplashTextOn ("", "Chargement du forum" & @crlf & GuiCtrlRead($radio[$k], 1) & "...", 280, 70, -1, -1, 49)
        $infos = _getInfosAboutZeTopics($urlforum, $index[$k])
	If @error Then
	        SplashTextOn ("", "Erreur de chargement de" & @crlf & GuiCtrlRead($radio[$k], 1) & "...", 280, 70, -1, -1, 49)
		Sleep(3000)
	        SplashOff()
	Else
	        SplashOff()

;#####################
;_getInfosAboutZeTopics($url, $ind) renvoie dans $infos tous les sujets du forum $url/$ind avec :
;$infos[$i][0] = titre du sujet
;$infos[$i][1] = auteur sujet
;$infos[$i][2] = auteur réponse
;$infos[$i][3] = lien vers la dernière réponse
;$infos[$i][4] = date de la dernière réponse
;$infos[$i][5] = lien vers le sujet
;$infos[$i][6] = $ind du forum
;###################
        ;_ArrayDisplay($infos & " debug", "Forum " & GuiCtrlRead($radio[$k], 1))

        $mainpos = WinGetPos($mainGui)
        $listGui = GUICreate("Forum " & GuiCtrlRead($radio[$k], 1), 400, 400, $mainpos[0]+660, 20)
        $listview = GUICtrlCreateListView("Sujet |Auteur", 0, 0, 400, 363, _ 
		BitOR($LVS_REPORT,$LVS_SINGLESEL,$LVS_SHOWSELALWAYS))
        GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, 280)
        GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 1, 100)
        GuiCtrlCreateLabel("clic-droit sur un sujet pour l'ajouter à la liste de surveillance", 5, 366, 280, 17)
        GuiCtrlCreateLabel("double-clic sur un sujet pour afficher sa page du forum", 10, 383, 280, 17)
	$gen_btn = GuiCtrlCreateButton("Surveillance générale forum", 285, 365, 110, 32, 0x2000)
        For $i = 0 To UBound($infos)-1
          GUICtrlCreateListViewItem($infos[$i][0] & "|" & $infos[$i][1], $listview)
        Next
	If not @Compiled Then GuiSetIcon (@tempdir & "\autoitfr.ico")
        GUISetState()
        $listguiexists = 1

	EndIf
;========================================================

    EndSwitch
Next

Wend



;##########################################################################
;##########################################################################

Func _Surveillance()     ; initialisation surveillance
If $started = 0 Then
   If $survs = 0 Then
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	MsgBox(48, "Erreur liste", "La liste de surveillance est vide...  ")
	_ShowHideGui()
   Else
	$delai = GuiCtrlRead($d_input)
	IniWrite($ini, "divers", "delai" , GuiCtrlRead($d_input))
	If $delai < 10 Then $delai = 10
	$delai = ($delai + $survs*5) *1000    ; $delai en secondes
	If $listguiexists = 1 Then GuiDelete($listGui)
	$infos = ""
	WinSetTitle($mainGui, "", "Surveillance en cours")
	AdLibRegister("_getZeUpdatedMessage", $delai)     ; lance la surveillance
	GUICtrlSetData($ok_btn, "Stop") 
	TrayItemSetText($T_surv, "Stopper la surveillance")
	GUICtrlSetState($news_btn, $GUI_DISABLE)
	TrayItemSetState($T_news, 128)  ; $TRAY_DISABLE
	$started = 1	
	If BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
    EndIf
Else
	$started = 0	
	WinSetTitle($mainGui, "", "Surveillance en pause")
	AdLibUnRegister("_getZeUpdatedMessage")
	GUICtrlSetData($ok_btn, "Start") 
	TrayItemSetText($T_surv, "Lancer la surveillance")
	_Clean_Notifs()
	GUICtrlSetState($news_btn, $GUI_ENABLE)
	TrayItemSetState($T_news, 64)  ; $TRAY_ENABLE
	If NOT BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
EndIf
EndFunc  ;==>_Surveillance


;################### $survList, par item :
;$i = index dans la liste de surv
;$survArray[$i][0] = handle de l'item $i 
;$survArray[$i][1] = lien vers la dernière réponse
;$survArray[$i][2] = date dernière réponse
;$survArray[$i][3] = titre sujet
;$survArray[$i][4] = index du forum $ind 
;$survArray[$i][5] = auteur
;$survs = nb d'items dans la liste
;###################

;##############
;_getZisMessage($url, $ind, $Fstring = " ")  renvoie du forum $url/$ind
;$message[0] = titre du message contenant $Fstring
;$message[1] = lien dernière réponse (updt !)
;$message[2] = date dernière réponse (updt !)
;$message[3] = index forum
;$message[4] = auteur sujet
;$message[5] = auteur réponse (updt !)
;##############

;=======================================surveillance sujets==================

Func _getZeUpdatedMessage()     ; gestion de la surveillance
Local $begin = TimerInit()
  For $i = 0 To $survs-1
	If $started = 0 Then Exitloop
	$loading = 1
	$notfound = 0
	If $survArray[$i][5] = "" Then
	    $string = " "
	Else
	    $string = StringTrimLeft(StringLeft($survArray[$i][3], 20), 5)
	EndIf
	Local $ind = $survArray[$i][4]
	If $ind = "" Then 
	    $message = _getZisMessage($urlportal, "", $string)     ; check la page d'accueil
	Else
	    $message = _getZisMessage($urlforum, $ind, $string)   ; check les forums
	EndIf
	If @error OR $message = "" then
		$g_eventerror = 0
	Else
		If $notfound = 1 Then
			GUICtrlSetImage($survArray[$i][0], @SystemDir & "\shell32.dll", -132)
		Else
		     If GuiCtrlRead($e_input) <> "" Then
		        $except = StringSplit(GuiCtrlRead($e_input), ",")
		        For $e = 1 to $except[0]
					$except[$e] = StringRegExpReplace($except[$e], '^\s*|\s*$', "")
					If $except[$e] = $message[5] Then $noNotif = 1
				Next
		     EndIf
		    If $message[2] <> $survArray[$i][2] AND $noNotif = 0 Then    
   				;########### pour tester : If $message[2] = ... ,  fonctionnement normal : If $message[2] <>... 
			_Notif_ON(StringRegExpReplace($message[2], '(\d{4} )', ""), _ 
				_NomForum($message[3]), $message[0], $message[4], $message[5])   
						 ; date, forum, titre, auteur sujet, auteur réponse
			$Notification[$nb_notifs][1] = $survArray[$i][3]   ; titre (concordance liste gui)
			$Notification[$nb_notifs][2] = $message[1]   ; lien dernière réponse
				;_ArrayDisplay($Notification, "debug")
			$survArray[$i][1] = $message[1]   
			$survArray[$i][2] = $message[2]
			GUICtrlSetImage($survArray[$i][0], @SystemDir & "\shell32.dll", -138)  
			For $m = 1 To 5
			   IniWrite($ini, $i, $m , $survArray[$i][$m] )   ; update ini
			Next	
		    EndIf
		EndIf
	EndIf
;  _ArrayDisplay($survArray, "debug")
	$noNotif = 0
	$loading = 0
  Next
Local $dif = Round(TimerDiff($begin)/1000)  ; en sec
If $dif > ($delai-5) Then AdLibRegister("_getZeUpdatedMessage", $delai)   
EndFunc

Func MyErrFunc() 
   $g_eventerror = 1
Endfunc   ;==> _getZeUpdatedMessage


;=======================================WM_NOTIFY==================

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
   Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndForumListView, $hWndSurvListView
    Local $tagNMHDR = "hwnd hWndFrom;uint_ptr IDFrom;INT Code"
    $hWndForumListView = $listview
       If Not IsHWnd($listview) Then $hWndForumListView = GUICtrlGetHandle($listview)
       $hWndSurvListView = $survList
        If Not IsHWnd($survList) Then $hWndSurvListView = GUICtrlGetHandle($survList)
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hWndForumListView
            Switch $iCode
	        Case $NM_DBLCLK
	            Local $indexLV0 = ControlListView($listGui, "", $hWndForumListView, "GetSelected")
	            ShellExecute(StringRegExpReplace($infos[$indexLV0][5], "#.+", ""))
	        Case $NM_RCLICK
	             Local $indexLV = ControlListView($listGui, "", $hWndForumListView, "GetSelected")
		     Local $sujetLV = ControlListView($listGui, "", $hWndForumListView, "GetText", $indexLV, 0)
		     For $i = 0 To $survs-1
			If $survArray[$i][3] = $sujetLV Then Return
		     Next
		     Local $auteurLV = ControlListView($listGui, "", $hWndForumListView, "GetText", $indexLV, 1)
		     $survs +=1
		     ReDim $survArray[$survs][6]
		     $survArray[$survs-1][0] = GUICtrlCreateListViewItem ("|" & $sujetLV & "|" & $auteurLV, $survList)  ; handle item
		     $survArray[$survs-1][1] = $infos[$indexLV][3]   ; lien réponse
		     $survArray[$survs-1][2] = $infos[$indexLV][4]   ; date réponse
		     $survArray[$survs-1][3] = $infos[$indexLV][0]   ; titre
		     $survArray[$survs-1][4] = $infos[$indexLV][6]   ; index forum
		     $survArray[$survs-1][5] = $infos[$indexLV][1]   ; auteur
		     GUICtrlSetImage($survArray[$survs-1][0], @SystemDir & "\shell32.dll", -206)
			 _SaveSurv()
            EndSwitch
        Case $hWndSurvListView
			Switch $iCode
	        Case $NM_DBLCLK
	            Local $indexLV2 = ControlListView($mainGui, "", $hWndSurvListView, "GetSelected")
	  	    If ControlListView($mainGui, "", $hWndSurvListView, "IsSelected", $indexLV2) <> 0 Then
		        GUICtrlSetImage($survArray[$indexLV2][0], @SystemDir & "\shell32.dll", -111)
	                ShellExecute($survArray[$indexLV2][1])
		    EndIf
	        Case $NM_RCLICK
	            $indexLV3 = ControlListView($mainGui, "", $hWndSurvListView, "GetSelected")
			EndSwitch
    EndSwitch
   Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY


;======================================= affichage gui========================

Func _ShowHideGui()
If $mails <> 0 Then 
   DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif_mail, "int", 500, "long", 0x00050001) 
   GUIDelete($hNotif_mail)
EndIf
If BitAnd(WinGetState($mainGui), 2) Then 
   DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $mainGui, "int", 200, "long", 0x00090000)  ; fade-out
   GuiSetState(@SW_HIDE, $mainGui)
   TrayItemSetText($T_gui, "Restaurer la fenêtre")
Else
   DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $mainGui, "int", 200, "long", 0x00080000)  ; fade-in
   GuiSetState(@SW_SHOW, $mainGui)
   _WinAPI_RedrawWindow($mainGui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW))
  _WinAPI_SetWindowPos($mainGui, 0, -1, -1, -1, -1, BitOR(0x0001, 0x0002))
				 ; $HWND_TOP, $SWP_NOSIZE, $SWP_NOMOVE
  TrayItemSetText($T_gui, "Réduire la fenêtre")
EndIf
EndFunc


;======================================= gestion du ini =======================

Func _ShowHideIni()
If NOT WinExists($ini) Then 
   Local $file = FileRead($ini)
   $iniGui = GuiCreate($ini, 420, 200, 200, 50, -1, $DS_MODALFRAME)
   $edit = GuiCtrlCreateEdit("", 0, 2, 420, 198, $WS_VSCROLL+0x0804)
   GUICtrlSetBkColor(-1, 0xffffff)
   GuiSetState()
   GuiCtrlSetData($edit, $file)
   TrayItemSetText($T_ini, "Fermer le ini")
Else
   GuiDelete($iniGui)
   TrayItemSetText($T_ini, "Voir le ini")
EndIf
EndFunc

Func _SaveSurv()
For $i = 1 To 5
	IniWrite($ini, $survs-1, $i , $survArray[$survs-1][$i] )
Next	
EndFunc

Func _UpdateIni()
IniWrite($ini, "divers", "delai" , GuiCtrlRead($d_input))
IniWrite($ini, "divers", "exceptions", GuiCtrlRead($e_input))
For $s = 0 to $survs-1
	For $i = 1 To 5
		IniWrite($ini, $s, $i , $survArray[$s][$i] )
	Next	
Next
EndFunc  ;==>_ShowHideIni


Func _RestoreSurvList()
If FileExists($ini) Then
  Local $var = IniReadSectionNames($ini)
  If $var[0]>1 Then
   $survs = $var[0]-1
   Dim $survArray[$survs][6]
   For $i = 0 To $survs-1
	Local $ini_items = IniReadSection($ini, $i)
	$survArray[$i][1] = $ini_items[1][1]   ; lien réponse
	$survArray[$i][2] = $ini_items[2][1]   ; date réponse
	$survArray[$i][3] = $ini_items[3][1]   ; titre
	$survArray[$i][4] = $ini_items[4][1]   ; index forum
	$survArray[$i][5] = $ini_items[5][1]   ; auteur
	$survArray[$i][0] = GUICtrlCreateListViewItem ("|" & $ini_items[3][1] & "|" & $ini_items[5][1], $survList)  ; handle item
	GUICtrlSetImage(-1, @SystemDir & "\shell32.dll", -206)
   Next
 EndIf
EndIf
EndFunc


;===================================données listview forums===================

Func _getInfosAboutZeTopics($F_url, $F_ind = "")    ; listview forums
Do
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", $F_url & $F_ind)
$oHTTP.Send()
Until $g_eventerror =0

Local Const $txt = $oHTTP.Responsetext 
$oHTTP = 0
Local Const $txt2 = StringRegExpReplace($txt, '(?s)(.*?)Sujets</b>', "")
Local $items = StringRegExp($txt2, '(?s)topictitle">(.*?)"><img', 3)
$items = _CleanStickys($txt2, $items)
If NOT IsArray($items) Then
     SetError(1)
     Return
EndIf
Local $viewtopics[UBound($items)][7]
For $i = 0 To UBound($items)-1
   Local $F_string = $items[$i]
     If StringInStr($F_string, "sid") Then _ 
		$F_string = StringRegExpReplace($F_string,  '(?s)(.+)&amp;sid(.+)#(.+)', "$1"&"#"&"$3")
   Local $titre = StringRegExpReplace($F_string, '(?s)(</a>.+)', "")
    If StringInStr(StringLeft($titre, 4), "[.") Then $titre = StringRegExpReplace($titre, '^(.*?)\]', "")  ; titre
    $titre = _CleanHtmlShits($titre)
    $viewtopics[$i][0] = $titre
    $viewtopics[$i][1] = StringRegExpReplace($F_string, '(?s)(.*?)u=((.+?)>(.+?))</a>.+', "$4")  ; auteur sujet
    $viewtopics[$i][2] = StringRegExpReplace($F_string, '(?s)(.+)>(.+?)</a>.+', "$2")   ; auteur réponse
    $viewtopics[$i][4] = StringRegExpReplace($F_string, '(?s)(.+)nowrap;">([^<]+).+', "$2" )   ; date réponse
    $viewtopics[$i][6] = StringRegExpReplace($F_string, '(?s)(.+)f=([^&]+).+', "$2")  ; index forum
    Local $adrtopic = StringRegExpReplace($F_string, '(?s)(.+)&amp;t(.+)&amp;p(.+)', "&t"&"$2"&"&p"&"$3") 
    $viewtopics[$i][3] = $urltopic & $viewtopics[$i][6] & $adrtopic    ; lien réponse
    $viewtopics[$i][5] = StringRegExpReplace($viewtopics[$i][3], "&p=.+", "")     ; lien sujet
Next
Return $viewtopics   ; pour l'array $infos
EndFunc ;==> _getInfosAboutZeTopics


;===============================récupération des données sujets==================

Func _getZisMessage($R_url, $R_ind, $Fstring = " ")   

$message = "" 
Dim $message[6]
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", $R_url & $R_ind)
$oHTTP.Send()
If $g_eventerror then Return
Local Const $txt = $oHTTP.Responsetext 
$oHTTP = 0

Local Const $txt2 = StringRegExpReplace($txt, '(?s)(.*?)Sujets</b>', "")
Local $items2 = StringRegExp($txt2, '(?s)topictitle">(.*?)"><img', 3)
If NOT IsArray($items2) Then
     SetError(1)
     Return
EndIf
$items2 = _CleanStickys($txt2, $items2)
For $i = 0 To UBound($items2)-1
  Local $R_string = $items2[$i]
        Local $titre = StringRegExpReplace($R_string, '(?s)(</a>.+)', "")
        If StringInStr($titre, $Fstring) Then
	   If StringInStr($R_string, "sid") Then _ 
		$R_string = StringRegExpReplace($R_string,  '(?s)(.+)&amp;sid(.+)#(.+)', "$1"&"#"&"$3")
  	   If StringInStr(StringLeft($titre, 4), "[.") Then $titre = StringRegExpReplace($titre, '^(.*?)\]', "")  ; titre sujet
	 $titre = _CleanHtmlShits($titre)
         $message[0] = $titre
         $message[2] = StringRegExpReplace($R_string, '(?s)(.+)nowrap;">([^<]+).+', "$2" )   ; date réponse
         $message[3] = StringRegExpReplace($R_string, '(?s)(.+)f=([^&]+).+', "$2")  ; index forum
         $message[4] = StringRegExpReplace($R_string, '(?s)(.*?)u=((.+?)>(.+?))</a>.+', "$4")  ; auteur sujet
         $message[5] = StringRegExpReplace($R_string, '(?s)(.+)>(.+?)</a>(.+)', "$2")   ; auteur réponse
        Local $adrtopic = StringRegExpReplace($R_string, '(?s)(.+)&amp;t(.+)&amp;p(.+)', "&t"&"$2"&"&p"&"$3") 
         $message[1] = $urltopic & $message[3] & $adrtopic   ; lien réponse
        Return $message
      EndIf
Next
   _checkPoubelle($Fstring)  ; si message pas trouvé
EndFunc ;==> _getZisMessage


Func _CleanStickys($Codepage, $ItemArray)    ; vire les topics 'sticky'
  Local $sticky = 0
  StringReplace($Codepage, "sticky", "")
  If @error = 0 AND @Extended>1 Then $sticky = @Extended-1
  If $sticky>0 Then
    For $s = 0 To $sticky-1
       If IsArray($ItemArray) Then _ArrayDelete($ItemArray, 0)
       Sleep(10)
    Next
  EndIf
  Return $ItemArray
EndFunc  ;==>_CleanStickys


Func _checkPoubelle($Pstring)
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("GET", $urlforum & "34")
$oHTTP.Send()
If $g_eventerror then Return
Local Const $txt = $oHTTP.Responsetext 
$oHTTP = 0
Local Const $txt2 = StringRegExpReplace($txt, '(?s)(.*?)Sujets</b>', "")
Local Const $_titres = StringRegExp($txt2, '(?s)topictitle">(.*?)"><img', 3)
If IsArray($_titres) Then
  For $i = 0 To UBound($_titres)-1
       If StringInStr($_titres[$i], $Pstring) Then
	 $notfound = 1
         MsgBox(48, " Désolé", "Le message contenant : " & $Pstring & " est à la poubelle  ", 3)  
         Return
       EndIf
  Next  
EndIf
$notfound = 1
; MsgBox(48, "Erreur", "Pas trouvé le message contenant :  " & $Pstring, 3)
EndFunc  ;==>_checkPoubelle


;=======================================gestion des notifications==================

Func _Clean_Notifs()   ; ferme toutes les notifs et réinitialise
If $nb_notifs > 0 Then
	For $i = $nb_notifs To 1 Step -1
		DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Notification[$i][0], "int", 500, "long", 0x00050001) 
		GUIDelete($Notification[$i][0])
	Next
	$Notification = ""
	Dim $Notification[1][3]
	$nb_notifs = 0
	TrayItemSetState($T_news, 64)  ; $TRAY_ENABLE
EndIf
If $nb_notifs_news > 0 Then
	For $i = $nb_notifs_news To 1 Step -1 
		DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Notif_news[$i][0], "int", 500, "long", 0x00050001) 
		GUIDelete($Notif_news[$i][0])
	Next
	$news = 0
	$Notif_news = ""
	Dim $Notif_news[1][3]
	$nb_notifs_news = 0
	TrayItemSetText($T_news, "News")
	TrayItemSetState($T_surv, 64)  
	GUICtrlSetState($ok_btn, $GUI_ENABLE)
EndIf
EndFunc  ;==>_Clean_Notifs


Func _Notif_ON($nDate, $nforum, $nMessage, $nAuteur, $nRep)     ; notifs sujets
Local $Notif_Y = @DesktopHeight - 80 - (50 * ($nb_notifs + 1))
Local $hNotif = GUICreate("", $Notif_W, $Notif_H, $Notif_X, $Notif_Y, _ 
	$WS_POPUPWINDOW, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_CLIENTEDGE)) 
GUISetBkColor(0xdde0e7)
GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -138, 6, 2, 16, 16)
GUICtrlCreateLabel("Répondu  " & $nDate & "  (" & $nforum & ")", 30, 2, $Notif_W-140, 16)     ; (Titre G : date, forum)
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x008020)
GUICtrlCreateLabel($nRep, $Notif_W-120, 2, 90, 16, 0x0002)     ; (Titre D : auteur rep) $SS_RIGHT
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x005090)
GUICtrlCreateLabel($nMessage & "    (sujet de " & $nAuteur & " )" , 10, 20, $Notif_W-15, 16, 1)    ; (sujet, auteur)  $SS_CENTER
GUICtrlSetFont(-1, 9, 400, 0)
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x004080)
GUICtrlCreateLabel(" X", $Notif_W-25, 2, 25, 18, 1)
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0xdd2020)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif, "int", 1000, "long", 0x00040002) ; slide left
GUISetState(@SW_SHOWNOACTIVATE, $hNotif)
$nb_notifs += 1
ReDim $Notification[$nb_notifs + 1][3]
$Notification[$nb_notifs][0] = $hNotif
EndFunc   ;==>_Notif_ON


Func _Notif_OFF($hWnd, $iMsg, $wParam, $lParam)   ; fermeture notif
#forceref $iMsg, $wParam, $lParam
If $retracting Then Return
$retracting = True

If $news = 1 Then
If $hWnd = $Notif_news[$nb_notifs_news][0] Then 
	_Clean_Notifs()
	If NOT BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
EndIf
For $i = $nb_notifs_news To 1 Step -1
    If $hWnd = $Notif_news[$i][0] Then 
	Local $a = GUIGetCursorInfo($hWnd)
	If $a[0]<$Notif_W-30 Then ShellExecute($Notif_news[$i][2])
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Notif_news[$i][0], "int", 500, "long", 0x00050001) 
	GUIDelete($Notif_news[$i][0])
	For $j = $i To $nb_notifs_news-1
	    $Notif_news[$j][0] = $Notif_news[$j+1][0]
	    $Notif_news[$j][1] = ""  ; $Notif_news[$j+1][1]
	    $Notif_news[$j][2] = $Notif_news[$j+1][2]
	     WinMove($Notif_news[$j][0], "", $Notif_X, @DesktopHeight - 80 - (50 * $j))
	     WinMove($Notif_news[$nb_notifs_news][0], "", $Notif_X, @DesktopHeight - 60 - (50 * $j))
	Next
	ReDim $Notif_news[$nb_notifs_news][3]
	$nb_notifs_news -= 1
	If $nb_notifs_news = 1 Then 
		DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Notif_news[1][0], "int", 500, "long", 0x00050001)
		GUIDelete($Notif_news[1][0])
		$nb_notifs_news = 0
		$news = 0
		$Notif_news = ""
		TrayItemSetState($T_surv, 64)  ; $TRAY_ENABLE
		TrayItemSetText($T_news, "News")
		GUICtrlSetState($ok_btn, $GUI_ENABLE)
		If NOT BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
	EndIf
        ExitLoop
    EndIf
Next

Else
For $i = $nb_notifs To 1 Step -1
    If $hWnd = $Notification[$i][0] Then 
	Local $a = GUIGetCursorInfo($hWnd)
	For $j = 0 To $survs-1
	    Local $sujetLV2 = ControlListView($mainGui, "", $survList, "GetText", $j, 1)
	    If $sujetLV2 = $Notification[$i][1] Then
		GUICtrlSetImage($survArray[$j][0], @SystemDir & "\shell32.dll", -111)
		If $a[0]<$Notif_W-30 Then ShellExecute($Notification[$i][2])
	    EndIf
	Next
	DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Notification[$i][0], "int", 500, "long", 0x00050001) ; slide right
	GUIDelete($Notification[$i][0])
	For $j = $i To $nb_notifs-1
	    $Notification[$j][0] = $Notification[$j+1][0]
	    $Notification[$j][1] = $Notification[$j+1][1]
	    $Notification[$j][2] = $Notification[$j+1][2]
	     WinMove($Notification[$j][0], "", $Notif_X, @DesktopHeight - 80 - (50 * $j))
	Next
	ReDim $Notification[$nb_notifs][3]
	$nb_notifs -= 1
        ExitLoop
    EndIf
Next
EndIf
$retracting = False
Return $GUI_RUNDEFMSG
EndFunc   ;==> _Notif_OFF


;======================================gestion des news==================

Func _ShowHideNews()
If $news = 0 Then 
	SplashTextOn ("", "Chargement des News"  & "...", 280, 55, -1, -1, 49)
	Local $infosP = _getInfosAboutZeTopics($urlportal)
	If @error Then
		SplashTextOn ("", "Erreur de chargement..."  & "...", 280, 55, -1, -1, 49)
		Sleep(3000)
	        SplashOff()
		If NOT BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
		Return
	EndIf
	SplashOff()
	$news = 1
	TrayItemSetState($T_surv, 128)  ; $TRAY_DISABLE
	GUICtrlSetState($ok_btn, $GUI_DISABLE)
	$nb_notifs_news = 0 
	Dim $Notif_news[UBound($infosP)+2][3]   
	For $i = UBound($infosP) to 1 step -1
	   _Notif_Portal_ON($i , StringRegExpReplace($infosP[$i-1][4], '(\d{4} )', ""), _ 
			_NomForum($infosP[$i-1][6]), $infosP[$i-1][0], $infosP[$i-1][1], $infosP[$i-1][2])
	    $Notif_news[$nb_notifs_news][2] = $infosP[$i-1][3]
	    If $i = 1 Then _Notif_Warning()
	Next
	TrayItemSetText($T_news, "Fermer les News")
Else
	_Clean_Notifs()
	If NOT BitAnd(WinGetState($mainGui), 2) Then _ShowHideGui()
EndIf
EndFunc


Func _Notif_Warning()     ; notif pour fermeture des news
Local $Notif_Y = @DesktopHeight - 80 - (50 * ($nb_notifs_news + 1))
Local $hNotif = GUICreate("", $Notif_W, $Notif_H-20, $Notif_X, $Notif_Y+20, _ 
	$WS_POPUPWINDOW, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_CLIENTEDGE)) 
GUISetBkColor(0xdde0e7)
GUICtrlCreateLabel("Fermer toutes les News", 0, 2, $Notif_W, 16, 1)    
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0xcc2020)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif, "int", 800, "long", 0x00040002) ; slide left
GUISetState(@SW_SHOWNOACTIVATE, $hNotif)
$nb_notifs_news += 1
;ReDim $Notif_news[$nb_notifs_news + 1][3]
$Notif_news[$nb_notifs_news][0] = $hNotif
EndFunc   ;==>_Notif_Warning


Func _Notif_Portal_ON($nn, $nDate, $nforum, $nMessage, $nAuteur, $nRep)    ; notifs news
Local $Notif_Y = @DesktopHeight - 80 - (50 * ($nb_notifs_news + 1))
Local $hNotif = GUICreate("", $Notif_W, $Notif_H, $Notif_X, $Notif_Y, _ 
	$WS_POPUPWINDOW, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_CLIENTEDGE)) 
GUISetBkColor(0xdde0e7)
GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -138, 6, 2, 16, 16)
GUICtrlCreateLabel("News n°" & $nn & "  " & $nDate & "  (" & $nforum & ")", 30, 2, $Notif_W-100, 16)     ; (Titre G : date, forum)
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x008020)
GUICtrlCreateLabel($nRep, $Notif_W-110, 2, 90, 16, 0x0002)     ; (Titre D : auteur rep) $SS_RIGHT
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x005090)
GUICtrlCreateLabel($nMessage & "    (sujet de " & $nAuteur & " )" , 10, 20, $Notif_W-15, 16, 1)    ; (sujet, auteur)  $SS_CENTER
GUICtrlSetFont(-1, 9, 400, 0)
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x004080)
GUICtrlCreateLabel(" X", $Notif_W-20, 2, 20, 18, 1)
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0xdd2020)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif, "int", 800, "long", 0x00040002) ; slide left
GUISetState(@SW_SHOWNOACTIVATE, $hNotif)
$nb_notifs_news += 1
;ReDim $Notif_news[$nb_notifs_news + 1][3]
$Notif_news[$nb_notifs_news][0] = $hNotif
EndFunc   ;==>_Notif_Portal_ON


;============================================check message privé=============

Func _CheckZeNewMails()
Local $txt = BinaryToString(InetRead("http://www.autoitscript.fr/forum/index.php"), 1)
Local $res = StringRegExp($txt, 'strong>(.*?)nouveau', 3)
If NOT IsArray($res) Then Return
$mails = StringRegExpReplace($res[0], '\D', "" )
If $mails <> 0 Then _Notif_Mail($mails)    
EndFunc  


Func _Notif_Mail($nbmails)
Local $Notif_Y = @DesktopHeight - 110
$hNotif_mail = GUICreate("", $Notif_W, 25, $Notif_X, $Notif_Y, _ 
	$WS_POPUPWINDOW, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_CLIENTEDGE)) 
GUISetBkColor(0xdde0e7)
GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -138, 6, 4, 16, 16)
If $nbmails=1 Then 
	GUICtrlCreateLabel("1 nouveau message privé", 30, 6, $Notif_W-80, 16, 1)    
Else
	GUICtrlCreateLabel($nbmails & "  nouveaux messages privés", 30, 6, $Notif_W-80, 16, 1)    
EndIf
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0x005090)
GUICtrlCreateLabel(" X", $Notif_W-25, 6, 20, 18, 1)
GUICtrlSetFont(-1, 9, 800, 0) 
GUICtrlSetBkColor(-1, 0xdde0e7)
GUICtrlSetColor(-1, 0xdd2020)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hNotif_mail, "int", 800, "long", 0x00040002) 
GUISetState(@SW_SHOWNOACTIVATE, $hNotif_mail)
EndFunc   ;==>_Notif_Mail


;=============================================divers==================


Func _CleanHtmlShits($H_string)
If StringInStr($H_string, '&lt;') Then $H_string = StringReplace($H_string, '&lt;', '<')
If StringInStr($H_string, '&gt;') Then $H_string = StringReplace($H_string, '&gt;', '>')
If StringInStr($H_string, '&quot;') Then $H_string = StringReplace($H_string, '&quot;', '"')
If StringInStr($H_string, '&amp;') Then $H_string = StringReplace($H_string, '&amp;', '&')
Return $H_string
EndFunc


Func _NomForum($sonIndex)
  Local $_Name
   If $sonIndex = 3 Then $_Name = "Aide générale"
   If $sonIndex = 4 Then $_Name = "Interface utilisateur"
   If $sonIndex = 5 Then $_Name = "ActiveX-COM"
   If $sonIndex = 6 Then $_Name = "Exemples de script"
   If $sonIndex = 21 Then $_Name = "Fonctions et UDF"
   If $sonIndex = 20 Then $_Name = "Demande de scripts"
   If $sonIndex = 14 Then $_Name = "La vie du Forum"
   If $sonIndex = 9 Then $_Name = "Chat"
   If $sonIndex = 8 Then $_Name = "Présentation"
   If $sonIndex = 11 Then $_Name = "Tutoriels"
   If $sonIndex = 2 Then $_Name = "Nouvelles au3"
 Return $_Name
EndFunc


Func WM_PAINT($hWnd, $msg, $wParam, $lParam)
#forceref $msg, $wParam, $lParam
If $test_act = 1 AND $hWnd = $mainGui Then 
   _WinAPI_RedrawWindow($mainGui, "", "", BitOR($RDW_INVALIDATE, $RDW_UPDATENOW))
   $test_act = 0 
EndIf
Return $GUI_RUNDEFMSG
EndFunc

Func _WinAPI_RedrawWindow($hWnd, $tRect = 0, $hRegion = 0, $iFlags = 5)
    Local $pRect = 0
    If $tRect <> 0 Then $pRect = DllStructGetPtr($tRect)
    Local $aResult = DllCall("user32.dll", "bool", "RedrawWindow", "hwnd", $hWnd, _ 
		"ptr", $pRect, "handle", $hRegion, "uint", $iFlags)
    If @error Then Return SetError(@error, @extended, False)
    Return $aResult[0]
EndFunc   ;==>_WinAPI_RedrawWindow

Func _WinAPI_SetWindowPos($hWnd, $hAfter, $iX, $iY, $iCX, $iCY, $iFlags)
	Local $aResult = DllCall("user32.dll", "bool", "SetWindowPos", "hwnd", $hWnd, _ 
 			"hwnd", $hAfter, "int", $iX, "int", $iY, "int", $iCX, "int", $iCY, "uint", $iFlags)
	If @error Then Return SetError(@error, @extended, False)
	Return $aResult[0]
EndFunc   ;==>_WinAPI_SetWindowPos

Func _Singleton($sOccurenceName, $iFlag = 0)
	Local Const $ERROR_ALREADY_EXISTS = 183
	Local Const $SECURITY_DESCRIPTOR_REVISION = 1
	Local $handle, $lastError, $pSecurityAttributes = 0
	If BitAND($iFlag, 2) Then
		Local $structSecurityDescriptor = DllStructCreate("dword[5]")
		Local $pSecurityDescriptor = DllStructGetPtr($structSecurityDescriptor)
		Local $aRet = DllCall("advapi32.dll", "int", "InitializeSecurityDescriptor", _
				"ptr", $pSecurityDescriptor, "dword", $SECURITY_DESCRIPTOR_REVISION)
		If Not @error And $aRet[0] Then
			$aRet = DllCall("advapi32.dll", "int", "SetSecurityDescriptorDacl", _
					"ptr", $pSecurityDescriptor, "int", 1, "ptr", 0, "int", 0)
			If Not @error And $aRet[0] Then
				Local $structSecurityAttributes = DllStructCreate("dword;ptr;int")
				DllStructSetData($structSecurityAttributes, 1, DllStructGetSize($structSecurityAttributes))
				DllStructSetData($structSecurityAttributes, 2, $pSecurityDescriptor)
				DllStructSetData($structSecurityAttributes, 3, 0)
				$pSecurityAttributes = DllStructGetPtr($structSecurityAttributes)
			EndIf
		EndIf
	EndIf
	$handle = DllCall("kernel32.dll", "int", "CreateMutex", "ptr", $pSecurityAttributes, "long", 1, "str", $sOccurenceName)
	$lastError = DllCall("kernel32.dll", "int", "GetLastError")
	If $lastError[0] = $ERROR_ALREADY_EXISTS Then
		If BitAND($iFlag, 1) Then
			Return SetError($lastError[0], $lastError[0], 0)
		Else
			Exit -1
		EndIf
	EndIf
	Return $handle[0]
EndFunc   ;==>_Singleton