Page 1 sur 1
auto clic de souris
Publié : dim. 27/mai/2007 15:00
par venom
bonjour,
voila je souhaiterais savoir si c'est possible et comment
pour faire en sorte qu'au bout d'un temps souhaité ( ex: tout les 2 min ), le programme crée l'appuie du clic gauche de souris tout seul ?
merci
ps: je ne veut pas forcement crée le clic dans une fenêtre juste comme sa n'importe ou ou se trouve le curseur.
@++
Publié : dim. 27/mai/2007 15:21
par nico
Voir sur le Forum la simulation des click souris.
Publié : dim. 27/mai/2007 15:24
par Backup
oui section Debutant voir les [Tuto] !!
Publié : dim. 27/mai/2007 15:51
par venom
je vous remercie, je n'avais pas vu
.
mais je ne trouve pas se que je veut faire.
je vous explique je souhaite crée un clic sur un lien d'une page web toutes les minutes.
mais dans les tutos c'est sur des fenêtres crée moi c'est une page web que je n'est pas crée.
@++
Publié : lun. 28/mai/2007 13:56
par Ar-S
Je suis loin d'être un craque mais voilà ce que je te conseils..
Tu n'as qu'à créer une grande fenetre ouvrant elle même la page web avec un webgadget.
Ensuite tu insères le simultateur de clique
Genre :
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
url$ = "www.ton_adresse_cible.com"
Enumeration
#Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
#Web_0
#Text_1
#Font_Text_1
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 463, 84, 678, 662, "Web Gadget", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)
If CreateGadgetList(WindowID(#Window_0))
WebGadget(#Web_0, 5, 100, 665, 550, url$)
TextGadget(#Text_1, 65, 25, 550, 50, "Web cliqueur, ça sent la trichette :)", #PB_Text_Center)
; Gadget Fonts
SetGadgetFont(#Text_1, LoadFont(#Font_Text_1, "Arial Black", 20, 0))
EndIf
EndIf
EndProcedure
OpenWindow_Window_0()
;{- Event loop
Repeat
Event = WaitWindowEvent()
Select Event
; ///////////////////
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #Web_0
WebGadget(#web_0,0,40,1009,700,url$)
ElseIf EventGadget = #Text_1
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Window_0
CloseWindow(#Window_0)
Break
EndIf
EndSelect
ForEver
;
;}
Apres faut evidement insérer l'autoclique sur l'@ ciblée..
faut tester avec le script en question..
Publié : lun. 28/mai/2007 16:03
par Backup
...
Publié : lun. 28/mai/2007 17:07
par venom
bonjour,
merci Ar-S ton exemple est bon j'y avais pas penser mais c'est pas pour moi tricher
pas comme le programme que présente dobro juste au dessus
au faite merci aussi dobro sa fonctionne bien.
en faite c'est juste pour moi rafraichir ma page de ogame pour les attaques éventuelles
.
voila
merci a vous
@++