About MoveMouseSmoothEx

[fabis94]

here is an example:

MoveMouseSmoothEx(405,327,1,3,45,20,10);

how to make mouse to go where it needs to go but in humans speed!
all i need to edit :


MoveMouseSmoothEx(405,327,1,3,45,20,10);

maybe you know how to change them!
all i need is that mouse will go in human speed!

[Pentti]

include SRL into your script {.include srl/srl.scar}
And use SRL's function Mouse.
And you can change mousespeed with function Mouse by adding
MouseSpeed:=15 into your script, you can change the value of 15. Lower number=faster, Higher number=slower.

program New;
{.include srl/srl.scar}
begin
MouseSpeed:=15 //Speed
BenMouse:=False; //Change to True, and see what happens. :D
MMouse(random(600),random(400),6,6)
//Mouse(random(600),random(400),6,6,True)
end.

[fabis94]

oh...tnx

[JAD]

If you want to learn that stuff, look in the SRL manual :) if you don't under stand what it says about it in the manual, go to my tutorial "things the beginner tuts don't teach you" links in sig. that teaches clicking the mouse, and moving the mouse undetectably :D

[fabis94]

help with another thing...
DONT STEAL THIS TOO :D

program login;

{.include srl/srl.scar}

{
/////////////////////////////////
///Simple Auto Login by Fabis!///
/// v1.0 ///
/////////////////////////////////


1.Type in your Username and Password !
2.Specify RS window (with that crossfire)!
3.Start the script!

}

//////////////////////////Setup/////////////////////////////////////////
const
Username='destructo14'; //Put your username here!
Password='kaboom'; //Put your password here!

///////////////////////////Dont touch this!/////////////////////////////

var
invaliduserpass_debug: Integer;
x,y: Integer;


procedure LoadBmps;
begin
invaliduserpass_debug := BitmapFromString(227, 36, 'z78DAED' +
'9DDD729C3A10845F6963581C5F3AFE79FF473AA796BD186AE 8A64' +
'7120949755FA852581692B03E5A83A4DC6E96655996655996 6559' +
'96655996655996655996655996655996655996655996F527F 53AB' +
'F2EAFDFCBDBF2FE3A2F3F9669F9BABFDF3F9625A7EB4F518A 7EEB' +
'99BEDCE7FBD79ACE1FF3D7FD2DA7310FCF39FF9CDFEFD3FC6 39EE' +
'6CF359D3EA7EFF92DA66B9EF5EE6B1B372D7DA4A886FD296A D141' +
'1BD776AD69BEA2FF14A5A1C7783ABD4FBFE6E9992ED3CFE97 B93A' +
'ED7539F3FD3FC5BB134FEBBEBB3CBF58925C7F25FA669FAB5 49D1' +
'759453A8CF4EBB78992815EAA03F23D833E8D9A5BBBF7CBC7 C4EF' +
'34E4D94B49A5FAF5BBCA23FCD477A05A216A8584D759250FE ECD0' +
'03FC5D3DAFAC2C7DFCEE4A4EF8D690197E1E5195FB6E7AA0C A527' +
'D542286F011C44774DBD8E43589A93CD60EE8979856A803A7 68E6' +
'03EDC90114453554FAE46CA2EABD849E14782FACE915881AC 7F5F' +
'7FFBADD72DAC6CC51DE0FF9D258C348D18DA30E8E14B17453 0E72' +
'C5325DDB08BC534EE66795AB557EEA690F3FB94B41CCE1E3B 7E86' +
'436F911C9B9AFD68941E98D182ECD1DF4379AE29691731EFB 1C65' +
'C6C65189EA19597A1DA26E08F0A04D6CCB86BD55A28E65292 56AF' +
'6DBD075A7F27339998A9287D4FDB6CEE7EABC9E7A78251D45 DD82' +
'07D6E77D88B4FA4C9C13B51A01E86069E3DC61ECBCA01A1B6 9739' +
'E4D75CBA3F25F22EA0E9DB82F1D445D48D4C7BF77EA29CCEB 33D9' +
'7239E7C54E1B7D6F91A270EC7744EA60BC9A5E3F28A7678C8 F4A7' +
'52FCAEB8C589A3DB6F014203F791FF6C730F568B35E7E530D FF62' +
'A28659649E05EFB85365A67FDE7C3FD416117513AFE8206A4 F1C5' +
'56A91F26D4E99E3CB8E749313BCA7AABCDD896357C95C8D8B 5609' +
'A9E7AFB2A267BE5CFD12578D3FF0B60BF149185F1D1BF9194 4D4E' +
'B7C995248C5A3AC310289E2937ADC12969FBE74432FFDB80B 8A15' +
'F3B644DF8E88A7B44BBFA3D23A9833453F36D1A7305A0B770 7719' +
'59DFC8903FC2ECFDF05DC80AD28BA53580E1DB33C27224FA1 04E5' +
'8E8954BC27CBF941CD33A978FFC3F29327AFF6301F957FCBB 7FE3' +
'89A9047CDB3ECF853853091544AF951E80B14F2D23AD972F9 88A8' +
'BC84EA75FE2CA47E084442CF25BE319567C763D4D5FCFC0A6 229B' +
'AD781C3049137785FA1DFB873EBB917CC4F1D1A52393FA87F 747D' +
'E8A7522B287B777A183C3B4ED4EC4ED772AEF6AD5F272AEAC F1C2' +
'5E0EF9DEC93F97B1691F3E03A259BF2658AC7993951B947CD 33FA' +
'9DFA006AF1D1C463CEB0EDB2E7E47593C6089DDFED5C97DD6 9CCB' +
'F739D524EF142853A0B3E1C71E3C00DEA9E59A8FFFAEF2A51 ABD7' +
'E373D7DF8388A8392E71CDF5A8FDDE52276ADBA8CFF1D236A FD8F' +
'665AA8DA8391681E6DDCAB8E3C4C8715A9D846D041E4554DD D5E4' +
'F9783F51F5F55785B783ECC3511D0EDC60537E253ED34554D AF39' +
'CA89CEA3C767D098F1ABE22418FD44154EE0FF9173174DF75 C5FE' +
'F589BAB31F8A538ED26CE72D0F466BBEAF7EAFAA4F46F9A5E 80A8' +
'D30A0F6A2B97F3FE5F47D3A054A577D78933746DFBE95FBA2 6774' +
'8647D5574995DF7797212A1A77D941E92342216A268CF205A 7C7A' +
'3EAE5A315A768152B7C5F143DA7EE543949FA89AAD7BC9FA8 4A84' +
'A1ED1B319FD71F8C7779B5E4C1BDC21A863637586D8BE4F34 35FA' +
'1D2502444B90BE439D8A7DCD633D7F4A879350E67EF4EA4EE 916E' +
'2209605D28BF6FA496EEAB514C98C78AA5B70C4F795FA5F78 5FE5' +
'E8B5FD2F5751AB9BDBCB6E889EB7F0F4A390757D26A8183AF 2AF2' +
'AA215842F29FB07CBAAABFE0ABE91DD197A36A4E6535265A2 5CBA' +
'30DD5AFEA7C8D28DFD97150FF4060347FB91C519B76D93F77 D03F' +
'F819CF2479EEA60F2B9A9475FB3DFBE8DBD6D8F7ACC63F38E 7A49' +
'AF275FB891BCF9FF27366D0292B7465EC41AD7AD2EEFD05D2 092A' +
'68C5A9B28254E0EA81BF55F602B4EDE5A411894C333D329C7 FB7A' +
'784C28901CA292EFC3486F476B8265175B2C51DF43B2CE567 9228' +
'A32C5317ED7317F68756772D3572A69FB18942077BA010ED9 51AF' +
'69C1E3068876C75BF4081ABFACE2C85AB88A8E8C49536A2F2 FA17' +
'CF31887442E4EC61E9B07DACDD84BF501C95B3A57A9A5FDB2 976D' +
'5DD3A0AD39A88DAE5D9740A71AF98F24B7B4BABE59FC1CCEA 6E59' +
'790F91742A9472A60A3F474ED8810589CA5D74B56ECABEA76 2FA9' +
'B888A9CB6FC8E68ABE135D7A3E6B39B76CE1705FEB3D1019E 3167' +
'2CD275B03B1D4B2AEEC732517BE20C275354694B61E77BFFD 959C' +
'AAE52B00660279A979F85BE07BFE75D3088A28D44D54F856D 3AC1' +
'554F2FB47A6AA568E2A7CED2B6BDF0521C128CD0C2A9C53A5 BDAE' +
'29FE7F14AE04981A5BFDF8B0AD1E0AE9DEFFA7959634F6452 66B5' +
'FAF9D528965B65EC202E4944551C751B873B5CF78556F8039 6EAA' +
'739F59F9D3220BA58256A756E2EB8DC3FF035479FBF57FFA7 8013' +
'E2A5E51335E909819283D5CF146DF3ABCA394B3D67CC82BFF 09E7' +
'3FB0B2C6D3BA9AF7ACAA27E1E35E5EACDB22CCBB22CCBB22C CBB2' +
'2CCBB22CCBB22CCBB22CCBB22CCBB22CCBB22CCBB22CCBB2A C7F4' +
'2FF016B54C5DF');
end;

