komodo
2007-12-02 20:00:34
Hey..This is my first Script…It logs you out and log in ur account after.
So what you think about my first script?
program Login and loggout;
// Go to line 44 and 45 to enter ur account name and password.
var
x,y: integer;
account: string;
password: string;
procedure Logout;
begin
MoveMouseSmoothEx(38+random(3),464-random(4),20,40,45,25,20);
x:= 38;
y:= 464;
ClickMouse(x+random(3),y+random(4),true);
Wait(1000+random(200));
begin
MoveMouseSmoothEx(642+random(3),486+random(4),20,40,45,25,20);
x:= 642;
y:= 486;
wait(500+random(200));
ClickMouse(x+random(3),y+random(4),true);
Wait(1000+random(200));
begin
MoveMouseSmoothEx(636+random(3),377+random(3),20,40,45,25,20);
x:= 636;
y:= 277;
ClickMouse(x+random(3),y+random(4),true);
end;
end;
end;
procedure Login;
begin
Wait(2000+random(300));
begin
MoveMouseSmoothEx(436+random(5),293+random(5),20,40,45,25,20);
x:=436;
y:=293;
Wait(1000+random(200));
ClickMouse(x+random(4),y+random(4),true);
Wait(1000+random(300));
begin
account:= ''; // Account name
password:= ''; // Account password
SendKeys(account+chr(13));
Wait(1000+random(200));
Sendkeys(password);
begin
MoveMouseSmoothEx(297+random(5),319+random(4),20,40,45,25,20);
x:= 297;
y:= 319;
Wait(1000+random(200));
ClickMouse(x+random(3),y+random(3),true);
Wait(3000+random(200));
begin
MoveMouseSmoothEx(402+random(4),340+random(4),20,40,45,25,20);
x:= 402;
y:= 340;
Wait(500+random(200));
ClickMouse(x+random(3),y+random(4),true);
Wait(1000);
end;
end;
end;
end;
end;
begin
Logout
Login
end.So what you think about my first script?