Saltyspoons
04-18-2012, 11:18 PM
Hello.
After reading Coh3n's guide for beginners, here is what I have come up with.
EDIT: You type in your message, and desired hotkey.
Run the script, and press the hotkey whenever you want the message to be printed.
I like this better than using repeating intervals, because you have complete control over when the messaged is printed
and choose your own interval.
program SaltyTyper; //All credit goes to Coh3n @ Villavu
Const
////////////// USER SETTINGS /////////////////
MESSAGE = ('Your message here.');
HOTKEY = ('F4'); // Use a hotkey to print your message.
// Change this to any F key (1-9)
// Want the bot to type the message, but not send it? Comment out line 60.
////////////// USER SETTINGS /////////////////
var
Key: Integer;
procedure WhatKey;
begin
case (HotKey) of
'F1':
Key:= 112;
'F2':
Key := 113; //I do not recommend using F2. This is the default key for "stop" in Simba.')
'F3':
Key := 114;
'F4':
Key := 115;
'F5':
Key := 116;
'F6':
Key := 117;
'F7':
Key := 118;
'F8':
Key := 119;
'F9':
Key := 120;
end;
end;
procedure AutoType;
begin
repeat
WhatKey;
If IsKeyDown(Key) = true then
begin
Sendkeys(Message, 50);
PressKey(13);
end;
until(false);
end;
begin
AutoType;
end.
After reading Coh3n's guide for beginners, here is what I have come up with.
EDIT: You type in your message, and desired hotkey.
Run the script, and press the hotkey whenever you want the message to be printed.
I like this better than using repeating intervals, because you have complete control over when the messaged is printed
and choose your own interval.
program SaltyTyper; //All credit goes to Coh3n @ Villavu
Const
////////////// USER SETTINGS /////////////////
MESSAGE = ('Your message here.');
HOTKEY = ('F4'); // Use a hotkey to print your message.
// Change this to any F key (1-9)
// Want the bot to type the message, but not send it? Comment out line 60.
////////////// USER SETTINGS /////////////////
var
Key: Integer;
procedure WhatKey;
begin
case (HotKey) of
'F1':
Key:= 112;
'F2':
Key := 113; //I do not recommend using F2. This is the default key for "stop" in Simba.')
'F3':
Key := 114;
'F4':
Key := 115;
'F5':
Key := 116;
'F6':
Key := 117;
'F7':
Key := 118;
'F8':
Key := 119;
'F9':
Key := 120;
end;
end;
procedure AutoType;
begin
repeat
WhatKey;
If IsKeyDown(Key) = true then
begin
Sendkeys(Message, 50);
PressKey(13);
end;
until(false);
end;
begin
AutoType;
end.