Native Process calling TabTip.exe not working on Windows 8

[FunkyJunk]

Hey,

I'm desperately trying to get the nice Touch Keyboard to display on Windows 8 for my AIR App.

Looking at this article http://sukantadas.wordpress.com/2012/10/16/executing-exe-file-from-desktop-through-adobe-air/ it seems possible, and it works nicely on my windows 7 machine, beit that TabTip.exe is a slightly different keyboard on Win7.

Over to windows 8, I can't get it to work for love nor money. ('m testing on this http://www.samsung.com/us/business/computing/tablet-pcs/XE700T1C-A03US).

It works fine if I wrapp the SWF with MDM.ZINC - Mdm.System.exec("C:\\Program Files\\Common Files\\microsoft shared\\ink\\TabTip.exe"); but then I'm out of the AIR SDK and stuck with MDM Zinc; which doesn't even recognise MouseDown events on Windows 8 (touching the screen).. but that's another story - http://www.mdmforum.com/forum/index.php?showtopic=29963

Please can someone help me as I've been pulling my hair out..

[FunkyJunk]

anyone?

[FunkyJunk · Accepted solution]

I just found this - http://www.shirne.com/?cid=45&id=182 (google translate)

It would be great to know how they built the c# app...

[FunkyJunk]

PM if anyone has the same problem, I've managed to write the c# app

[__nel78]

Hello FunkyJunk. I am actually having a similar issue. I figured how to call tabtip, it requires you to run the application as an administrator but I cant dismiss it. Does your app handle that?

I also found a way to do it with NorthCode, not MDM... but I want to stay within Adobe AIR SDK as well.

If your app can dismiss the OSK, can you help a brother out?  thanks much.

[FunkyJunk]

I've PM'd you. Let me know how you get on.

[__nel78]

I lost my password to respond.

Thanks for helping me out. I found out how to do it in ASP.net though. I use the app for native process because I was having some huge issues with AIR.

Thanks again

My code below. I took into account Windows 8

Imports System.Threading

Imports System.Runtime.InteropServices

Module Module1

Sub Main(ByVal sArgs As String())

If sArgs.Length = 0 Then

Console.WriteLine("<-no arguments passed->")

Else

Dim i As Integer = 0

If i < sArgs.Length Then

If sArgs(i) = "1" Then

If My.Computer.FileSystem.FileExists("C:\Program Files\Common Files\Microsoft Shared\ink\TabTip.exe") Then

Process.Start("C:\Program Files\Common Files\Microsoft Shared\ink\TabTip.exe")

Else

Process.Start("c:/windows/system32/osk.exe")

End If

ElseIf sArgs(i) = "0" Then

Dim TouchhWnd As New IntPtr(0)

Dim hWnd As New IntPtr(0)

TouchhWnd = FindWindow("IPTip_Main_Window", Nothing)

PostMessage(TouchhWnd, WM_SYSCOMMAND, SC_CLOSE, 0)

End If

End If

End If

End Sub

Dim WM_SYSCOMMAND As Int32 = 274

Dim SC_CLOSE As UInt32 = 61536

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _

Private Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean

End Function

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _

Private Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

End Function

End Module