Communication avec un autre logiciel.

Version imprimable

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:

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

22/11/2011, 15h57
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 :D

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

Voilà ce que j'ai trouver grâce à ton post, j'ai modifier comme il me le fallait, et tout fonctionne. 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
' 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 *

23/11/2011, 09h31
WOLO Laurent

Magnifique ce code.