PureBasic

Code : Tout sélectionner

InitMouse () 
;ceci simule un appuis sur une touche de la souris ! ² 
If OpenWindow (1, 300, 300, 300, 200, "Fenêtre 1" , #PB_Window_SystemMenu , 0)
EndIf 

Delay(5000)

Repeat 
  
  event = WindowEvent() 
  
  Select event 
    Case #WM_XBUTTONUP
      End 
      
  EndSelect 
  
  ; ****************** ceci Simule l'appuis sur le bouton droit de la souris ****************** 
  ; et donc , affiche le menu contextuel forcement !!!!! 
  
  mouse_event_ ( #MOUSEEVENTF_LEFTDOWN ,xm,ym,0,1) ; appuis 
  Delay (100) 
  mouse_event_ ( #MOUSEEVENTF_LEFTUP ,xm,ym,0,1) ;relache 
  Delay (100)
  
  ; ******************************************************************************** 
  a+1

if a = 10
end
endif

ForEver 

End 

Code : Tout sélectionner

; et donc , affiche le menu contextuel forcement !!!!!