screen keyboard

March 3, 2006

Hi all.

I would like to create a gui that displays the 26 letters (a-z) as buttons so that a user could click on the buttons and as they do, store this information as a variable.

I have no problems creating the form, but need help with the code to record the buttons pushed and then store the buttons as a variable.

What I am trying to do is get around the use of the keyboard to prevent keystroke recorders from detecting a password as I would fill this gui with buttons to run other programs and provide the program with username and password.

Thanks

Baz

March 3, 2006

I think the way I would do it is to use GUIOnEventMode, and have an event for every key button pointing to the same function. In that function, you would read the @GUI_CTRLID that made the function be called, and get the corresponding text, and store that into a variable.

Example code:

#include <guiconstants.au3>

Opt ("GUIOnEventMode", 1)

$Buttons_GUI = GUICreate ("Buttons")
GUICtrlSetOnEvent (-1, "closeme")
$Button_a = GUICtrlCreateButton ("a", 1, 0, 20, 20)
GUICtrlSetOnEvent (-1, "ButtonPressed")
$Button_b = GUICtrlCreateButton ("b", 1, 25, 20, 20)
GUICtrlSetOnEvent (-1, "ButtonPressed")
$Button_c = GUICtrlCreateButton ("c", 1, 50, 20, 20)
GUICtrlSetOnEvent (-1, "ButtonPressed")
$Button_d = GUICtrlCreateButton ("d", 1, 75, 20, 20)
GUICtrlSetOnEvent (-1, "ButtonPressed")

GUISetState ()

While 1
    Sleep (100)
WEnd

Func ButtonPressed()
    MsgBox (0, "", GUICtrlRead (@GUI_CtrlId))
EndFunc

Func closeme()
    Exit
EndFunc

Edited March 3, 2006 by greenmachine

Cick this and help me · March 3, 2006

I'm pretty sure that windows XP has a built in screen keyboard.

March 3, 2006

http://www.autoitscript.com/forum/index.ph...topic=21141&hl=

March 3, 2006

try win+u for the winxp inkeyboard

the rest could be done by

while 1
$msg = guigetmsg()
if $msg = $a then $variable = $variable & "a"
...
wend

March 3, 2006

You can modify this if you want..

#include <GuiConstants.au3>


$keyboard = GuiCreate("Enter Labserver Name", 726, 362,(@DesktopWidth-726)/2, (@DesktopHeight-362)/2 ,  $WS_VISIBLE + $WS_POPUP)

GuiCtrlCreateLabel ("Input Server Name:", 40, 27, 99, 40)

$Input_1 = GuiCtrlCreateInput("", 140, 20, 140, 30)
GUICtrlSetFont (-1, 14)
$Button_go = GuiCtrlCreateButton("Go", 300, 20, 60, 30)

$Button_1 = GuiCtrlCreateButton("1", 30, 70, 40, 40)
$Button_2 = GuiCtrlCreateButton("2", 90,70, 40, 40)
$Button_3 = GuiCtrlCreateButton("3", 150,70, 40, 40)
$Button_4 = GuiCtrlCreateButton("4", 210,70, 40, 40)
$Button_5 = GuiCtrlCreateButton("5", 270,70, 40, 40)
$Button_6 = GuiCtrlCreateButton("6", 330,70, 40, 40)
$Button_7 = GuiCtrlCreateButton("7", 390,70, 40, 40)
$Button_8 = GuiCtrlCreateButton("8", 450,70, 40, 40)
$Button_9 = GuiCtrlCreateButton("9", 510,70, 40, 40)
$Button_0 = GuiCtrlCreateButton("0", 570,70, 40, 40)

$Button_q = GuiCtrlCreateButton("Q", 50, 130, 40, 40)
$Button_w = GuiCtrlCreateButton("W", 110, 130, 40, 40)
$Button_e = GuiCtrlCreateButton("E", 170, 130, 40, 40)
$Button_r = GuiCtrlCreateButton("R", 230, 130, 40, 40)
$Button_t = GuiCtrlCreateButton("T", 290, 130, 40, 40)
$Button_y = GuiCtrlCreateButton("Y", 350, 130, 40, 40)
$Button_u = GuiCtrlCreateButton("U", 410, 130, 40, 40)
$Button_i = GuiCtrlCreateButton("I", 470, 130, 40, 40)
$Button_o = GuiCtrlCreateButton("O", 530, 130, 40, 40)
$Button_p = GuiCtrlCreateButton("P", 590, 130, 40, 40)

$Button_a = GuiCtrlCreateButton("A", 70,  190, 40, 40)
$Button_s = GuiCtrlCreateButton("S", 130, 190, 40, 40)
$Button_d = GuiCtrlCreateButton("D", 190, 190, 40, 40)
$Button_f = GuiCtrlCreateButton("F", 250, 190, 40, 40)
$Button_g = GuiCtrlCreateButton("G", 310, 190, 40, 40)
$Button_h = GuiCtrlCreateButton("H", 370, 190, 40, 40)
$Button_j = GuiCtrlCreateButton("J", 430, 190, 40, 40)
$Button_k = GuiCtrlCreateButton("K", 490, 190, 40, 40)
$Button_l = GuiCtrlCreateButton("L", 550, 190, 40, 40)

$Button_z = GuiCtrlCreateButton("Z", 100, 250, 40, 40)
$Button_x = GuiCtrlCreateButton("X", 160, 250, 40, 40)
$Button_c = GuiCtrlCreateButton("C", 220, 250, 40, 40)
$Button_v = GuiCtrlCreateButton("V", 280, 250, 40, 40)
$Button_b = GuiCtrlCreateButton("B", 340, 250, 40, 40)
$Button_n = GuiCtrlCreateButton("N", 400, 250, 40, 40)
$Button_m = GuiCtrlCreateButton("M", 460, 250, 40, 40)

GuiCtrlCreateLabel ("Special Chrs", 120, 320, 70, 40)
$Button_underscore = GuiCtrlCreateButton("_", 190, 310, 40, 40)
$Button_minus = GuiCtrlCreateButton("-", 250, 310, 40, 40)
$Button_stop = GuiCtrlCreateButton(".", 310, 310, 40, 40)

$Button_del = GuiCtrlCreateButton("Delete", 540, 20, 90, 40)

GuiSetState()
WinsetonTop ($Keyboard, "",1)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button_1
        pressed ("1")
    Case $msg = $Button_2
        pressed ("2")
    Case $msg = $Button_3
        pressed ("3")
    Case $msg = $Button_4
        pressed ("4")
    Case $msg = $Button_5
        pressed ("5")
    Case $msg = $Button_6
        pressed ("6")
    Case $msg = $Button_7
        pressed ("7")
    Case $msg = $Button_8
        pressed ("8")
    Case $msg = $Button_9
        pressed ("9")
    Case $msg = $Button_0
        pressed ("0")
    Case $msg = $Button_q
        pressed ("Q")
    Case $msg = $Button_w
        pressed ("W")
    Case $msg = $Button_e
        pressed ("E")
    Case $msg = $Button_r
        pressed ("R")
    Case $msg = $Button_t
        pressed ("T")
    Case $msg = $Button_y
        pressed ("Y")
    Case $msg = $Button_u
        pressed ("U")
    Case $msg = $Button_i
        pressed ("I")
    Case $msg = $Button_o
        pressed ("O")
    Case $msg = $Button_p
        pressed ("P")
    Case $msg = $Button_a
        pressed ("A")
    Case $msg = $Button_s
        pressed ("S")
    Case $msg = $Button_d
        pressed ("D")
    Case $msg = $Button_f
        pressed ("F")
    Case $msg = $Button_g
        pressed ("G")
    Case $msg = $Button_h
        pressed ("H")
    Case $msg = $Button_j
        pressed ("J")
    Case $msg = $Button_k
        pressed ("K")
    Case $msg = $Button_l
        pressed ("L")
    Case $msg = $Button_z
        pressed ("Z")
    Case $msg = $Button_x
        pressed ("X")
    Case $msg = $Button_c
        pressed ("C")
    Case $msg = $Button_v
        pressed ("V")
    Case $msg = $Button_b
        pressed ("B")
    Case $msg = $Button_n
        pressed ("N")
    Case $msg = $Button_m
        pressed ("M")
    Case $msg = $Button_underscore
        pressed ("_")
    Case $msg = $Button_minus
        pressed ("-")
    Case $msg = $Button_stop
        pressed (".")
    Case $msg = $Button_del
        $String = GuictrlRead ($Input_1)
        $String = Stringtrimright ($String,1)
        GuiCtrlSetData ($Input_1, $String)
    Case $msg = $Button_go
        GuiSetState (@SW_DISABLE, $keyboard)
        $String = GuictrlRead ($Input_1)
        $answer = MsgBox (262148,"You have entered", $String & " is this correct?")
        If $Answer = 6 then 
            GuiSetState (@SW_Enable, $keyboard)
            GuiDelete ($keyboard)
            ExitLoop
        Else
            
            GuiSetState (@SW_Enable, $keyboard)
            Endif
        
        
    Case Else
    ;;;
    EndSelect
