Discussion :

[turican2]

Bonjour à tous,

voilà j'ai deux applications sur le meme PC (mon appli vb.net et l'appli client).

J'arrive à recupperer le processus du client en faisant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim myProcesses() As Process
Dim myProcess As Process
Dim processClient As Process
 
myProcesses = Process.GetProcesses()
' Iterate through the process array.
For Each myProcess In myProcesses
  If myProcess.ProcessName = "nomProcessClient" Then
          processClient = myProcess
  End If
Next

j'arrive egalement à simuler l'appuie d'une touche par mon application

Code :

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

1
2
 
SendKeys.Send("{F1}")

maintenant je sais pas comment dire à mon application d'envoyer cet appuie de touche vers l'application cliente. Quelqu'un saurait il me dire comment m'y prendre?

merci de vos réponses.

[Pol63]

donne le focus au processus avant de faire sendkeys

[turican2]

merci de ta réponse rapide, je comprends bien la notion de focus pour un controle local à mon application. Néanmoins, je ne trouve pas cette propriété pour un processus.

je cherche un truc du genre processClient.focus() ou processClient.getfocus() mais je ne trouve pas.

[Pol63]

en effet, j'en dit des conneries sans savoir moi


enfin on peut trouver MainWindowHandle
il reste plus qu'à trouver une fonction API qui active une fenetre à partir de son handle

[Pol63]

bon j'ai passé 5 secondes dans google et j'ai trouvé plein de solutions possibles

dont celle là qui a l'air pas mal :
http://msdn.microsoft.com/fr-fr/libr...ca(VS.80).aspx


encore un qui ne prend pas le temps de chercher et qui attend qu'on cherche à sa place, car j'ai réellement passé moins de 10 secondes sur google

[OhMonBato]

Pour exemple, première appli avec un bouton et ce code :

Code :

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

1
2
3
4
5
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AppActivate("FormApplication2")
My.Computer.Keyboard.SendKeys("A", True)
End Sub

Deuxième appli avec une form dont la propriété KeyPreview est à True et la propriété Text mise à "FormApplication2" et le code :

Code :

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

1
2
3
4
 
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
MsgBox(e.KeyChar)
End Sub

[turican2]

Donc l'application en question bascule bien au premier plan mais My.Computer.Keyboard.SendKeys("A", True) génère une SecurityException que je ne n'arrive pas à contourner. Ce qui est indiqué doit par conséquent etre correcte, si je trouve une solution pour contourner la SecurityException je vous l'indiquerai.

[OhMonBato]

Es tu administrateur sur ta machine ?

[turican2]

oui je suis bien administrateur de la machine peut etre que l'exception est levé car je suis en windows vista. Je testerai le code sur une machine en windows XP ce soir.

[OhMonBato]

Le code simpliste que je t'ai donné tourne sous Vista sans soucis. Cherche donc la raison ailleurs.
A ta place je taperais "SecurityException VB" sur Google, il me semble que tu pourrais tomber sur des liens intéressants.

[turican2]

re bonjour à tout le monde, non en faite j'avais peur que l'UAC de vista m'empeche d'avoir les droits suffisant sur le programme en question.

En executant ce code sur une machine en XP, j'ai strictement le meme message d'erreur.

Code :

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

1
2
3
4
5
6
7
 
Try
   My.Computer.Keyboard.SendKeys("{F1}", False)
 
Catch ex As Exception
   MsgBox(ex.Message)
End Try

le Msgbox me retourne

Code :

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

"Le module spécifié est introuvable"

ce qui me gene c'est que "Me." me permet d'aller chercher "Keyboard" puis "Sendkeys", par conséquent, je ne comprends pas ce qui gene.

[turican2]

Le programme doit etre protegé, je ne vois plus que ça.

En effet, dans le "TAsk Manager" de windows,

dans l'onglet "Application" je vois son nom. Quand je fais un clic droit puis "Aller dans le processus", alors je ne bascule pas dans l'onglet "Processus". C'est le seul programme de mon Poste à agir de la sorte.

Mon code est capable d'agir sinon dans n'importe quelle application "winform like".

Bref, j'ai plus d'idée...