Want to open TabTip.exe instead of osk.exe... (Windows 10 - Surface 2 Tablet - Excel 32 bit)

[MistakesWereMade]

I got osk.exe to open but would rather utilize TabTip.exe instead. Any ideas on how this may be achieved? My code for bringing up the osk.exe is shown below.

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
Private Declare PtrSafe Function Wow64EnableWow64FsRedirection Lib "kernel32.dll" (ByVal Enable As Boolean) As Boolean
Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare PtrSafe Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare PtrSafe Function IsWow64Process Lib "kernel32" (ByVal hProc As Long, bWow64Process As Long) As Long


Public Function Is64bit() As Long
   If GetProcAddress(GetModuleHandle("kernel32"), "IsWow64Process") > 0 Then
      IsWow64Process GetCurrentProcess(), Is64bit
   End If
End Function

Private Sub Label1_Click()


ComboBox1.SetFocus


If Is64bit Then
      Wow64EnableWow64FsRedirection False
      ShellExecute 0, "open", "osk.exe", "", "", vbNormalFocus
      Wow64EnableWow64FsRedirection True
   Else
      ShellExecute 0, "open", "osk.exe", "", "", vbNormalFocus
   End If


End Sub

 

[Jaafar Tribak]

I got osk.exe to open but would rather utilize TabTip.exe instead. Any ideas on how this may be achieved? My code for bringing up the osk.exe is shown below.

It is probably because the tabtip.exe is still open in memory .

Try closing it first as follows and see if it works : (changes in blue)

Private Sub Label1_Click()

    ComboBox1.SetFocus
    
    [COLOR=#0000ff]Const TARGET_APP_EXE As String = "TabTip.exe"[/COLOR]
    
    [COLOR=#0000ff]Call Terminate_App(TARGET_APP_EXE)[/COLOR]
    
    If Is64bit Then
        Wow64EnableWow64FsRedirection False
        ShellExecute 0, "open", [COLOR=#0000ff]TARGET_APP_EXE[/COLOR], "", "C:\windows\system32\TabTip.exe", vbNormalFocus
        Wow64EnableWow64FsRedirection True
    Else
        ShellExecute 0, "open", [COLOR=#0000ff]TARGET_APP_EXE[/COLOR], "", "", vbNormalFocus
    End If

End Sub


[COLOR=#0000ff]Private Sub Terminate_App(ByVal AppExe As String)
    Dim oWMI As Object, oProcs As Object, oProc As Object
    
    Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set oProcs = oWMI.ExecQuery("select * from win32_process where name='" & AppExe & "'")
    For Each oProc In oProcs
        oProc.Terminate
    Next
End Sub[/COLOR]

Also, I think the first call to ShellExecute (when Is64bit is True) should be :

 ShellExecute 0, "open", TARGET_APP_EXE, "", "", vbNormalFocus

without specifying the LpszDir argument as in my windows 10, the tabtip.exe file (as opposed to osk.exe) is not located in the system32 folder.

 

[MistakesWereMade]

Unfortunately, the code would run without error but nothing would happen.

 

[Jaafar Tribak]

Unfortunately, the code would run without error but nothing would happen.

It worked for me but I am using excel 64 bit ... I don't have 32bit excel to test.

You are using excel 32 bit so I guess you should remove the "C:\windows\system32\TabTip.exe" and pass an empty string ""

If Is64bit Then
        Wow64EnableWow64FsRedirection False
        ShellExecute 0, "open", TARGET_APP_EXE, "", [COLOR=#ff0000][B]""[/B][/COLOR], vbNormalFocus
        Wow64EnableWow64FsRedirection True

[COLOR=#008000]' rest of code .........[/COLOR]

 

[MistakesWereMade]

Yeah, I still couldn't get it to work. However, I decided I actually prefer my osk.exe setup so I'll just stick with that! Thanks for all the help though Jaafar!