How to open on-screen-keyboard

[Myicq]

All,

I have developed a good app for touch screen controllers. But I would like to save myself the time to develop an on-screen-keyboard. The touch controller does come with the built-in-Windows keyboard, but I think it's too bulky and can't be resized.

I have tried the free keyboard "Click-N-Type", which is now a little outdated. I can open the keyboard, move it as desired and close it again.

Problem is when I type something! I would like to open the keyboard just below the inputbox automatically. However when I type first character, I get focus on my form, and my form will cover the keyboard.

Maybe I am missing something here.. is there any example code on how to work in code with on-screen-keyboards ? (other thank kdb.exe from Microsoft).

This is what I have so far:

expandcollapse popup

; 
; using keyboard from
; http://cnt.lakefolks.com/
;

$kdb = 'c:\keyboard\Click-N-Type.exe '

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 80, 104, 177, 81)
$Button2 = GUICtrlCreateButton("Button2", 296, 112, 185, 89)
$i = GUICtrlCreateInput("TEST", 80, 200,400,40)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        case $Button1
            _movekbd()

        Case $Button2
            _startkbd()

    EndSwitch
WEnd

Func _movekbd()
    if ProcessExists("Click-N-Type.exe") then
        WinMove("Click-N-Type", "", Random(0,@DesktopWidth,1), Random(0,@DesktopHeight,1))
        WinSetOnTop("Click-N-Type", "", 1)
;~      GUICtrlSetState($i, $GUI_FOCUS)

    Else
        run($kdb, "c:\keyboard\", @SW_SHOW)
        WinSetOnTop("Click-N-Type", "", 1)
    EndIf
EndFunc


Func _startkbd()
        ; Display a list of Notepad processes returned by ProcessList.
    Local $aProcessList = ProcessList("Click-N-Type.exe")
    For $i = 1 To $aProcessList[0][0]
        ProcessClose($aProcessList[$i][1])
    Next
    Sleep(100)
EndFunc

Any kind of help appreciated.

 

[JohnOne]

Try osk.exe

[Myicq]

Try osk.exe

Yes, I realize that is an option I can always use But since that specific keyboard offers very little styling and configuration options I am looking at other options before.

Btw, there is also "tabtip.exe" available on Windows. That too can't really be styled.

Maybe my fav OSK is just too old for a Win7 machine these days..  so, so far out look for other alternatives.