Simba contains several functions to manipulate the mouse and keyboard. Features range from clicking and moving the mouse to faking keypresses.
A few variables are exported for working with the Simba mouse functions.
TClickType, which defines the click type.
const
mouse_Right = 0
mouse_Left = 1
mouse_Middle = 2
TMousePress, which defines if the mouse button is to be down or up.
TMousePress = (mouse_Down, mouse_Up);
Keyboard functions often use Virtual Keys. See virtualkeys for a complete list.
Simba’s coordinate system is similar to most computer coordinate systems. Coordinate (0, 0) is the top-left part of your selected window (the desktop by default). To get to point (5, 0) we move five pixels to the right; to get to (5, 5) we move five pixels to the right, and five pixels down.
Recall that the first value is x, the second value is y: (x, y)
procedure MoveMouse(x, y: integer);
MoveMouse moves the mouse pointer to the specified x and y coordinates.
The following example will move the mouse to position (10, 10); relative to the selected client. (To get to point (10, 10) visually, recall that (0, 0) is the top left part and to get to (10, 10) we move 10 pixels to the right, and ten pixels down.)
Program MouseMove;
begin
MoveMouse(10, 10);
end.
procedure GetMousePos(var x, y: integer);
GetMousePos returns the current position of the mouse in x and y.
The following example moves the mouse 1 pixel to the right, relative to its current position:
Program MouseMoveRelative;
var x, y: integer;
begin
GetMousePos(x, y);
MoveMouse(x + 1, y);
end.
procedure HoldMouse(x, y: Integer; clickType: TClickType);
HoldMouse holds the given mouse button specified by clickType down at the specified (x, y) coordinate. If the mouse if not at the given (x, y) yet, the mouse position will be set to (x, y).
The following example holds the left mouse button and moves it one pixel to the right relative to its current position.
program HoldMouse;
var x, y: integer;
begin
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MoveMouse(x + 1, y);
end.
procedure ReleaseMouse(x, y: Integer; clickType: TClickType);
HoldMouse holds the given mouse button (clickType) down at the specified x, y coordinate. If the mouse if not at the given x, y yet, the mouse position will be set to x, y.
The following example holds the left mouse button and moves it one pixel to the right and releases it to simulate a drag and drop motion.
program HoldMouseRelative;
var x, y: integer;
begin
GetMousePos(x, y);
HoldMouse(x, y, mouse_Left);
MoveMouse(x + 1, y);
GetMousePos(x, y);
ReleaseMouse(x, y, mouse_Left);
end.
procedure ClickMouse(x, y: Integer; clickType: Integer):
ClickMouse performs a click with the given mouse button (clickType) at the specified (x, y) coordinate. This click equals an immediate click, with no wait between holding down and releasing the mouse button. To create a more human-like effect, use the HoldMouse and ReleaseMouse functions.
The following example clicks the right mouse button at a specified point.
program ClickMouse;
var x, y: integer;
begin
ClickMouse(x, y, mouse_Right);
end.
Keyboard functions are obviously used to manipulate the keyboard input. It can also be used to read states of specific keys.
procedure KeyDown(key: Word);
KeyDown sends a request to the Operating System to “fake” an event that causes the keyboard key to be “down”.
The following example holds down the “Enter” key. (Note that if you call KeyDown you must call key up afterwards to release the key.)
program KeyDown;
begin
KeyDown(13);
end.
procedure KeyUp(key: Word);
KeyDown sends a request to the Operating System to “fake” an event that causes the key to be “up”.
The following example holds down the “Enter” key and release after pausing to simulate a human action.
program KeyDownRelative;
begin
KeyDown(13);
wait(RandomRange(50, 100));
KeyUp(13);
end.
procedure PressKey(key: Word);
PressKey sends a request to the Operating System to “fake” a key event.
The following example simulates pressing the “Enter” key.
program PressKey;
begin
PressKey(13);
end.
function isKeyDown(key: Word): boolean;
Returns True if key is currently being held.
The following example says “Hello World” if the “F5” key is held down.
program PressKey;
begin
while not(isKeyDown(116)) do
Wait(50);
writeln('Hello World');
end.
procedure SendKeys(const s: string; keywait, keymodwait: integer);
Type the contents of the string s. While typing, hold the keys for keywait. SendKeys should work with any keyboard layout on Windows.
Example:
SendKeys('Hello, World', 100, 30);
Note
If your goal is to randomly wait a small time per key, you should consider something like this:
s := 'Hello, World';
for i := 0 to length(s) do
begin
SendKeys(s[i], 50+Random(51), 30+Random(30));
Wait(20+Random(30));
end;