Deplacer la sourisRésolu

Question

Salut,

Je sais que ce sujet a deja ete abord&#233; mais j'ai fais plusieur recherche et je n'ai pas trouv&#233; de r&#233;ponses tr&#232;s claire...

Donc voila tout est dans le titre je voudrais savoir comment deplacer la souris.

merci d'avance

dOsSpr0uTosS · Accepted Answer

C'est bon j'ai declar&#233; les long en integer et c'est nickel merci les gens

cs_hassen · Answer

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Private Sub Command1_Click()
    X = 30
    Y = 755
'position de la souris au coordonn&#233;e X et Y 
'(ici si vous &#234;tes en 1024 x 768,cela va cliquer sur le bouton 'D&#233;marrer' de la barre des taches)
    SetCursorPos X, Y
'Le bouton gauche de la souris s'enfonce
    Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0) '
'le bouton gauche de la souris se relache
    Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Me.Left, Me.Top, 0, 0)
End Sub

Hassen TUNISIE

cs_CanisLupus · Answer

Salut, pourtant il y a ce qu'il faut sur le forum et dans les sources du site.

En vb6, une api dans un module :
Public Declare Function SetCursorPos Lib "user32" _
  ( _
    ByVal X As Long, _
    ByVal Y As Long _
  ) As Long

qu'on utilise comme &#231;a :
Call SetCursorPos(position_x, position_y)

position_x et position_y sont en pixel. Pour une r&#233;solution de 800/600,
Call SetCursorPos(400, 300)
te met le curseur au milieu de l'&#233;cran.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

dOsSpr0uTosS · Answer

Merci mais il y a deux trois erreurs apparament sur ma version(je suis sur la beta 2005^^).Donc il me signale des erreurs a :
Private sub
X et Y
SetCursorPos(X, Y)
mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE

mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUT
Aux "me" et aux "Declare"

cs_CanisLupus · Answer

Hassen > d&#233;sol&#233;, ta r&#233;ponse n'&#233;tait pas affich&#233;e quand j'ai post&#233; la mienne.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

je crois qu'il faut d&#233;clarer les Long en Integer sous VB 2005
PCPT

cs_hassen · Answer

ca ne fait rien ca m'ai arriv&#233; pas mal de fois 

Hassen TUNISIE

cs_CanisLupus · Answer

OK, puisque c'est du vb.net, va voir de ce c&#244;t&#233; :

System.Windows.Forms.Cursor.Current.Position

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

dOsSpr0uTosS · Answer

Module Module1


Public 
declare 
Function SetCursorPos 
Lib 
"user32" ( 
ByVal X 
As 
Long, _ 
ByVal Y 
As 
Long _) 
As 
Long



Sub Main()



Call SetCursorPos(30, 60)



End 
Sub


End 
Module
Quand je met ca il signale comme erreur 60 oO

PCPT · Answer

j'me disais aussi...
PCPT

dOsSpr0uTosS · Answer

Ah j'ai une autre question comment fair (cette fois dans un form) que
si la souris est a tel endroit alors elle va a tel endroit : un truc du
style

 if mouse.top "" then mouse.top mouse.top +50 

enfin j'imagines que c'est pas ca mais c'est pour vous donne une id&#233;e ^^

PCPT · Answer

ouai, c'est pas &#231;&#224; du tout m&#234;me.
l&#224; il faut capturer le mouvement de la souris, ce qui emp&#234;chera le click.
mieux vaut mettre par exemple sur la Form Mouse mouve
si X < HorsDeMaZoneMinX et X > HorsDeMaZoneMaxX pareil avec Y, et l&#224; tu la bouges.

PCPT

dOsSpr0uTosS · Answer

J'ai pas tout compris et puis c'est quoi mouse mouve?
Et sinon ca serait possible que sur la form non?

PCPT · Answer

le MouseMove, sur la Form (esp&#233;rant que &#231;&#224; existe, je suis sous VB6) renvoie les coordonn&#233;es de la souris.
donc dans le d&#233;placement, tu peux tr&#232;s bien choisir une zone (genre entre 50<X<100       200<Y<400).
si la souris est dans cet &#233;quart, SetCurPos (outuveux)

PCPT

dOsSpr0uTosS · Answer

J'ai un peu regard&#233; et je trouve pas de mouse mouve mais bon c'est pas grave merci quand meme

PCPT · Answer

l'&#233;v&#232;nement Form_MouseMove( Button Shift X Y) existe sous VB6. je doute qu'il n'existe pas sous 2005, c'est sans doute la syntaxe qui doit l&#233;g&#232;rement changer.
sinon, m&#234;me principe, un label transparent sans caption &#224; l'endroit voulu, et si la souris le survol, blablabla...

PCPT

dOsSpr0uTosS · Answer

Ok je vais laiss&#233; tomber parce que la ca me soule de trouver la bonne syntax etc...

Sinon autre question tu sais taper des touches du clavier?

PCPT · Answer

mes pr&#233;c&#233;dents posts sont l&#224; pour en t&#233;moigner 
PCPT

dOsSpr0uTosS · Answer

H&#233;h&#233; pas mal mais par "Sinon autre question tu sais taper des touches du clavier?"j'te demandais si tu connaissais le code pour fair taper la touche n&#176;31(par exemple).

PCPT · Answer

j'avais bien compris.....
(si j'ai pas r&#233;pondu, c'est simplement que si d&#233;j&#224;, mon FormMouseMove t'est inconnu en VB2005, c'est pas des "vrais" codes sous VB6 qui vont t'aider. d&#233;sol&#233;)
PCPT

Deplacer la souris

20 réponses

Discussions similaires