Native Process calling TabTip.exe not working on Windows 8

Question

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-a ir/ 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..

Answer 1

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