which do you want.. the first one that he gave you or the second one he gave you?
nevermind...
first:
SCAR Code:
program NEW;
{.include SRL/SRL.scar}
const
FilePath = 'C:\screenie.bmp';
begin
MoveMouseSmooth(479, 294);
clickmouse(472, 294, True)
wait(1000);
SendKeys('username');
wait(1000);
movemousesmooth(348, 279);
clickmouse(386, 270,true);
wait(1000)
sendkeys('password');
wait(1000);
clickmouse(292, 331,true);
wait(5000);
clickmouse(292, 331,true);
ActivateClient;
Wait(1000 + Random(500));
MakeCompass('N');
KeyDown(VK_Right);
Wait(450);
KeyUp(VK_Right);
Wait(100);
SaveScreenshot(filepath);
end.
Second:
SCAR Code:
program NEW;
{.include SRL/SRL.scar}
const
FilePath = 'C:\screenie.bmp';
var
TheBitmap, xsize, ysize: integer;
begin
MoveMouseSmooth(479, 294);
clickmouse(472, 294, True)
wait(1000);
SendKeys('username');
wait(1000);
movemousesmooth(348, 279);
clickmouse(386, 270,true);
wait(1000)
sendkeys('password');
wait(1000);
clickmouse(292, 331,true);
wait(5000);
clickmouse(292, 331,true);
ActivateClient;
Wait(1000 + Random(500));
MakeCompass('N');
KeyDown(VK_Right);
Wait(450);
KeyUp(VK_Right);
Wait(100);
GetClientDimensions(xsize, ysize); //Get the client window size
TheBitmap := BitmapFromString(xsize, ysize, ''); //Create a bitmap the same size as the bitmap
CopyCanvas(GetClientCanvas, GetBitmapCanvas(TheBitmap), 1, 1, xsize, ysize, 1, 1, xsize, ysize); //Copy the client's picture to the bitmap we just create
SaveBitmap(TheBitmap, FilePath); //Save the bitmap
end.