使用vb.net调用屏幕键盘(OSK)

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Shared Function SetForegroundWindow(ByVal hWnd As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", CharSet:=CharSet.Auto, CallingConvention:=CallingConvention.StdCall)>
    Public Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal nCmdShow As Integer) As Boolean
    End Function

    Private Sub ShowOSK()
        Dim oskProcess As Process = Process.Start("osk.exe")
        oskProcess.WaitForInputIdle()
        Dim oskWindow As IntPtr = FindWindow(Nothing, "屏幕键盘")
        If oskWindow <> IntPtr.Zero Then
            SetForegroundWindow(oskWindow)
            ShowWindow(oskWindow, 1)
        End If
    End Sub

    Private Sub HideOSK()
        Dim oskWindow As IntPtr = FindWindow(Nothing, "屏幕键盘")
        If oskWindow <> IntPtr.Zero Then
            ShowWindow(oskWindow, 0)
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ShowOSK()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        HideOSK()
    End Sub
End Class