[VB.NET] Trouver un handle, simuler clic sur bouton

Bonjour, j'aurais aimé savoir s'il était possible de prendre le controle ( simuler des clics sur boutons et menus ) d'une application avec un programme en vbnet.

En C++ : (j'avais demandé sur le forum)

Citation:

---

Envoyé par Médinoc

Pour simuler un clic dessus, tu dois obtenir le handle de la fenêtre principale, puis poster un message WM_COMMAND:

Code:

---

1 2 3 4 5 6

PostMessage( hWnd, //Handle de la fenêtre mère WM_COMMAND, //message WM_COMMAND MAKELONG(CtrlID, BN_CLICKED), //type de commande: clic sur bouton CtrlID GetDlgItem(hWnd, CtrlID) //handle du bouton );

---

---

Citation:

---

Envoyé par Médinoc

Pour récupérer le handle de la fenêtre, utilise FindWindow() (tu as besoin du titre, visible au premier coup d'oeil, et de la classe de fenêtre, que spy++ te donne

---

Pour avoir ce Handle il y a la fonction FindWindow()

Que puis-je utiliser en VBNET ?

De même quand il s'agit d'un menu et non d'un bouton

Merci

:?: :idea: :?:

oui bien sûr que c'est posible,
tu dois juste t'inscrire à l'événement click de ton bouton ( que t'as créé avec le code je pense) de la manière suivante:

Code:

---

1 2 3 4 5

AddHandler CmdValider.Click, AddressOf OnClick private sub OnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) 'Traitement à effectué end sub

---

j'espere que ça v t'aider :wink:

Bonjour

Merci pour ta réponse mais c'est une application exterieur que je chercher à utiliser en fait :)

mmmm là je n'y peux rien
desolé!

tu peux peut etre m'aider pour autre chose,

j'aimerais executer du code ou une procedure avant toute chose sans rien cliquer

donc je créé un module avec un sub main (), je fais lancer le sub main dans les propriétés du projet ... mais apres je lance comment mon from ?

Citation:

---

mais apres je lance comment mon from ?

---

Tu fais comme pout tous les autres objets graphiques From...

1/ Tu instancies ton objets.

Code:

---

maForm = New MaClasseForm()

---

2/ Tu le montres.

Code:

---

maForm.ShowDialog()

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Module Module1   Public formulaire As Form1   Sub main()   formulaire = New Form1 formulaire.ShowDialog()   End Sub End Module

---

ca fonctionne, mais ...

j'utilise aussi une NotifyIcon, et quand j'abaisse ma from dans le systray le soft se ferme ( ca fonctionnait avant d'utiliser le submain)

ensuite ... ce que j'avais dans l'id, c'était :

j'ouvre mon soft
il fil direct dans la systray
il ouvre les soft que je lui ai demandé et les utilisent ( les répertoires et nom des soft stocké dans un .ini configuré par la from avec des boutons parcourir et cie)

c'est pour ca que je voulais un sub main

C'est normal .... La méthode ShowDialog() attend la fermeture du formulaire pour continuer l'exécution de la procédure.

Donc lorsque que tu fermes le formulaire (avec NotifyIcon) la procédure Main continue son exécution et donc termine le programme.

Pour pallier à ca .... voici un petit bout de code.

Ca, c'est pour la procédure Main.

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub main() Dim maForm as New MaClasseForm   Do While Not maForm.Fermeture maForm.ShowDialog() Loop   maForm.Dispose() End Sub

---

Ca, c'est le code de base de ta form.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

private _fermeture As Boolean   Public ReadOnly Property Fermeture() As Boolean Get Return _fermeture End Get End Property   Public Sub New() _fermeture = False   ... End Sub   Public Sub MaClasseForm_Closed(byval sender as Object, ...) Handles MyBase.Closed   ' Indique que l'application doit se terminé car la fermeture et demandée par la croix de la fenetre. If sender Is Me Then _fermeture = True End

---

.Fermeture il connait pas

C'est normal si tu n'as fait la seconde partie de ce que je t'ai donné

les ... c'est quoi ?

Dans le sub New c'est le reste du code de ton constructeur.

Dans MaClasseForm_Closed, c'est le reste des paramètres que je ne connait pas par coeur (j'ai fait ce code de tête).

Code:

---

1 2	Private Sub Form1_Closed(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Closed

---

c'est ca ?

le soft ne se coupe plus quand je le minimise mais ... il ne fait que se minimiser, il ne se met plus dans la systray


ce que j'utilise :

Code:

---

1 2 3 4 5 6 7

Private Sub from1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize If Me.WindowState = FormWindowState.Minimized Then NotifyIcon1.Visible = True Me.Hide() End If End Sub

---

pb résolu :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Module Module1   Public MaFeuille1 As New Form1   Public Sub main() Application.Run(MaFeuille1) End Sub   End Module

---

juste ca dans le module, et rien d'autre

par contre j'aimerais bien faire disparaitre le from et aparaitre mon notifyicon

Citation:

---

Envoyé par 6su7

Bonjour, j'aurais aimé savoir s'il était possible de prendre le controle ( simuler des clics sur boutons et menus ) d'une application avec un programme en vbnet.

En C++ : (j'avais demandé sur le forum)

Citation:

---

Envoyé par Médinoc

Pour simuler un clic dessus, tu dois obtenir le handle de la fenêtre principale, puis poster un message WM_COMMAND:

Code:

---

1 2 3 4 5 6

PostMessage( hWnd, //Handle de la fenêtre mère WM_COMMAND, //message WM_COMMAND MAKELONG(CtrlID, BN_CLICKED), //type de commande: clic sur bouton CtrlID GetDlgItem(hWnd, CtrlID) //handle du bouton );

---

---

Citation:

---

Envoyé par Médinoc

Pour récupérer le handle de la fenêtre, utilise FindWindow() (tu as besoin du titre, visible au premier coup d'oeil, et de la classe de fenêtre, que spy++ te donne

---

Pour avoir ce Handle il y a la fonction FindWindow()

Que puis-je utiliser en VBNET ?

De même quand il s'agit d'un menu et non d'un bouton

Merci

---

(Avec beaucoup de retard mais celà pourra peut-être encore servir : )
Pour simuler un clic sur un bouton d'une autre application, il vaut mieux utiliser le message BM_CLICK.

Citation:

---

Envoyé par MSDN

BM_CLICK Message

An application sends a BM_CLICK message to simulate the user clicking a button. This message causes the button to receive the WM_LBUTTONDOWN and WM_LBUTTONUP messages, and the button's parent window to receive a BN_CLICKED notification message.

Syntax

To send this message, call the SendMessage function as follows.

lResult = SendMessage( // returns LRESULT in lResult
(HWND) hWndControl, // handle to destination control
(UINT) BM_CLICK, // message ID
(WPARAM) wParam, // = 0; not used, must be zero
(LPARAM) lParam // = 0; not used, must be zero
);

---

Ho oui ca me sert :wink: Merci

J'avais mis cette fonction en pause

Je vais voir ca cette après midi

Citation:

---

Envoyé par NicolasJolet

Citation:

---

Envoyé par 6su7

Bonjour, j'aurais aimé savoir s'il était possible de prendre le controle ( simuler des clics sur boutons et menus ) d'une application avec un programme en vbnet.

En C++ : (j'avais demandé sur le forum)

Citation:

---

Envoyé par Médinoc

Pour simuler un clic dessus, tu dois obtenir le handle de la fenêtre principale, puis poster un message WM_COMMAND:

Code:

---

1 2 3 4 5 6

PostMessage( hWnd, //Handle de la fenêtre mère WM_COMMAND, //message WM_COMMAND MAKELONG(CtrlID, BN_CLICKED), //type de commande: clic sur bouton CtrlID GetDlgItem(hWnd, CtrlID) //handle du bouton );

---

---

Citation:

---

Envoyé par Médinoc

Pour récupérer le handle de la fenêtre, utilise FindWindow() (tu as besoin du titre, visible au premier coup d'oeil, et de la classe de fenêtre, que spy++ te donne

---

Pour avoir ce Handle il y a la fonction FindWindow()

Que puis-je utiliser en VBNET ?

De même quand il s'agit d'un menu et non d'un bouton

Merci

---

(Avec beaucoup de retard mais celà pourra peut-être encore servir : )
Pour simuler un clic sur un bouton d'une autre application, il vaut mieux utiliser le message BM_CLICK.

Citation:

---

Envoyé par MSDN

BM_CLICK Message

An application sends a BM_CLICK message to simulate the user clicking a button. This message causes the button to receive the WM_LBUTTONDOWN and WM_LBUTTONUP messages, and the button's parent window to receive a BN_CLICKED notification message.

Syntax

To send this message, call the SendMessage function as follows.

lResult = SendMessage( // returns LRESULT in lResult
(HWND) hWndControl, // handle to destination control
(UINT) BM_CLICK, // message ID
(WPARAM) wParam, // = 0; not used, must be zero
(LPARAM) lParam // = 0; not used, must be zero
);

---

---

j'avais d'autre partie de mon projet à finir, je vais enfin me consacrer à celle ci

les details de la fenetre où se trouve le bonton que je veux commander:

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title: ACQ
Class: #32770
Size: X: 1761 Y: 914 W: 58 H: 142

>>>>>>>>>>> Mouse Details <<<<<<<<<<<
Screen: X: 1786 Y: 984
Cursor ID: 0

>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB: Hex: 0x2CC5B9 Dec: 2934201

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size: X: 0 Y: 38 W: 52 H: 48
Control ID: 120
ClassNameNN: BOUTON3
Text: BB:Import^Importer une radio, une image

>>>>>>>>>>> Status Bar Text <<<<<<<<<<<

>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
BB:Scanner une radio, une image (Bouton droit: Choix du scanner)
BB:Prochaine radio
BB:Import^Importer une radio, une image

>>>>>>>>>>> Hidden Window Text <<<<<<<<<<<

le bouton que je veux utiliser est "importer"

les details de la fenetre ouvrir qui me demande de selectionner l'image

>>>>>>>>>>>> Window Details <<<<<<<<<<<<<
Title: Ouvrir
Class: #32770
Size: X: 206 Y: 320 W: 748 H: 514
>>>>>>>>>>> Mouse Details <<<<<<<<<<<
Screen: X: 872 Y: 770
Cursor ID: 2
>>>>>>>>>>> Pixel Color Under Mouse <<<<<<<<<<<
RGB: Hex: 0xECE9D8 Dec: 15526360

>>>>>>>>>>> Control Under Mouse <<<<<<<<<<<
Size: X: 632 Y: 404 W: 100 H: 28
Control ID: 1
ClassNameNN: Button2
Text: &Ouvrir
>>>>>>>>>>> Status Bar Text <<<<<<<<<<<
>>>>>>>>>>> Visible Window Text <<<<<<<<<<<
Regarder &dans :
DPI-9000
FolderView
&Nom du fichier :
Fichiers de &type :
Images
&Ouvrir
Annuler
>>>>>>>>>>> Hidden Window Text <<<<<<<<<<<
Ouvrir en le&cture seule
&Aide

D'après les informations que j'ai, il me faut donc utiliser le nom de ma fenêtre et sa classe, les déclarations de mes fonctions :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Const ClassName = "#32770" Private Const WindowName1 = "ACQ" Private Const WindowName2 = "Ouvrir"   Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String _ ) As Long   Private Declare Function SendMessage _ Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String _ ) As Long

---

Pour pouvoir controler une application il faut que j'envois des messages à son process ( à créer ), un BM_CLICK par ex

Code:

---

1 2 3 4 5 6 7 8

Private Sub run_app() Dim app As New Process Dim hwnd As Long app.StartInfo.FileName = txt_app_exe.Text app.Start() hwnd = FindWindow(ClassName, WindowName1) ' j'utilise mon FindWindow   End Sub

---

Là j'ai normalement trouvé ma fenêtre ACQ mais il faut trouver le bouton ... comment puis-je faire ?

Ensuite j'ai une fenêtre ouvrir pour choisir l'image que je veux importer, il faut donc que je trouve son hwnd ... que je lui donne le path de mon image, et que je clic sur le bouton ouvrir ...

Je n'ai donc pas encore toute les fonctions nécessaires pour le faire,

Que dois-je faire ?

Merci

Bonjour, je vien d'essayer ca : rien ne se passe ...

Code:

---

del

---

Bonjour

Je viens d'essayer comme ca ...

mes Handle1 2 et 3 changent constament .... à chaque clic du bouton 1 ...

les fonctions ne doivent pas me donner ce que je cherche ...

une erreur ??

Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String _ ) As Long   Private Declare Function FindWindowEx _ Lib "user32" Alias "FindWindowExA" ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String _ ) As Long   Private Declare Function SendMessage _ Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String _ ) As Long   Private Declare Function ShowWindow _ Lib "user32" ( _ ByVal hwnd As Long, _ ByVal nCmdShow As Long _ ) As Long   Private Const BM_CLICK As Long = &HF5 Private Const ClassName1 As String = "JULIE" Private Const ClassName2 As String = "#32770" Private Const ClassName3 As String = "BOUTON" Private Const WindowName1 As String = "JULIE:W" Private Const WindowName2 As String = "ACQ" Private Const WindowName3 As String = "BB:Import^Importer une radio, une image" Private Const WindowName4 As String = "Ouvrir"   Private Handle1 As Long = 0 Private Handle2 As Long = 0 Private Handle3 As Long = 0   Private Sub Findwin()   ' trouver le hwdn de la fenetre principale de JULIE Handle1 = FindWindow(ClassName1, WindowName1) ' trouver le hwdn de la fenetre fille ACQ Handle2 = FindWindow(ClassName2, WindowName2) ' trouver le hwdn du bouton parcourir Handle3 = FindWindowEx(Handle1, Handle2, "ClassName3", WindowName3)   End Sub   Private Sub SendMSG() SendMessage(Handle3, BM_CLICK, 0, 0) End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Findwin() lbl_HW1.Text = Handle1 lbl_HW2.Text = Handle2 lbl_HW3.Text = Handle3 End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SendMSG() End Sub

---

en fait il y a plusieur niveau de fenetre parent ....

principale / 2nd / 3ème / bouton ...

la 1ere est JULIE:W la 3 ème est ACQ

je fais comment avec mes fonctions ?

la 2ND a un nom variable : "NOM: text variable"

je ne suis pas sorti de l'auberge

toutes les infos sur les fenètre et boutons

J'ai parcouru en diagonale mais je n'ai pas compris ce qui n'allait pas...
(Celà fait un certain temps que je n'ai plus travaillé avec ces APIs aussi)

il n'y a pas moyen de le faire sans chercher les parents ?

ou alors ... de rechecher le handle d'une fenètre qu'avec le debut de son nom ? un nom comme "BOUCHE: nom prenom "

nom et prénom change bien sur ....

Bonjour

un petit up

Merci

Plusieurs APIs aux choix :

• The GetCursorPos function retrieves the cursor's position, in screen coordinates.
  The WindowFromPoint function retrieves a handle to the window that contains the specified point.
• The ChildWindowFromPoint function determines which, if any, of the child windows belonging to a parent window contains the specified point. The search is restricted to immediate child windows, grandchildren, and deeper descendant windows are not searched.
  The RealChildWindowFromPoint function retrieves a handle to the child window at the specified point. The search is restricted to immediate child windows; grandchildren and deeper descendant windows are not searched
• The EnumWindows function enumerates all top-level windows on the screen by passing the handle to each window, in turn, to an application-defined callback function.
  The EnumChildWindows function enumerates the child windows that belong to the specified parent window by passing the handle to each child window, in turn, to an application-defined callback function.

C'est tout ce que je connais pour les scans des différentes fenêtres et controles...

Merci je vais etudié ca :)

Citation:

---

Envoyé par NicolasJolet

Plusieurs APIs aux choix :

• The EnumChildWindows function enumerates the child windows that belong to the specified parent window by passing the handle to each child window, in turn, to an application-defined callback function.

C'est tout ce que je connais pour les scans des différentes fenêtres et controles...

---

CA !!

Je fais un findWindow sur la fenètre principale, je fais un EnumChildWindows et s'il me trouve une fenetre avec un nom : ACQ ( GetWindowText ? )

je peux chercher le bouton importer et lui envoyer un send message non ?

Merci :)

DANS ALL API

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Me.AutoRedraw = True EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0& End Sub 'in a module Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Dim sSave As String 'Get the windowtext length sSave = Space$(GetWindowTextLength(hwnd) + 1) 'get the window text GetWindowText hwnd, sSave, Len(sSave) 'remove the last Chr$(0) sSave = Left$(sSave, Len(sSave) - 1) If sSave <> "" Then Form1.Print sSave 'continue enumeration EnumChildProc = 1 End Function

---

Si je comprend bien EnumChildProc est appelé par EnumChildWindows à chaque enfant trouvé ....


· lpEnumFunc
Points to an application-defined callback function. For more information about the callback function, see the EnumChildProc callback function.

Code:

---

EnumChildWindows GetDesktopWindow, AddressOf EnumChildProc, ByVal 0&

---

ca donnerait quoi en VBnet ? je n'ai pas encore vu ce systeme d'appelle

Merci

Je pense que ca peut rester tel quel...

zut j'ai pas eu de notification

Merci pour ta réponse :)