voila je souhaiterais savoir si c'est possible et comment

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.
@++
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
;
;}