Discussion :

[retwas]

Bonjour,

Je travail actuellement sur un projet qui sert d'aide à la saisie pour les personnes aux postes téléphonique de mon entreprise pour "copié" des phrases personnalisés dans l'ERP.

Actuellement, pour le faire marcher on ouvre IE sous l'adresse http://xxx, ensuite on ouvre le logiciel, ainsi celui ci est au premier plan, on clic sur une phrase tel que "Ping du post NOK" le programme pas en arrière plan avec un "me.hide", IE se retrouve donc au premier plan, le "copié" est effectué et le logiciel revient au premier plan avec un "me.show".

Ceci marche très bien sous Windows 7 seulement les postes de mon entreprise sont sous XP et cela ne marche. XP ne gère pas le "premier plan" comme 7, la fenêtre IE revient bien au premier plan comme pour Windows 7 mais elle est pas "active", comme quand on clic dessus, elle reste "grisé".

Je voulais donc savoir si il existait une méthode pour mettre un processus appelé iexplore.exe au premier plan? sachant que j'arrive à avoir la liste des processus ouvert avec un "SELECT * FROM win32_process".

Merci, Retwas

[Homo_Informaticus]

Peut-être un petit

Code :

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

1
2
3
 
Me.show()
Me.focus()

pourrait arranger cela.

Par contre pas compris la requête SQL sur le process win32...

Pourrais-tu m'expliquer ? Si c'est possible ça m'interesserait

[retwas]

Peut-être un petit

Code :

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

1
2
3
 
Me.show()
Me.focus()

pourrait arranger cela.

Par contre pas compris la requête SQL sur le process win32...

Pourrais-tu m'expliquer ? Si c'est possible ça m'interesserait

Bonjour,

Il faudrait faire un Me.focus() mais sur IE. Pour que celui ci soit en premier plan et actif.

J'arrive à détecter que IE soit ouvert avec cette requête.

Code :

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

1
2
3
4
5
6
7
8
9
objProcess = "iexplore.exe"
        For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
            If UCase(Process.Name) = UCase(objProcess) Then
                MonProcess = True
 
                Form1.Hide()
 
            End If
        Next

Et si IE est ouvert on cache le formulaire pour copié le texte choisi sur IE qui doit se retrouver au premier plan.

Code :

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

1
2
3
4
5
6
7
8
       If MonProcess = True 
            Clipboard.SetText(ContenuTextBox)
 
            'coller texte 
            Windows.Forms.SendKeys.Send("^V")
            ' ----- 
            Form1.Show()
End If

Ensuite on fait réapparaitre le formulaire avec le Me.Show().

[Homo_Informaticus]

D'accord je n'avais pas compris que c'était sur IE que tu voulais prendre le focus.

Pourquoi ne pas instance un objet de type WebBrowser directement dans ton appli ?

Ca fera plus "intégré" et tu peux manipuler les URL sans aucun soucis !

Sinon pour prendre le focus d'un processus déjà ouvert je ne pourrais te répondre désolé

[retwas]

okay merci de ta réponse, j'attends de voir si quelqu'un sais mettre une application externe en focus

[retwas]

Ah finalement j'ai réussi a mettre une application en premier plan avec:

Code :

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

AppActivate("test.txt - Bloc-notes")

Seulement le coller avec la fonction "^V" ne se fait pas

Code :

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

1
2
3
4
5
6
        Clipboard.SetText("test texte copier")
        Me.Hide()
        'coller texte 
        AppActivate("test.txt - Bloc-notes")
        Windows.Forms.SendKeys.Send("^V")
        Me.Show()

[retwas]

En faisant un ^v avec un "v" minuscule sa marche, mais il faut que j'enlève le Me.Show() d'après, si je le remet sa fait pas le copié, savez vous pourquoi?

Merci