B4J Question Simulate keypress+combos

ThRuST · Jan 5, 2019

Hi all, I found this native Java code how to simulate keypress which I want to convert to B4J, because I need a automatic keypress of CTRL+V keypress and I need a solution without the jAWTRobot library.

Any solution needs to support SDK v9.0.4

You can find the native Java code here

ThRuST · Jan 5, 2019

Keyboard scan codes might be useful to make key press combos work. You'll find a keytable schematic here

Roycefer · Jan 5, 2019

Why are you trying to do this without the jAWTRobot library? Wasn't it designed specifically for this?

ThRuST · Jan 5, 2019

I am looking for an alternative solution just to make it work, any way possible. If I didn't experience any issue with pasting on Mac I wouldn't have posted this.

ThRuST · Jan 5, 2019

Here's a way that works but only for single keypress. I need the key combo CTRL+V

B4X:

Dim robot As JavaObject
    Dim jo As JavaObject
    jo.InitializeStatic("com.sun.glass.ui.Application")
    robot = jo.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)

    Dim i As Int =  65
  
    robot.RunMethod("keyPress", Array As Object(i))
    Sleep(50)
    robot.RunMethod("keyRelease", Array As Object(i))

Output

a

ThRuST · Jan 5, 2019

On Mac however, it's different. see the image below

On PC that's the "Windows" button in vmWare

ThRuST · Jan 7, 2019

This code only pastes "a" even though it's supposed to paste "@a"

B4X:

TextArea1.RequestFocus
   
    Dim robot1 As JavaObject
    Dim robot2 As JavaObject
    Dim jo1 As JavaObject
    Dim jo2 As JavaObject
    jo1.InitializeStatic("com.sun.glass.ui.Application")
    jo2.InitializeStatic("com.sun.glass.ui.Application")
    robot1 = jo1.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
    robot2 = jo2.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)

    Dim i As Int =  65
    Dim j As Int =  66
 
    robot1.RunMethod("keyPress", Array As Object(i))
    robot2.RunMethod("keyPress", Array As Object(j))
    Sleep(50)
    robot1.RunMethod("keyRelease", Array As Object(i))
    robot2.RunMethod("keyRelease", Array As Object(j))

Output

ab

ThRuST · Jan 7, 2019

Same as

B4X:

TextArea1.RequestFocus
 
    Dim robot1 As JavaObject
    Dim robot2 As JavaObject
    Dim jo1 As JavaObject
    Dim jo2 As JavaObject
    jo1.InitializeStatic("com.sun.glass.ui.Application")
    jo2.InitializeStatic("com.sun.glass.ui.Application")
    robot1 = jo1.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
    robot2 = jo2.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)

    Dim i As Int =  65
    Dim j As Int =  66
 
    robot1.RunMethod("keyPress", Array As Object(i))
    robot1.RunMethod("keyRelease", Array As Object(i))
 
    robot2.RunMethod("keyPress", Array As Object(j))
    robot2.RunMethod("keyRelease", Array As Object(j))

Output

ab

Daestrum · Jan 7, 2019

B4X:

Sub AppStart (Form1 As Form, Args() As String)
 MainForm = Form1
 'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
 MainForm.Show
 textarea1.Initialize("")
 
   MainForm.RootPane.AddNode(textarea1,10,10,100,100)
 Dim robot1 As JavaObject
 Dim jo1 As JavaObject
 Dim keycodes As JavaObject
 keycodes.InitializeStatic("javafx.scene.input.KeyCode")
 jo1.InitializeStatic("com.sun.glass.ui.Application")
 robot1 = jo1.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
 textarea1.RequestFocus

' you have to think how you would type the characters
 robot1.RunMethod("keyPress", Array(keycodes.GetField("SHIFT")))
 robot1.RunMethod("keyPress", Array(keycodes.GetField("BACK_QUOTE")))
 robot1.RunMethod("keyRelease", Array(keycodes.GetField("BACK_QUOTE")))
 robot1.RunMethod("keyRelease", Array(keycodes.GetField("SHIFT")))
 robot1.RunMethod("keyPress", Array(keycodes.GetField("A")))
 robot1.RunMethod("keyRelease", Array(keycodes.GetField("A")))
End Sub

ThRuST · Jan 7, 2019

@Daestrum Nice, as allways Will this also simulate CTRL+V paste on Mac? Apple key + V? do you know how to do that?

Daestrum · Jan 7, 2019

if you look here https://docs.oracle.com/javafx/2/api/javafx/scene/input/KeyCode.html
It lists all the keycode names.

It should, as it appears to just write the characters to the keyboard buffer as if you typed them.

It also has the Apple command key listed too. (COMMAND funnily enough )

ThRuST · Jan 7, 2019

Very nice Apple key is COMMAND and CTRL is CONTROL, however when I tried this it didn't work, can you confirm it plz

B4X:

Dim robot1 As JavaObject
    Dim jo1 As JavaObject
    Dim keycodes As JavaObject
    keycodes.InitializeStatic("javafx.scene.input.KeyCode")
    jo1.InitializeStatic("com.sun.glass.ui.Application")
    robot1 = jo1.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
    TextArea1.RequestFocus

    ' you have to think how you would type the characters
    robot1.RunMethod("keyPress", Array(keycodes.GetField("CONTROL")))
    robot1.RunMethod("keyPress", Array(keycodes.GetField("V")))
    robot1.RunMethod("keyRelease", Array(keycodes.GetField("CONTROL")))
    robot1.RunMethod("keyRelease", Array(keycodes.GetField("V")))

Daestrum · Jan 7, 2019

try reversing the last 2 lines
I think you need to ensure you release keys in the opposite order they are pressed
eg,
CONTROL > V > release V > release CONTROL

ThRuST · Jan 7, 2019

I wrote a little test application that you can try. You can make neccessary adjustments and post an updated version.

Here it is Should be compatible with Java 11. It did not work with SDK 9.0.4.

Daestrum · Jan 7, 2019

works for me only had to change lowercase v to uppercase v

Sounds stupid but to get lowercase v you need shift > V

ThRuST · Jan 7, 2019

Not for me, I got this

and this

Which SDK are you using? I have SDK v9.0.4

Daestrum · Jan 7, 2019

I'm on java 11

ThRuST · Jan 7, 2019

oh I see. Do you know how to make the code compatible with SDK v9.0.4? I have updated the test application with uppercase V so that should work with Java 11

ThRuST · Jan 7, 2019

oh I need to implement SHIFT as well to make it work? I taught CTRL+v was the way it was supposed to work.

Daestrum · Jan 7, 2019

Just trying it on java 8 and getting same error

B4J Question Simulate keypress+combos

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Attachments

Expert

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency