Page 1 sur 1
[Ex] Notificateur (de topic de forum par exemple)
Posté : sam. 25 oct. 2008 23:07
par ethneldryt
Je vous pressente un notificateur de forum par exemple, quand quelqu'un poste ou modifie une réponse.
Voici ses fonctions :
-Notification en bas a droite de votre bureau,
-Le bouton [voir] permet d'ouvrir dans VOTRE NAVIGATEUR PAR DÉFAUT (et oui c'est cool) le topic en question.
-Le bouton voir a été tester sur Windows XP HOME et PRO avec comme navigateur Opera,Firefox et IE.
► Afficher le texte
Code : Tout sélectionner
#include <_winanimate.au3>
FileDelete(@ScriptDir & "\data1.dat")
FileDelete(@ScriptDir & "\data2.dat")
sleep(1000)
$gui=GUICreate("Notification",200,100,@DesktopWidth-200,@DesktopHeight-120,0x80880000)
$dl=InputBox("URL","url du topic")
InetGet($dl,@TempDir & "\data1.dat")
$nav=RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
$link=StringRegExpReplace($nav,'\A[^"]*"([^"]+)".*\Z','\1')
While 1
InetGet($dl,@TempDir & "\data2.dat")
sleep(1000)
$file1 = FileGetSize(@TempDir & "\data1.dat")
$file2 = FileGetSize(@TempDir & "\data2.dat")
$filet1=int($file1 / 1024)
$filet2=int($file2 / 1024)
if $filet1 <> $filet2 then
$go=GUICtrlCreateButton("voir",20,50,150,30)
beep(100,100)
beep(100,100)
$label=GUICtrlCreateLabel(@CRLF & " Une reponse a ete poster/editer" & @CRLF & " dans le topic que vous surveillez",0,0)
_WinAnimate($gui, $AW_SLIDE_IN_BOTTOM)
GUISetState()
$tot = 0
While 1
$msgX = GuiGetMsg()
Select
case $msgX = $go
ShellExecute($link,$dl)
EndSelect
$tot=$tot+1
if $tot > 50 Then
ExitLoop
EndIf
sleep(100)
WEnd
_WinAnimate($gui, $AW_SLIDE_OUT_BOTTOM)
sleep(2000)
Exit
EndIf
sleep(1000)
FileDelete(@TempDir & "\data2.dat")
sleep(1000)
WEnd
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : sam. 25 oct. 2008 23:49
par DJSIR
C'est super il faut continuer comme sa.
Il faudrait que le script puisse gérer plusieur sujet et qu'il ne se quite pas a chaque fois q'uil y une réponse !
Essaie sa :
► Afficher le texte
Code : Tout sélectionner
#include <_winanimate.au3>
FileDelete(@ScriptDir & "\data1.dat")
FileDelete(@ScriptDir & "\data2.dat")
sleep(1000)
$dl=InputBox("URL","url du topic")
InetGet($dl,@TempDir & "\data1.dat")
While 1
InetGet($dl,@TempDir & "\data2.dat")
sleep(1000)
$file1 = FileGetSize(@TempDir & "\data1.dat")
$file2 = FileGetSize(@TempDir & "\data2.dat")
$filet1=int($file1 / 1024)
$filet2=int($file2 / 1024)
$titreurl=WinGetTitle("AutoIt")
if $filet1 <> $filet2 then
beep(100,100)
beep(100,100)
$gui=GUICreate("Notification",200,100,@DesktopWidth-200,@DesktopHeight-120,0x80880000)
$label=GUICtrlCreateLabel(@CRLF & " Une réponse a été postée" & @CRLF & " dans le topic suivant :" & @CRLF & $titreurl,0,0)
_WinAnimate($gui, $AW_SLIDE_IN_BOTTOM)
sleep(2000)
_WinAnimate($gui, $AW_SLIDE_OUT_BOTTOM)
sleep(2000)
Exit
EndIf
sleep(1000)
FileDelete(@TempDir & "\data2.dat")
sleep(1000)
wend
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mar. 28 oct. 2008 10:35
par L4crymal
Ouaaaaa pas mal
cela peut servir pour d'autre script
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mar. 28 oct. 2008 11:23
par timmalos
Très bien pensé, bravo!
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mar. 28 oct. 2008 19:05
par tolf
Pour améliorer le script : au lieu de faire
InetGet puis
FileGetSize, on peut faire directement
InetGetSize 
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mar. 28 oct. 2008 23:55
par ethneldryt
Helas j'ai teste ca en premier mais non. Ca retourne 0 ko. Obliger de telecharger la page.
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : jeu. 30 oct. 2008 11:48
par ethneldryt
Voila une petite modif, maintenant on peux cliquer sur le bouton [voir] puis ça ouvre le topic en question avec votre navigateur par défaut
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mer. 23 mai 2012 00:34
par yagonfstm91
ethneldryt a écrit :Voila une petite modif, maintenant on peux cliquer sur le bouton [voir] puis ça ouvre le topic en question avec votre navigateur par défaut
Justement j'ai essayer de faire pareil et ca ne marche pas il ne se passe rien quand je clique sur le bouton et je trouve pas d'ou vient le problème
Code : Tout sélectionner
#include "_winanimate.au3"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("salutfinder", 325, 382, @DesktopWidth-325,@DesktopHeight-402,0x80880000)
$Label1 = GUICtrlCreateLabel("Un salut a été trouvé !", 72, 0)
$Label2 = GUICtrlCreateLabel("Lien : httpblabla", 0, 16)
;$Edit1 = GUICtrlCreateEdit("", 0, 40, 321, 337)
GUICtrlSetData(-1, "Edit1")
Opt("TrayMenuMode",1)
$about = TrayCreateItem("A Propos")
$quit = TrayCreateItem("Quitter")
TraySetToolTip("Trouveur de salut")
$clipsplitid = "lol"
Global $link,$tr
While 1
$msgt = TrayGetMsg()
Select
Case $msgt = $about
MsgBox(64, "Cool", "cool")
Case $msgt = $quit
Exit
EndSelect
$clip = ClipGet()
If $clip = "salut" Then
$link = "http://www.autoitscript.fr/"
$Button1 = GUICtrlCreateButton("Voir", 248, 0, 73, 33)
GUICtrlSetData($Label2, $link)
ClipPut($link)
WinActivate("salutfinder")
_WinAnimate($Form1, $AW_SLIDE_IN_BOTTOM)
$tr = 0
While 1
$msg = GUIGetMsg()
If $msg = $Button1 Then
ShellExecute($link)
MsgBox(0,"lklk","clic")
EndIf
$tr = $tr + 1
If $tr > 40 Then
ExitLoop
EndIf
Sleep(125)
WEnd
_WinAnimate($Form1, $AW_FADE_OUT)
EndIf
WEnd
L'annimation se lance si il y a "salut" dans le presse papier
Re: [Ex] Notificateur (de topic de forum par exemple)
Posté : mer. 23 mai 2012 09:20
par mikell
Intéressant comme idée
