Onscreen Keyboard

[mike1234]

So heres my on screen keyboard didnt really spend that much time on it (doesnt have a spacebar, backspace etc yet). Any suggestions on parsing out what button was clicked (FunKey)? I like how short it is but I'm not sure if there will be a situation in which the control IDs might change.

Any suggestions for a more effecient keyboard?

expandcollapse popup

#include <GuiConstants.au3>
#include <windowsconstants.au3>
Opt("GUIOnEventMode", 1)


$keyboardwidth = 850
$keyboardheight = 650
$buffer = 20
$keybuffer = 20
$keyboardlocx = 20
$keyboardlocy = 200
$font = "Bodoni MT Black"
$fontsize = 60
$fontcolor = 0xffffff
$keywidth = $keyboardwidth/11
$keyheight = $keyboardheight/6
$row1 = "Q-W-E-R-T-Y-U-I-O-P"
$row2 = "A-S-D-F-G-H-J-K-L"
$row3 = "Z-X-C-V-B-N-M"
$keys = "0-1-2-3-4-5-6-7-8-9-Q-W-E-R-T-Y-U-I-O-P-A-S-D-F-G-H-J-K-L-Z-X-C-V-B-N-M"
$controls = 2 ;number of control IDs registered

$row1array = StringSplit($row1,"-")
$row2array = StringSplit($row2,"-")
$row3array = StringSplit($row3,"-")
$keyarray = StringSplit($keys,"-")


    GUISetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

    $pos = MouseGetPos()
    $keyboard = GUICreate("Keyboard", $keyboardwidth + 10*$buffer,$keyboardheight + 4*$buffer,$keyboardlocx,$keyboardlocy, $WS_POPUP);$WS_EX_TOPMOST

    GUISetFont(20, 400, 4, $font) 
    $i = 0
    While $i < 10
        GUICtrlCreateButton($i,$i*$keywidth,0,$keywidth,$keyheight)
        GUICtrlSetOnEvent(-1,"FunKey")
        $i = $i+1
    Wend

    $i = 1
    While $i < $row1array[0]+1
        GUICtrlCreateButton($row1array[$i],$i*$keywidth-$keywidth,$keyheight,$keywidth,$keyheight)
        GUICtrlSetOnEvent(-1,"FunKey")
        $i = $i+1
    Wend

    $i = 1
    While $i < $row2array[0]+1
        GUICtrlCreateButton($row2array[$i],$i*$keywidth-$keywidth*.5,$keyheight*2,$keywidth,$keyheight)
        GUICtrlSetOnEvent(-1,"FunKey")
        $i = $i+1
    Wend

    $i = 1
    While $i < $row3array[0]+1
        GUICtrlCreateButton($row3array[$i],$i*$keywidth,$keyheight*3,$keywidth,$keyheight)
        GUICtrlSetOnEvent(-1,"FunKey")
        $i = $i+1
    Wend

    GUISetState(@SW_SHOW)
    GUISetControlsVisible($keyboard)


While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd


Func FunKey()
    Msgbox(0,"",$keyarray[@GUI_CtrlId - $controls])

EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func GUISetControlsVisible($hWnd)
    Local $aClassList, $aM_Mask, $aCtrlPos, $aMask

    $aClassList = StringSplit(_WinGetClassListEx($hWnd), @LF)
    $aM_Mask = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", 0, "long", 0)

    For $i = 1 To UBound($aClassList) - 1
        $aCtrlPos = ControlGetPos($hWnd, '', $aClassList[$i])
        If Not IsArray($aCtrlPos) Then ContinueLoop

        $aMask = DllCall("gdi32.dll", "long", "CreateRectRgn", _
            "long", $aCtrlPos[0], _
            "long", $aCtrlPos[1], _
            "long", $aCtrlPos[0] + $aCtrlPos[2], _
            "long", $aCtrlPos[1] + $aCtrlPos[3])
        DllCall("gdi32.dll", "long", "CombineRgn", "long", $aM_Mask[0], "long", $aMask[0], "long", $aM_Mask[0], "int", 2)
    Next
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $hWnd, "long", $aM_Mask[0], "int", 1)
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _WinGetClassListEx($sTitle)
    Local $sClassList = WinGetClassList($sTitle)
    Local $aClassList = StringSplit($sClassList, @LF)
    Local $sRetClassList = "", $sHold_List = "|"
    Local $aiInHold, $iInHold

    For $i = 1 To UBound($aClassList) - 1
        If $aClassList[$i] = "" Then ContinueLoop

        If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
            $aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
            $iInHold = Number($aiInHold[UBound($aiInHold)-1])

            If $iInHold = 0 Then $iInHold += 1

            $aClassList[$i] &= "~" & $iInHold + 1
            $sHold_List &= $aClassList[$i] & "|"

            $sRetClassList &= $aClassList[$i] & @LF
        Else
            $aClassList[$i] &= "~1"
            $sHold_List &= $aClassList[$i] & "|"
            $sRetClassList &= $aClassList[$i] & @LF
        EndIf
    Next

    Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[jchd]

Not closely related, but you may be interessed to discover Dasher if you don't already know it: a completely different way to enter text without keyboard. And it really works!