I made a simple script that will right click on the internet explorer icon that is on the desktop then click open homepage.
SCAR Code:
program OpenInternet;
{.include SRL/SRL.scar}
var
x,y,ohp:integer;
procedure loadopen;
begin
ohp:=bitmapfromstring(96,10,'beNrdVUEOwCAM2v8/3R2WLGZGo'+
'Kz1YE/GGBiUdhFPXUNFQ32Qu4lqtYxQTV++2Z9ClhnkvVn1Yr6kXQ'+
'P+UDTKrvhDoVYvqT/2JYi9iAYOmEh5IArx/FFkKvnx/AERUlKXUvc'+
'nP0bXSvxJrQt7EMSZLZyvWn8Uoioh+voCG9XwB6Ol1gL+Z9FVLOIr'+
'XOeVp/R4f3hUbkgwQCM=');
end;
procedure open;
begin
if(findcolor(x,y,16374898,MSX1,MSY1,MSX2,MSY2))then
begin
writeln('Found Internet Explorer, Going To Right Click');
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
mouse(x,y,2,2,false);
end;
if(findbitmap(ohp,x,y))then
begin
writeln('Found Open Home Page, Going To Click.');
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
mouse(x, y, 1, 1,true);
end;
freebitmap(ohp)
end;
begin
loadopen;
open;
end.
Then i tried to make it so it opened it and then clicked add to favorites.
SCAR Code:
program OpenInternet;
{.include SRL/SRL.scar}
var
x,y,ohp,addf:integer;
procedure loadopen;
begin
ohp:=bitmapfromstring(96,10,'beNrdVUEOwCAM2v8/3R2WLGZGo'+
'Kz1YE/GGBiUdhFPXUNFQ32Qu4lqtYxQTV++2Z9ClhnkvVn1Yr6kXQ'+
'P+UDTKrvhDoVYvqT/2JYi9iAYOmEh5IArx/FFkKvnx/AERUlKXUvc'+
'nP0bXSvxJrQt7EMSZLZyvWn8Uoioh+voCG9XwB6Ol1gL+Z9FVLOIr'+
'XOeVp/R4f3hUbkgwQCM=');
addf:=BitmapFromString(4,2,'beNq7P5V3Ftv/j3v+X/L4dykUxH'+
'6+4P/jWf8BugAPug==');
end;
procedure open;
begin
if(findcolor(x,y,16374898,MSX1,MSY1,MSX2,MSY2))then
begin
writeln('Found Internet Explorer Color, Attempting To Right Click');
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
mouse(x,y,2,2,false);
end;
if(findbitmap(ohp,x,y))then
begin
writeln('Found Open Home Page Bitmap, Attempting To Click.');
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
mouse(x,y,1,1,true);
end;
if(findbitmap(addf,x,y))then
begin
writeln('Found Add To Favorites Bitmap, Attempting To Click.');
wait(300+random(32))
movemousesmooth(x,y)
wait(32+random(16))
mouse(x,y,1,1,true);
end;
freebitmap(ohp)
freebitmap(addf)
end;
begin
loadopen;
open;
end.
And it does the exact same thing as the first script, anyone have any idea what i can do to make it work?
I also tried adding a second bitmap on another script. Same thing.