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

**6su7** · 20/02/2006, 14h55

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)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 );

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

**6su7** · 20/02/2006, 20h44

:

**JauB** · 21/02/2006, 10h17

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**6su7** · 21/02/2006, 10h20

Bonjour

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

**JauB** · 21/02/2006, 10h30

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

**6su7** · 21/02/2006, 11h00

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 ?

**leSeb** · 21/02/2006, 11h12

mais apres je lance comment mon from ?

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

1/ Tu instancies ton objets.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maForm = New MaClasseForm()

2/ Tu le montres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maForm.ShowDialog()

**6su7** · 21/02/2006, 11h33

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**leSeb** · 21/02/2006, 11h50

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**6su7** · 21/02/2006, 12h17

.Fermeture il connait pas

**leSeb** · 21/02/2006, 12h55

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

**6su7** · 21/02/2006, 13h06

les ... c'est quoi ?

**leSeb** · 21/02/2006, 13h34

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).

**6su7** · 21/02/2006, 15h48

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**6su7** · 22/02/2006, 08h58

pb résolu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**NicolasJolet** · 10/03/2006, 11h57

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)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 );

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.

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
);

**6su7** · 13/03/2006, 12h34

Ho oui ca me sert

Merci

J'avais mis cette fonction en pause

Je vais voir ca cette après midi

**6su7** · 04/04/2006, 14h27

Envoyé par NicolasJolet

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)

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 );

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.

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

**6su7** · 31/05/2006, 15h50

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"

**6su7** · 31/05/2006, 15h51

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

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

Windows Forms

Discussions similaires

Partager

Partager