blackfire553
06-01-2011, 04:16 AM
i see this:
program TestSMARTLogin;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers***40;HowManyPlayers***41;;
CurrentPlayer := 0;
Players[0].Name := ''; //Youe Rs username
Players[0].Pass := ''; //Your RS password
Players[0].Nick := ''; //3-4 letters from name
Players[0].Active:= True;
end;
begin
SMARTSetupEx***40;2, False, True, False***41;;
Wait***40;5000***41;;
SetTargetDC***40;SmartGetDC***41;;
repeat
wait***40;100***41;;
until***40;SmartGetColor***40;253, 233***41;<>1118604***41;;
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Wait***40;2000 + Random***40;1000***41;***41;;
MMouse***40;388, 281, 3, 3***41;;
Wait***40;2000 + Random***40;1000***41;***41;;
MMouse***40;4, 100, 3, 3***41;;
Wait***40;3000 + Random***40;1000***41;***41;;
LogOut;
TerminateScript;
end.
its the same with google chrome and internet exploder
program TestSMARTLogin;
{.Include SRL\SRL\Misc\SMART.SCAR}
{.Include SRL\SRL.SCAR}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers***40;HowManyPlayers***41;;
CurrentPlayer := 0;
Players[0].Name := ''; //Youe Rs username
Players[0].Pass := ''; //Your RS password
Players[0].Nick := ''; //3-4 letters from name
Players[0].Active:= True;
end;
begin
SMARTSetupEx***40;2, False, True, False***41;;
Wait***40;5000***41;;
SetTargetDC***40;SmartGetDC***41;;
repeat
wait***40;100***41;;
until***40;SmartGetColor***40;253, 233***41;<>1118604***41;;
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Wait***40;2000 + Random***40;1000***41;***41;;
MMouse***40;388, 281, 3, 3***41;;
Wait***40;2000 + Random***40;1000***41;***41;;
MMouse***40;4, 100, 3, 3***41;;
Wait***40;3000 + Random***40;1000***41;***41;;
LogOut;
TerminateScript;
end.
its the same with google chrome and internet exploder