Discussion :

[tbeeharr]

Bonjour j'utilise les codes suivants pour ouvrir le clavier virtuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub cmdclavier_Click()
 
        ShellExecute Me.hwnd, "open", "osk.exe", "", "", 1
 
End Sub

Ce code fonctionne parfaitement. Mais je voudrais aussi fermer le clavier en cliquant sur un bouton. J'ai cherché les options de ShellExecute mais il n'esxiste apparement pas une option du type close ou quit.
Quelqu'un aurait une solution? Merci d'avance

[LedZeppII]

Bonjour,

Essaie avec ce code :

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
Sub FermerOsk()
Dim oSvc As Object
Dim sQuery As String
Dim oProc As Object, oProcs As Object
 
Set oSvc = GetObject("winmgmts:root\cimv2")
sQuery = "select * from win32_process where name='osk.exe'"
Set oProcs = oSvc.ExecQuery(sQuery)
If oProcs.Count = 1 Then
   For Each oProc In oProcs
       oProc.Terminate 0
   Next
End If
Set oProcs = Nothing
Set oSvc = Nothing
End Sub

Tu peux aussi essayer Comment tuer un processus en connaissant le nom de sa fenêtre ?

A+

[tbeeharr]

le code fonctionne nickel!
Merci beaucoup

[Sid_le_paresseux]

Bonjour,

Essaie avec ce code :

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
Sub FermerOsk()
Dim oSvc As Object
Dim sQuery As String
Dim oProc As Object, oProcs As Object
 
Set oSvc = GetObject("winmgmts:root\cimv2")
sQuery = "select * from win32_process where name='osk.exe'"
Set oProcs = oSvc.ExecQuery(sQuery)
If oProcs.Count = 1 Then
   For Each oProc In oProcs
       oProc.Terminate 0
   Next
End If
Set oProcs = Nothing
Set oSvc = Nothing
End Sub

Tu peux aussi essayer Comment tuer un processus en connaissant le nom de sa fenêtre ?

A+

J'ai essayé différentes méthodes, en utilisant les fonction taskkill, killprocess, ta méthode également... Je doit louper quelque chose

En testant directement taskkill dans cmd, je pense avoir l'explication :
Erreur*: le processus "osk.exe" de PID 34636 n’a pas pu être arrêté.
Raison*: Accès refusé.

(Note : j'ai essayé en précisant /U / P, mais il faut renseigner /S ... Où puis-je trouver ce nom ? )

Je suis en entreprise, donc pas administrateur complet du poste de travail...

Je peux lancer osk.exe via VBA mais pas le fermer ??
Qui à une idée pour me dépanner ?