Discussion :

[Erwaan]

Bonjour! Je dois, depuis mon appli en vb.net, pouvoir faire appel à un logiciel exterieur (une application de neuf) pour émettre des appels.

Il faut, que lorsque je clique sur mon bouton BtnAppeler le logiciel de neuf se lance, compose le numéro et appel. Cependant je ne voit pas du tout comment faire..

Voilà ce que j'ai pu trouver pour l'ouverture du programme :

Code :

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

1
2
3
4
5
6
7
8
    Private Sub BtnAppeler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAppeler.Click
        Dim myProcesses() As Process
        myProcesses = Process.GetProcessesByName("Name")
 
        If myProcesses.Length = 0 Then
            Process.Start("Lien")
        End If
    End Sub

Sauf que, lorsque je lance l'application une fois, le processus se lance mais lors de la fermeture de celle ci son processus ne se ferme.. En bref, je ne voit pas comment faire, et encore moin pour que cet appli émette un appel automatiquement..

En espérant que vous pourrez m'aider..

[Pol63]

si l'appli en question n'a pas été prévue pour être manipulée depuis une autre appli ca ne va pas etre simple

en simple il y a sendkeys qui permet de simuler des frappes clavier en les donnant à un processus
il doit y avoir aussi la possibilité de simuler des clic à un point x,y de l'écran
mais ca ne va pas aller bien loin

sinon il faut voir avec quoi a été développée l'appli, genre pour du COM je crois qu'il existe des robots qui arrivent à obtenir l'architecture des controles

[Erwaan]

Voilà ce que j'ai trouver grâce à ton post, j'ai modifier comme il me le fallait, et tout fonctionne. Merci

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
21
22
23
24
25
26
27
28
29
30
31
' Get a handle to an application window.
Declare Auto Function FindWindow Lib "USER32.DLL" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As IntPtr
 
' Activate an application window.
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
    (ByVal hWnd As IntPtr) As Boolean
 
' Send a series of key presses to the Calculator application.
Private Sub button1_Click(ByVal sender As Object, _
    ByVal e As EventArgs) Handles button1.Click
 
    ' Get a handle to the Calculator application. The window class
    ' and window name were obtained using the Spy++ tool.
    Dim calculatorHandle As IntPtr = FindWindow("CalcFrame", "Calculator")
 
    ' Verify that Calculator is a running process.
    If calculatorHandle = IntPtr.Zero Then
        MsgBox("Calculator is not running.")
        Return
    End If
 
    ' Make Calculator the foreground application and send it 
    ' a set of calculations.
    SetForegroundWindow(calculatorHandle)
    SendKeys.SendWait("111")
    SendKeys.SendWait("*")
    SendKeys.SendWait("11")
    SendKeys.SendWait("=")
End Sub

Source *

[WOLO Laurent]

Magnifique ce code.