J'y ai aussi intégré un mini compteur, voilà voilà :
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <date.au3>
Opt("GUIOnEventMode", 1)
GUICreate("Renvoi automatique de pokes", 800, 600, 0, 0)
GUISetBkColor(0xFFFFFF)
$cmdDemarrage = GUICtrlCreateButton(" RenvoiAuto ", 64, 8, 70, 22)
GUICtrlSetOnEvent($cmdDemarrage, "demarrage")
_IEErrorHandlerRegister()
$ie = _IECreateEmbedded()
$ieobject = GUICtrlCreateObj($ie, 0, 38, 800, 544)
$count = 0
$index = "https://www.facebook.com/pokes?notif_t=poke"
_IENavigate($ie, $index, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
GUISetState()
Func demarrage()
GUISetState(@SW_HIDE)
While 1
If StringInStr(_IEDocReadHTML($ie),"Envoyer un poke en retour") Then _Poke()
sleep(500)
ToolTip("Pokes: " & $count,1,1)
WEnd
EndFunc
Func _poke()
;~ MsgBox(0,"","POKAJ")
_IELinkClickByText($ie, "Envoyer un poke en retour")
$count +=1
EndFunc
Func quitter()
Exit
EndFunc ;==>quitter
While 1
Sleep(10000)
WEnd
Inutile donc indispensable !