Code : Tout sélectionner
;ceci simule 2 appuis sur la touche gauche de la souris !
; pour tricher au jeux flash !! (mais pas a tous !!)
; en effet certain jeux on un tirage aleatoire de l'inclinaison du pingouin
; ou bien c'est la position du curseur qui determine l'envoie du pingouin (par exemple)
; bouton du millieu pour lancer le programme
; apres confirmation de la boite d'alerte vous avez 5 seconde pour poser le pointeur
; a l'endroit ou clicker
; un premier click est généré
; puis suivant le delay un deuxiemme click est generé
; faudra alors relancer le programme avec le bouton du millieu
; le bouton de droite propose d'arreter ce programme !
#WM_MOUSEWHEEL = $20A
#WHEEL_DELTA = 120
temp=1000 ; delay par defaut au lancement
InitMouse()
If OpenWindow(1, 300, 300, 300, 200, #PB_Window_SystemMenu, "click auto by Dobro",0) And CreateGadgetList(WindowID(1))
EndIf
;SetTimer_(WindowID(),1,200,0)
TextGadget(1, 10, 10, 200, 50, "bouton du millieu pour lancer le programme" ,#PB_Text_Border)
TextGadget(2, 10, 60, 200, 50, "bouton droit pour sortir du programme" ,#PB_Text_Border)
TextGadget(3, 10, 110, 200, 50, "molette pour regler le delay entre les deux click le mode repetitif est a 10 millisecondes",#PB_Text_Border )
TextGadget(5, 10, 180, 200, 50, "Programme realisé par Dobro :-)" )
Repeat
Delay(1)
Event= WindowEvent()
If start=1
Delay(temp) ; delay avant 2em appuis
If Event=mouse_event_(#MOUSEEVENTF_LEFTUP,xm,ym,0,1) ; appuis
Delay(2)
EndIf
If Event= mouse_event_(#MOUSEEVENTF_LEFTDOWN,xm,ym,0,1) ; relache
EndIf
If temp>11 ; si temp =10 on est en mode repetitif
start=0 ; le programme va clicker sans arret (utile dans certain jeux)
EndIf
EndIf
If Event= #WM_RBUTTONDOWN
MessageRequester(" hello", "Autoclick off", #PB_MessageRequester_Ok )
start=0
End
EndIf
If Event= #WM_MBUTTONDOWN
MessageRequester(" hello", "Autoclick on"+Chr(10)+"tu as 5 secondes pour poser le pointeur sur le jeux", #PB_MessageRequester_Ok )
TextGadget(1, 10, 10, 200, 50, "tu as 5 secondes pour poser le pointeur sur le jeux" )
Delay(1000) ; delay avant premier appuis (le temps de poser le pointeur sur la fenetre du jeux
TextGadget(1, 10, 10, 200, 50, "tu as 4 secondes pour poser le pointeur sur le jeux" )
Delay(1000) ; delay avant premier appuis (le temps de poser le pointeur sur la fenetre du jeux
TextGadget(1, 10, 10, 200, 50, "tu as 3 secondes pour poser le pointeur sur le jeux" )
Delay(1000) ; delay avant premier appuis (le temps de poser le pointeur sur la fenetre du jeux
TextGadget(1, 10, 10, 200, 50, "tu as 2 secondes pour poser le pointeur sur le jeux" )
Delay(1000) ; delay avant premier appuis (le temps de poser le pointeur sur la fenetre du jeux
TextGadget(1, 10, 10, 200, 50, "tu as 1 secondes pour poser le pointeur sur le jeux" )
Delay(1000) ; delay avant premier appuis (le temps de poser le pointeur sur la fenetre du jeux
TextGadget(1, 10, 10, 200, 50, "tu as 0 secondes pour poser le pointeur sur le jeux" )
If Event=mouse_event_(#MOUSEEVENTF_LEFTUP,xm,ym,0,1) ; appuis
Delay(2)
EndIf
If Event= mouse_event_(#MOUSEEVENTF_LEFTDOWN,xm,ym,0,1) ; relache
EndIf
start=1
EndIf
If Event = #WM_LBUTTONDOWN
EndIf
If Event = #WM_MOUSEWHEEL
Molette.l = -(EventwParam() >> 16) / #WHEEL_DELTA
If Molette > 0
temp=temp+10
TextGadget(4, 10, 170, 300, 50, "le delay entre les 2 click est reglé a :"+Str(temp)+" millisecondes" )
ElseIf Molette < 0
temp=temp-10
TextGadget(4, 10, 170, 300, 50, "le delay entre les 2 click est reglé a :"+Str(temp)+" millisecondes" )
If temp<10
temp=10
TextGadget(4, 10, 170, 200, 50, "mode autoclick répétitif !" )
EndIf
EndIf
EndIf
Until Event=#PB_Event_CloseWindow
End
j'avais dit hier a crystal noir que tu me répondrai comme celà 
c'est clair que je savais très bien que tu n'allais pas laissé passer ce que j'ai dit, c'est un bon électrochoque, mais ce qui est le plus important dans tout ça c'est qu'aujourd'hui on est tous revenu sur un terrain appaisant d'après ce que je viens de lire au dessus. Moi aussi je suis tout à fait d'accord sur le fait que c'est dans la tête et que ce n'est pas l'age et l'apparence qui fait une personne. A 60 ans on peut tout à fait rigoler, déconer et faire le con comme à 20 ans, heureusement d'ailleurs sinon on deviendrait tous des PL 
