Code:
//First program
program Afirstidea;
{.include SRL/SRL.scar}
var
Username,Password: String;
BitUsername,BitPassword,a: Integer;
//--------------------------------------
procedure Setup;//Sets up the Integers
begin
Username:= '';
Password:= '';
a:= 0
end;
//--------------------------------------
procedure Bitmapsetup;//Creates codes for Bitmaps
begin
BitUsername := BitmapFromString(59, 13, 'beNrtlUEKACAMw/z/p' +
'+dtyHCxInhqTwpRMiw4hvMtEZGLXFvYwkU4lqzkltGPFOxIXgkDtn' +
'2R3AJZGADeK6EIw7C6sFIJmE7RgIluhfUacz+htDxaubkT7hz86Th' +
'tJvegcpw=');
BitPassword := BitmapFromString(53, 8, 'beNpjYPgPAwyDAGA6A+' +
'62weBC/M4bcBficR5+ZUQaDteIxiZoKa4YxOU8zDRJUISg83A5mCS' +
'PEFSPP3lgem3AnYdfI0FD8Fg3qAEA343jHQ==');
end;
//--------------------------------------
procedure Login;//Moving the Mouse
var x,y: Integer;
begin
FindRS
Mouse( -6,130,0,0,true)
wait(300)
Mouse( 464,294,0,0,true)
wait(300)
FindBitmap(BitUsername,x,y)
Mouse(x,y,0,0,true)
wait(100)
SendKeysWait(Username,90,20)
wait(1000)
Mouse( 362,276,0,0,true)
wait(1000)
SendKeysWait(Password,90,20)
end;
//--------------------------------------
procedure debug;
var x,y,px,py:integer;
begin if (FindBitmap(BitUsername,x,y) and FindBitmap(BitPassword,px,py)) then;
Mouse( -6,130,0,0,true)
wait(300)
writeln('Found Bitmap')
writeln(IntToStr(x)+'x')
writeln(IntToStr(y)+'y')
writeln(IntToStr(px)+'px')
writeln(IntToStr(py)+'py')
Mouse(x,y,0,0,true)
wait(500)
Mouse(px,py,0,0,true)
a:= 1
end;
//--------------------------------------
begin//Makes the Procedures do their job
SetupSRL
Bitmapsetup
Setup
debug
if (a = 0) then
Login
end.
And here is my debuging information I obtained.