How would i get scar to read a .txt of usernames
set out like
name1, name2, name3, name4
and then type 1 name
and click a coordinate
if it isnt logged in then backspace
then type name2.... etc
until it reaches the end of the txt?
How would i get scar to read a .txt of usernames
set out like
name1, name2, name3, name4
and then type 1 name
and click a coordinate
if it isnt logged in then backspace
then type name2.... etc
until it reaches the end of the txt?
Read up (learn about) on WriteFileString and ReadFileStringThese can be found in the SCAR manual (F1 when SCAR is open and is the active window).
You may contact me with any concerns you have.
Are you a victim of harassment? Please notify me or any other staff member.
| SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |
Thankyou very much ill look into it XDD
You may contact me with any concerns you have.
Are you a victim of harassment? Please notify me or any other staff member.
| SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |
it seems you double posted because I posted the same thing as IP Drowner.
Ok i think ive figured it out but im havin problem with delete i got no idea wat to do with it can you please give me sum code or give me an example someone
Code:program Cracker; var usernames:string; procedure ReadUser; var user,mess:string; begin user := Between(' ', ',', usernames); delete(user, ) // i wanna delete the user from tha string usernames delete(mess, ) // i wanna delete the mess from tha string usernames end; begin usernames:=' leetman, fkdks, sjhajha,'; mess:=', '; repeat begin ReadUser; end; until(false) end.
You wil always get username 1 nomatter what.
You should look at explode and how to work with arrays. Also for to do loops will help you![]()
Im still stuck and ive been trying/looking for ages for the solution and i cant seem to work it out so could someone give me the code allready done
Okay, so now I've made it. Please do not just copy/paste but read through and try to figure out what I'm doing
SCAR Code:Program New;
{.include SRL/SRL.scar}
var
Names: TStringArray;
procedure WriteAndClick;
var
H, i: Integer;
begin
H := High(Names);
for i := 0 to H do
begin
TypeSend(Names[i]);
Mouse(1, 1, 5, 5, True); // Cordinates
end;
end;
begin
Names := ['Richard', 'George', 'Kim'];
SetupSRL;
WriteAndClick;
end.
Thankyou but the only problem now is i got 4000 names i wanna use it with and i cant possibly put them all into strings thats why i was trying to explode a .txt of names into an array of strings but yeh maybe i cant do this with scar... i might need to try vb or sumthin
How is your names listed?
This will give you an array with the names if they are seperated with commas:
SCAR Code:Program New;
{.include SRL/SRL.scar}
const
Path = AppPath + 'Names.txt';
var
T: Integer;
S: String;
TS: TStringArray;
begin
SetupSRL;
T := OpenFile(Path, True);
ReadFileString(T, S, FileSize(T));
TS := explode(',', S);
end.
And you can buffer it into multiple arrays if there is a max. i am not sure if there is though as I never have 4k indexes lol.
There isn't.
SCAR Code:Program TestArrayLength;
var
i: Integer;
IA: array [0..4000] of Integer;
begin
for i := 0 to 4000 do
IA[i] := Random(10);
Writeln(IntToStr(IA[4000]));
end.
Dude this will work then..it's not that hard.
Sweet i got my cracker up and running now Thankyou so much for all your help!
I'm a cracker.
Let me see your code pl0x.
Dude its not going to work just maunually logging in. You'll get the 5 minute wait thing allloooottt.
Originally Posted by irc
There are currently 1 users browsing this thread. (0 members and 1 guests)