[Ex] Renvoi auto de pokes !
Posté : jeu. 26 avr. 2012 15:32
Salut, j'ai quelques potes qui ont décidé de me harceler de pokes sur Facebook, pour répondre ça j'ai bricolé très vite fait un automate qui les renvoit automatiquement, rien de bien extraordinaire mais ca me fait bien marrer ! 
J'y ai aussi intégré un mini compteur, voilà voilà :
Inutile donc indispensable !

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 !
