PureBasic

Forums PureBasic
Nous sommes le Lun 24/Juin/2019 18:35

Heures au format UTC + 1 heure




Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 
Auteur Message
 Sujet du message: Simulation souris
MessagePosté: Dim 31/Mar/2019 19:49 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3964
Salut,

peut on deplacer le pointeur de la souris logiciellement ? Si oui, comment ?

Je sais aussi qu'on peux simuler le clic de la souris.


Je n'ai pas voulu deterrer un vieux post meme plus valable avec nos 5.70

Merci 8)

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Dim 31/Mar/2019 20:13 
Hors ligne
Avatar de l’utilisateur

Inscription: Lun 17/Déc/2007 12:44
Messages: 1625
Bonjour SPH,

Je penses que tu recherches "SetCursorPos_(x, y)".

Cordialement,
GallyHC

_________________
Image

Image

Image Official site of PureBasic
Image Official site of SpiderBasic

Configuration : Tower: Windows 7 (Processeur: i7 "x64") (Mémoire: 16Go) (GeForce GTX 760 - 2Go) - PureBasic 5.62 (x86 et x64)


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Dim 31/Mar/2019 20:38 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3964
GallyHC a écrit:
Bonjour SPH,

Je penses que tu recherches "SetCursorPos_(x, y)".

Cordialement,
GallyHC

Hoooo, c'est exactement ca :idea:

As tu la commande qui clique la souris ?

EDIT:

je crois avoir trouvé :
Code:
mouse_event_(#MOUSEEVENTF_LEFTUP,200,180,0,1)
mouse_event_(#MOUSEEVENTF_LEFTDOWN,200,180,0,1)

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Dim 31/Mar/2019 21:26 
Hors ligne

Inscription: Lun 22/Oct/2018 19:34
Messages: 30
j'avais fait ça il y a très longtemps, mais fonctionne toujours même si ce n'est pas optimisé
Code:
Global lpPoint.Point

Procedure LeftClick()
  GetCursorPos_(lpPoint)
  Debug "Cible : "+lpPoint\x+", "+lpPoint\y+" Click Gauche"
  mouse_event_(#MOUSEEVENTF_LEFTDOWN,0,0,0,0)
  mouse_event_(#MOUSEEVENTF_LEFTUP,0,0,0,0)
EndProcedure

Procedure RightClick()
  GetCursorPos_(lpPoint)
  Debug "Cible : "+lpPoint\x+", "+lpPoint\y+" Click Droit"
  mouse_event_(#MOUSEEVENTF_RIGHTDOWN,0,0,0,0)
  mouse_event_(#MOUSEEVENTF_RIGHTUP,0,0,0,0)
EndProcedure

Procedure Target(X.i, Y.i, Button.i=0 )  ; Button = 0 (Pas de Click),  Button = 1 (LeftClick),  Button = 2 (RightClick)
  Protected Xa.d, Ya.d, Xb.d, Yb.d, DeplacX.d, DeplacY.d, Dx.i, DY.i
 
  GetCursorPos_(lpPoint)
  Debug "Depart : "+lpPoint\x+", "+lpPoint\y

  Xa = lpPoint\x
  Ya = lpPoint\y
  Xb=X
  Yb = Y
  Dx = Pow(Xa - Xb, 2)
  Dy = Pow(Ya - Yb, 2)

  If Dx >= Dy
 
  If Xa <= Xb
    DeplacX = Xb - Xa
  DeplacY = (Yb - Ya) / DeplacX
   
  Repeat
  SetCursorPos_(Xa, Ya)
    Xa+1 : Ya + DeplacY
    Delay(2)
   WindowEvent()
  Until Xa >= Xb
 
 
Else
   DeplacX = Xa - Xb
  DeplacY = (Yb - Ya) / DeplacX
 
  Repeat
  SetCursorPos_(Xa, Ya)
    Xa-1 : Ya + DeplacY
    Delay(2)
   WindowEvent()
  Until Xa <= Xb

EndIf

Else
 
  If Ya <= Yb
    DeplacY = Yb - Ya
  DeplacX = (Xb - Xa) / DeplacY
   
  Repeat
  SetCursorPos_(Xa, Ya)
    Ya+1 : Xa + DeplacX
    Delay(2)
   WindowEvent()
  Until Ya >= Yb
 
 
Else
   DeplacY = Ya - Yb
  DeplacX = (Xb - Xa) / DeplacY
 
  Repeat
  SetCursorPos_(Xa, Ya)
    Ya-1 : Xa + DeplacX
    Delay(2)
   WindowEvent()
  Until Ya <= Yb
EndIf
EndIf

If button = 1 : LeftClick() : EndIf
If Button = 2 : RightClick() : EndIf


EndProcedure

OpenWindow(0,0,0,400,400,"Test Mouse", #PB_Window_SystemMenu)

Target(390,5,1)  ; Position bouton fermeture window

Repeat
  Until WaitWindowEvent() = #PB_Event_CloseWindow



Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Dim 31/Mar/2019 22:37 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3964
Thx,

je matterais ca en temps voulu :idea:

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Lun 01/Avr/2019 8:56 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3964
Cool, ca marche bien sur facebook.

J'ai pu ajouté 1000 invitations sur fesses bouc :mrgreen:

Image

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Lun 01/Avr/2019 12:36 
Hors ligne
Avatar de l’utilisateur

Inscription: Jeu 29/Juil/2004 16:33
Messages: 2748
Localisation: Klyntar
Mr zuckerberg ne va pas être content. :lol:






@++

_________________
Windows 10 x64, PureBasic 5.71 Beta 1 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Lun 01/Avr/2019 15:13 
Hors ligne
Avatar de l’utilisateur

Inscription: Mer 09/Nov/2005 9:53
Messages: 3964
J'ai eu 400 amis en 24h :P

_________________
http://HexaScrabble.com/
!i!i!i!i!i!i!i!i!i!
!i!i!i!i!i!i!
!i!i!i!
//// Informations ////
Portable LENOVO ideapad 110-17ACL 64 bits
Version de PB : 5.70LTS - 32 bits


Haut
 Profil  
Répondre en citant le message  
 Sujet du message: Re: Simulation souris
MessagePosté: Lun 01/Avr/2019 16:29 
Hors ligne

Inscription: Ven 29/Juin/2007 17:50
Messages: 3437
Beh alors là... Voir SPH chaluter, c'est bien la surprise qui devait me changer la tendance du moral.

Félicitation...


Haut
 Profil  
Répondre en citant le message  
Afficher les messages postés depuis:  Trier par  
Poster un nouveau sujet Répondre au sujet  [ 9 messages ] 

Heures au format UTC + 1 heure


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


Vous ne pouvez pas poster de nouveaux sujets
Vous ne pouvez pas répondre aux sujets
Vous ne pouvez pas éditer vos messages
Vous ne pouvez pas supprimer vos messages

Rechercher:
Aller à:  

 


Powered by phpBB © 2008 phpBB Group | Traduction par: phpBB-fr.com
subSilver+ theme by Canver Software, sponsor Sanal Modifiye