Sub Process_Globals
Private robot As JavaObject
End Sub
Sub AppStart (Form1 As Form, Args() As String)
Form1.Show
Dim jo As JavaObject
jo.InitializeStatic("com.sun.glass.ui.Application")
robot = jo.RunMethodJO("GetApplication",Null).RunMethodJO("createRobot",Null)
MouseMove(2, 2)
End Sub
Sub MouseMove(x As Int, y As Int)
robot.RunMethod("mouseMove", Array As Object(x, y))
robot.RunMethod("mousePress", Array As Object(1)) 'left button
'Sleep(50)
robot.RunMethod("mouseRelease", Array As Object(1)) 'left button
End Sub
Sub Sleep(ms As Long)
Dim jo As JavaObject
jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array As Object(ms))
End Sub