WEnd


Func Pressed ($Key)
    $String = GuictrlRead ($Input_1)
    $String = $String & $Key
    GuiCtrlSetData ($Input_1, $String)
EndFunc

March 3, 2006

I'm pretty sure that windows XP has a built in screen keyboard.

Yes, but the output of that keyboard can be trapped by software.

The OP is attempting "to prevent keystroke recorders from detecting a password".

March 5, 2006

Thanks to all those who repiled. Below is a copy of what I am using. I have also tested with four key loggers and none pickup user name or password. The only issue is that if the exe file is on a networked dirve, then the @windowsdir and @systemdir don't seem to work.

Cheers

Baz

#include <GUIConstants.au3>

; == GUI generated with Koda ==

Opt ("GUIOnEventMode", 1)

Dim $pw

Dim $word

Dim $blank

$blank="#"

$HelpDeskTools = GUICreate("HelpDeskTools", 439, 376)

$Tab1 = GUICtrlCreateTab(8, 8, 425, 201)

$TabSheet1 = GUICtrlCreateTabItem("Registry")

$Button1 = GUICtrlCreateButton("Regedit", 24, 40, 121, 33, 0)

GUICtrlSetOnEvent (-1, "regme")

$TabSheet2 = GUICtrlCreateTabItem("File Shares")

$Button2 = GUICtrlCreateButton("Explore ZEN Images", 24, 40, 121, 33, 0)

GUICtrlSetOnEvent (-1, "zenimg")

$Button30 = GUICtrlCreateButton("Explore ZEN APPS", 24, 80, 121, 33, 0)

GUICtrlSetOnEvent (-1, "zenapps")

$Button31 = GUICtrlCreateButton("J Drive Site1", 24, 120, 121, 33, 0)

GUICtrlSetOnEvent (-1, "pjdrv")

$Button32 = GUICtrlCreateButton("J Drive Site 2", 24, 160, 121, 33, 0)

GUICtrlSetOnEvent (-1, "cjdrv")

$TabSheet3 = GUICtrlCreateTabItem("Windows")

GUICtrlSetState(-1,$GUI_SHOW)

$Button33 = GUICtrlCreateButton("Add/Remove Software", 24, 40, 121, 33, 0)

GUICtrlSetOnEvent (-1, "AddRem")

$Button34 = GUICtrlCreateButton("Computer Management", 24, 80, 121, 33, 0)

GUICtrlSetOnEvent (-1, "ComMang")

$Button35 = GUICtrlCreateButton("Defrag C Drive", 24, 120, 121, 33, 0)

GUICtrlSetOnEvent (-1, "DFrag")

$Button36 = GUICtrlCreateButton("Manage Local Users", 24, 160, 121, 33, 0)

GUICtrlSetOnEvent (-1, "MLU")

$Button37 = GUICtrlCreateButton("Windows Services", 160, 40, 121, 33, 0)

GUICtrlSetOnEvent (-1, "Service")

$Button38 = GUICtrlCreateButton("Task Manager", 160, 80, 121, 33, 0)

GUICtrlSetOnEvent (-1, "TaskMGR")

GUICtrlCreateTabItem("")

$Group1 = GUICtrlCreateGroup("", 8, 216, 425, 81)

$Button4 = GUICtrlCreateButton("a", 16, 232, 25, 25, 0)