Camaro'
11-28-2009, 07:20 PM
For some reason , everything says its working, but it types 'aa' everytime. So i go to the hc folder to see the bitmap its making, they are all just black rectangles. Nothing inside of them.
That must mean my coords are off. Im using this
const
hc_route = 'C:\Users\Aaron\Desktop\RSCLEO\SBot6.6\hc.bmp';
txt_route = 'C:\Users\Aaron\Desktop\RSCLEO\SBot6.6\slword.txt' ;
procedure getimage(); //Thanks too 'gottapercha'
var
b: Integer;
begin
b:= Bitmapfromstring(RSSX1+254,39, ''); //Create an empty bitmap with the correct width and height
alert('1');
CopyClientToBitmap(b, RSSX1+255, 230, RSSX1 + 509, 269); //Take a screenshot and copy it to b
alert('2');
sleep(400);
SaveBitmap(b, hc_route );
alert('3');
sleep(5000);
writeln('Got Image Sent to Leosleep!');
//FreeBitmap(b); //Don't forget to free your bitmap after using
alert('4');
end;
procedure gettext; // By Thick As Blood
var
s2 : string;
InFile : Integer;
begin
InFile:= OpenFile(txt_route, False);
alert('5');
writeln('Typeing Text Now');
ReadFileString(InFile, s2, FileSize(InFile));
alert('6');
s2 := GetLetters(s2);
CloseFile(InFile);
alert('7');
if s2 = 'unknown' then//antiban...
begin
Mouse(RSSX1+170, 298, 12, 3, true);
Exit;
end;
Wait(Random(1500));
TypeSend(s2);
//inc(players[currentplayer].integers[1]);
end;
begin
getimage;
gettext;
end.
That must mean my coords are off. Im using this
const
hc_route = 'C:\Users\Aaron\Desktop\RSCLEO\SBot6.6\hc.bmp';
txt_route = 'C:\Users\Aaron\Desktop\RSCLEO\SBot6.6\slword.txt' ;
procedure getimage(); //Thanks too 'gottapercha'
var
b: Integer;
begin
b:= Bitmapfromstring(RSSX1+254,39, ''); //Create an empty bitmap with the correct width and height
alert('1');
CopyClientToBitmap(b, RSSX1+255, 230, RSSX1 + 509, 269); //Take a screenshot and copy it to b
alert('2');
sleep(400);
SaveBitmap(b, hc_route );
alert('3');
sleep(5000);
writeln('Got Image Sent to Leosleep!');
//FreeBitmap(b); //Don't forget to free your bitmap after using
alert('4');
end;
procedure gettext; // By Thick As Blood
var
s2 : string;
InFile : Integer;
begin
InFile:= OpenFile(txt_route, False);
alert('5');
writeln('Typeing Text Now');
ReadFileString(InFile, s2, FileSize(InFile));
alert('6');
s2 := GetLetters(s2);
CloseFile(InFile);
alert('7');
if s2 = 'unknown' then//antiban...
begin
Mouse(RSSX1+170, 298, 12, 3, true);
Exit;
end;
Wait(Random(1500));
TypeSend(s2);
//inc(players[currentplayer].integers[1]);
end;
begin
getimage;
gettext;
end.