Procedure MouseEvent(Ereignis.l)
  Mem.l = GlobalAlloc_(0, 8)
  GetCursorPos_(Mem)
  mouse_event_(Ereignis | $8000, PeekL(Mem)*($FFFF/GetSystemMetrics_(0)), PeekL(Mem + 4)*($FFFF/GetSystemMetrics_(1)), 0, GetMessageExtraInfo_())
  GlobalFree_(Mem)
EndProcedure


;-------------------------------------------------------
;- Exemple 1


; Gestion des touches pour que les signaux soient envoyés à toutes les applications ouvertes

vk = 32 ; chr(32)=ESPACE
Repeat ; emule l'appuie de la touche ESPACE toutes les 1 seconde
  Delay(1000)
  keybd_event_(vk, 0, 0, 0)
  keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0) ; Press the normal key.
ForEver



;-------------------------------------------------------
;- Exemple 2


Repeat
  Delay(3000)
  
  SetCursorPos_(660, 640) ; mes coordonnées qui pointe ma souris sur le mot CONTINUER du jeu flash
  MouseEvent($2) : MouseEvent($4) ; clic de souris
  
  keybd_event_(vk, 0, 0, 0)
  keybd_event_(vk, 0, #KEYEVENTF_KEYUP, 0) ; Press the normal key.
ForEver



;-------------------------------------------------------
;- Exemple 3


; Jouer au jeu flash suivant de façon automatique
; http://media.nothingtoxic.com/uploads/8df013b735106806eaa37fe063518246.swf


SetCursorPos_(330, 1010) ; pointe IE dans la barre de lancement windows
MouseEvent($2) : MouseEvent($4) ; clic de souris pour mettre au premier plan le jeu
SetCursorPos_(640, 512) ; pointe le jeu


Repeat
  Delay(100)
  MouseEvent($2) : MouseEvent($4) ; clic le jeu
  Delay(100)
  MouseEvent($2) : MouseEvent($4) ; demarre le velo
  Delay(2430 + Random(50)) ; attente raisonnable
  MouseEvent($2) : MouseEvent($4) ; shoot du velo
ForEver