procedure cancellogin;
begin
if(FindBitmapIn(invaliduserpass_debug,x,y,0,0,100, 100)) then
begin
MoveMouseSmoothEx(458,316,20,40,45,25,20);
Wait(1000+random(100));
ClickMouse(458,316,true);
Wait(1000+random(100));
end;



procedure loggingin;
begin
Wait(3000)
MMouse(454,288,0,0);
Mouse(454,288,0,0,true);
Wait(100);
MMouse(329,257,0,0);
Mouse(329,257,0,0,true);
Wait(100);
SendKeys(Username);
Wait(1000);
MMouse(317,275,0,0);
Mouse(317,275,0,0,true);
SendKeys(Password)
Wait(500)
MMouse(300,322,0,0);
Mouse(300,322,0,0,true);
end;

procedure presshere;
begin
Wait(5000)
MMouse(405,327,0,0);
Mouse(405,327,0,0,true);
end;

begin
SetupSRL;
loggingin;
presshere;

end.


it says this error:
Line 7: [Error] (17668:1): Duplicate identifier 'x' in script

help please?

P.S This will be my new script thats why...DONT STEAL IT :D

[JAD]

you don't need to declare x,y as variables, or you will get an error. in SRL, they are already included when you use the SRL include.

[fabis94]

i dont understand...:D
maybe put the fixed version and ill see what did i do wrong :D


P.S PLease

[JAD]

so instead of this part of the script:

var
invaliduserpass_debug: Integer;
x,y: Integer;

it should be like this:

var
invaliduserpass_debug: Integer;

see? I took out the x,y as variables, because you don't need them. SRL includes them when you use the SRL include in your script.

[Jason2gs]

Yes, x and y are already declared. Quite useful :D

May I ask why you need an autologin? SRL already has one ;)

Oh, and sendkeys is very detectable.

[JAD]

Its his first script, and he's trying to learn to script is why he made one :p Why do people make auto talkers when there are already so many people to make them? because they are easy and you can get the hang of scripting better :p and as jason said, send keys is detectable. so if you want to make this undetectable using undetectable typing, I'd suggest reading my tut :D (as I said before :p)