Cherche fonction qui simule un click de la souris de la part de l'utilisateur , grand besoin !!! un peut comme la fonction SendKeys(blabla) mais pour la souris !!!

Le problème ici est qu'il faut connaître le Handle du boutton.
Si tu le connaîs, rien de plus simple :
Il faut utiliser la fonction SENDMESSAGE.
Cette fonction comporte 4 paramètres :
1. Le Handle de la fenêtre ; dans notre cas le boutton.
2. Le message à envoyer ; ici on lui demander un clic de souris, on va donc créer une constante de valeur &HF5 (soit 245).
3. Inutile ici ; laisser à 0
4. Inutile ici ; laisser à 0

Voici un exemple concret : crée une feuille avec 2 bouttons.
le premier appellera la fonction SENDMESSAGE, et l'autre sera celui où l'on va cliquer "virtuellement".

Insère ce code dans ton programme.

' Message à envoyer
Private Const BM_CLICK = &HF5 '245

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long


Private Sub Command1_Click()
SendMessage Command2.hwnd, BM_CLICK, 0, ""
End Sub

Private Sub Command2_Click()
Beep
MsgBox "YAHOO !!!"
End Sub

Voilà rien de plus simple si ce n'est de connaître le Handle du boutton sur lequel tu vas cliquer "virtuellement".
Un autre problème est que parfois tu veux effectuer cette opération sur une application que tu n'as pas créé et dont tu n'as pas le source.
Dans ce cas précis il faut ce méfier car on croit parfois que c'est un boutton et en fait se n'en est pas un.
Exemple les touches de la calculatrice de windows ne sont pas des bouttons !

Voilà si tu as des questions ...

Fred

chbaud@club-internet.fr



-------------------------------
Réponse au message :
-------------------------------

Cherche fonction qui simule un click de la souris de la part de l'utilisateur , grand besoin !!! un peut comme la fonction SendKeys(blabla) mais pour la souris !!!
-------------------------------

tiens quelques petits trucs:

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)


puis:
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)

pour l'appuie sur un des boutons

et:

Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)

et pour le relachement du bouton...


Voila j'espere que ca t'aura aidé

@+



-------------------------------
Réponse au message :
-------------------------------

Cherche fonction qui simule un click de la souris de la part de l'utilisateur , grand besoin !!! un peut comme la fonction SendKeys(blabla) mais pour la souris !!!
-------------------------------

euh.. desole c'etait pas long...

Je suis sous VBA et il ne comprend pas cette instruction ? Command2.hwnd
Qu'est-ce que c'est ?

Merci
Yann


-------------------------------
Réponse au message :
-------------------------------

Le problème ici est qu'il faut connaître le Handle du boutton.
Si tu le connaîs, rien de plus simple :
Il faut utiliser la fonction SENDMESSAGE.
Cette fonction comporte 4 paramètres :
1. Le Handle de la fenêtre ; dans notre cas le boutton.
2. Le message à envoyer ; ici on lui demander un clic de souris, on va donc créer une constante de valeur &HF5 (soit 245).
3. Inutile ici ; laisser à 0
4. Inutile ici ; laisser à 0

Voici un exemple concret : crée une feuille avec 2 bouttons.
le premier appellera la fonction SENDMESSAGE, et l'autre sera celui où l'on va cliquer "virtuellement".

Insère ce code dans ton programme.

' Message à envoyer
Private Const BM_CLICK = &HF5 '245

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long


Private Sub Command1_Click()
SendMessage Command2.hwnd, BM_CLICK, 0, ""
End Sub

Private Sub Command2_Click()
Beep
MsgBox "YAHOO !!!"
End Sub

Voilà rien de plus simple si ce n'est de connaître le Handle du boutton sur lequel tu vas cliquer "virtuellement".
Un autre problème est que parfois tu veux effectuer cette opération sur une application que tu n'as pas créé et dont tu n'as pas le source.
Dans ce cas précis il faut ce méfier car on croit parfois que c'est un boutton et en fait se n'en est pas un.
Exemple les touches de la calculatrice de windows ne sont pas des bouttons !

Voilà si tu as des questions ...

Fred

chbaud@club-internet.fr



-------------------------------
Réponse au message :
-------------------------------

Cherche fonction qui simule un click de la souris de la part de l'utilisateur , grand besoin !!! un peut comme la fonction SendKeys(blabla) mais pour la souris !!!
-------------------------------

OK bon faut que tu me donnes aussi le pseudo que tu veux que j'utilises et t'as ICQ?



-------------------------------
Réponse au message :
-------------------------------

Je veux bien intégré la Team mais je suis pas une flèche de l'OpenGL pour le moment mlais ça viendra dans les emaines à suivre !



-------------------------------
Réponse au message :
-------------------------------

OpenGL c'est plus facile que Direct3D, on peut faire plus de choses et ca facilitera la portabilite



-------------------------------
Réponse au message :
-------------------------------

lol c en OpenGL ou DirectX ?



-------------------------------
Réponse au message :
-------------------------------

Aucun programmeurs n'est interesse par le projet, le gameplay commencent a etre defini, quelques graphismes ont ete fait et la programmation a debute.

www.empire-warriors.fr.st

aucune ne marche