SRL Archive - OSR Help

How to send a keys plus an increasing variable


King

2013-02-03 16:48:03

How would I get this command to send a key plus a variable?

Procedure CreateAccount;
begin
wait(RandomRange(2000,3000));
MMouse(384, 395, 5, 5);
ClickMouse2(1);
wait(randomrange(1000,2000));
Mouse(274,148,5,5,1);
SendKeys('17', 25, 2);
PressKey(13);
SendKeys('*****************+x', 25, 2);
PressKey(13);
wait(500);
SendKeys('*****************+x', 25, 2);
PressKey(13);
SendKeys('123456789', 25, 2);
PressKey(13);
SendKeys('123456789', 25, 2);
end;

I want x to increase everytime it is called, how do I use it with sendkeys?

Ex) It creates the email *********+1, where 1 = x, so how do I make it increase X everytime it completes the cycle? so next time it will be ********+2 for the email and so on?

Gucci

2013-02-03 17:00:00

Something like:

Procedure CreateAccount;
var
x: integer;
begin
wait(RandomRange(2000,3000));
MMouse(384, 395, 5, 5);
ClickMouse2(1);
wait(randomrange(1000,2000));
Mouse(274,148,5,5,1);
SendKeys('17', 25, 2);
PressKey(13);
SendKeys('*****************' + IntToStr(x), 25, 2);
Inc(x);
PressKey(13);
wait(500);
SendKeys('*****************' + InToStr(x), 25, 2);
PressKey(13);
Inc(x);
SendKeys('123456789', 25, 2);
PressKey(13);
SendKeys('123456789', 25, 2);
end;

So 'x' will go up by one after the first one and then again after the second one

i luffs yeww

2013-02-03 19:49:12

And just to add, you'll probably want to use a for loop instead, so that it will continue to up the numbers and make new accounts or whatever.

King

2013-02-03 20:07:24

From: Gucci
Something like:

Procedure CreateAccount;
var
x: integer;
begin
wait(RandomRange(2000,3000));
MMouse(384, 395, 5, 5);
ClickMouse2(1);
wait(randomrange(1000,2000));
Mouse(274,148,5,5,1);
SendKeys('17', 25, 2);
PressKey(13);
SendKeys('*****************' + IntToStr(x), 25, 2);
Inc(x);
PressKey(13);
wait(500);
SendKeys('*****************' + InToStr(x), 25, 2);
PressKey(13);
Inc(x);
SendKeys('123456789', 25, 2);
PressKey(13);
SendKeys('123456789', 25, 2);
end;

So 'x' will go up by one after the first one and then again after the second one


Thankyou! I for the life of me could not remember how to make it write an integer!

King

2013-02-03 20:10:08

From: i luffs yeww
And just to add, you'll probably want to use a for loop instead, so that it will continue to up the numbers and make new accounts or whatever.


Already had it in another area :P I just could not get it to write my integer XD Thankyou!