Key Binding to a Subroutine

[ohkovar]

Is there a way to bind keys to call a particular subroutine? For instance, I have a login screen when the app starts. I have a special admin password that
will allow me to bypass the user's password and login (for debugging someone's device). I would like to have a special Ctrl+Shift+A or something similar to automatically call a login subroutine to login me in.

Thanks in advance!

 

[Erel]

You can use the door library to do it (the source code is attached):

Sub Globals
    'Declare the global variables here.

End Sub

Sub App_Start
    Form1.Show
    obj.New1(False)
    obj.FromControl("Form1") 'Get a reference to the relevant form.
    obj.SetProperty("KeyPreview",True) 'Setting the KeyPreview property to true will allow the form KeyPress event to handle all key presses.
    keypress.New1(obj.Value,"KeyDown") 'Catch the KeyDown event.
End Sub

Sub keypress_NewEvent
    obj.Value = keypress.Data
    If obj.GetProperty("Control") = True AND obj.GetProperty("Alt") = True AND obj.GetProperty("KeyCode") = "E" Then
        Msgbox("Ctrl+Alt+E was pressed.")
    End If
End Sub

 

[ohkovar]

Thanks! That's just what I needed.

 

[ohkovar]

Okay, what is the obj object? I'm getting the following error (runtime error):

obj.New1(False)
Object reference not set to an instance of an object.

 

[ohkovar]

Nevermind..Brain-fart. I got it working.

 

[Byak@]

Erel and what about get keypress event if my form not in forward?my form is minimized.

 

[Erel]

I haven't tried this but I think it will work.
You can create an array of type Int32 and insert the values of all keys you want to catch. The values (in hexadecimal) are here: Virtual-Key Codes
You should then pass this array to HardKey.New2.

 

[Byak@]

Erel please show me example.when i do it program catch only cursor buttons.

 

[Byak@]

heh,problem with my AEbutton+.i'm kill it and algoritm work.i catch all buttons?but button "Call" (114) doesnot catch.BUT attached proram(keycode.exe) catch all my buttons.why?

 

[Erel]

What is AEbutton+ ?
It is possible that the Call button is treated differently than the other regular buttons and therefore you will not be able to catch it with HardKey.