Question

我使用下面的代码来调用On-Screen Keyboard(OSK)

Process.Start("C:\Windows\System32\OSK.EXE")

但正如您在下面看到的，我收到了一个错误消息。但如果我手动打开它，它工作正常。

可以调用OSK，但只能调用数字(0 - 9)

Answer 1

Public Class Form1

    Declare Function Wow64DisableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
    Declare Function Wow64EnableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
    Private osk As String = "C:\Windows\System32\osk.exe"
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim old As Long
        If Environment.Is64BitOperatingSystem Then
            If Wow64DisableWow64FsRedirection(old) Then
                Process.Start(osk)
                Wow64EnableWow64FsRedirection(old)
            End If
        Else
            Process.Start(osk)
        End If
    End Sub
End Class

Answer 2

Private oskProcess As Process

Private Sub openButton_Click(ByVal sender As System.Object, ByVal e As 
                            System.EventArgs) Handles openButton.Click
 If Me.oskProcess Is Nothing Then
   If Me.oskProcess IsNot Nothing AndAlso Me.oskProcess.HasExited Then
            Me.oskProcess.Close()
   End If
        Me.oskProcess = Process.Start("osk")
 End If
End Sub

Answer 3

Declare Function Wow64DisableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
Declare Function Wow64EnableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
Private osk As String = "C:\Windows\System32\osk.exe"
Private pOSK As Process = Nothing

Public Sub Keyboard_Show()
    'An instance is running => Dan wordt pOSK het bestaande proces
    For Each pkiller As Process In Process.GetProcesses
        If String.Compare(pkiller.ProcessName, "osk", True) = 0 Then pOSK = pkiller
    Next

    'If no instance of OSK is running than create one depending on 32/64 bit
    For Each pkiller As Process In Process.GetProcesses
        If Not (String.Compare(pkiller.ProcessName, "osk", True) = 0) And (pOSK Is Nothing) Then

            Dim old As Long
            If Environment.Is64BitOperatingSystem Then
                '64 Bit
                If Wow64DisableWow64FsRedirection(old) Then
                    pOSK = Process.Start(osk)
                    Wow64EnableWow64FsRedirection(old)
                End If
            Else
                '32 Bit
                pOSK = Process.Start(osk)
            End If
            Exit For
        End If
    Next
End Sub

'-------------------------------------------------
'--- Hide On Screen Keypad mbv process threads ---
'--- 05-07-2018                                ---
'-------------------------------------------------
Public Sub Keyboard_Hide()
    For Each pkiller As Process In Process.GetProcesses
        If String.Compare(pkiller.ProcessName, "osk", True) = 0 And Not (pOSK Is Nothing) Then

            ' Terminate process
            pOSK.Kill()
            Exit For
        End If
    Next

    'Wait untill proces is really terminated
    For intStap As Integer = 1 To 10
        For Each pkiller As Process In Process.GetProcesses
            If String.Compare(pkiller.ProcessName, "osk", True) = 0 Then
                Thread.Sleep(1000)
            Else
                pOSK = Nothing
                Exit For
            End If
        Next
    Next intStap
End Sub

使用vb.net调用屏幕键盘（OSK）

3 个答案: