bustingbuster
2012-06-18 22:25:25
I need a mouse recorder which can use smart. Please if anybody can help me.
2012-06-18 22:25:25
2012-06-18 22:30:40
2012-06-18 22:32:19
MMouse();
ClickMouse2();
Mouse(); //combination of the above 2It takes literally <1hr to learn these 3 procedures (although if u want ur script to work for days i suggest u learn more) if u are willing to look into the scripting tutorial. So why bother with mouse recorder at all? 2012-06-18 22:32:22
2012-06-18 22:33:24
2012-06-18 22:35:00
2012-06-18 22:36:18
2012-06-18 22:36:54
From: bustingbuster
yeah i know ghost mouse. The version now does not support loop and I asked a mouse recorder which uses smart. If anything wont use smart then can you please say which have infinite loop. Anyway thanks.
2012-06-18 22:39:46
2012-06-18 22:45:19
2012-06-18 23:03:29
2012-06-18 23:11:26
program SimpleMouse;
{$i SRL/SRL/Misc/SMART.simba}
{$i SRL/SRL.simba}
var
Points: T2DIntegerArray;
hPoints, AfterClick, Loop, t, i: Integer;
const
TimeToRun = 360;
LoopsToRun = 100;
procedure DeclareVars;
begin
Points[0] := [150, 100, mouse_left];
Points[1] := [75, 50, mouse_right];
Points[2] := [75, 250, mouse_left];
// Points[3] := ...
hPoints := High(Points);
AfterClick := 1000;
end;
procedure UseMouse(x, y, Click: Integer);
begin
Mouse(x, y, 1, 1, Click);
end;
begin
Smart_Server := 21;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclareVars;
Loop := 0;
MarkTime(t);
repeat
for i := 0 to hPoints do
begin
UseMouse(Points[i][0], Points[i][1], Points[i][2]);
Wait(AfterClick + Random(Round(AfterClick / 2)));
end;
Inc(Loop);
until(TimeFromMark(t) > (TimeToRun * 60 * 1000)) or (Loop > LoopsToRun)
end.
2012-06-18 23:18:12
2012-06-19 10:15:51