Post
by yodrako » Wed Sep 06, 2006 7:32 pm
all code:
Let>n=0
Let>k=0
Repeat>n
Input>n,Whatt page (0-14) should be %n% ?
IF>n>14
Let>n=-1
ENDIF
Until>n>-1
Let>k=n
Repeat>k
Let>WW_TIMEOUT=5
CapsOff
MouseMove>98,434
Gosub>rc
Wait>t
Wait>1
LClick
Wait>2.5
MouseMove>938,267
wait>2
Press Page Up * 6
Wait>1.51
LClick
Let>d=0
Repeat>d
IF>nrc
Wait>0.2
Let>d=d+1
ENDIF
Until>d=n
Gosub>rc
Wait>t
Press Enter
Let>WW_TIMEOUT=5
CapsOff
MouseMove>471,376
Wait>2.45
LClick
Wait>0.11
MouseMove>1164,275
Wait>4.1
Press Page Down * 7
Wait>0.02
MouseMove>974,733
Wait>4.57
Press Shift * 10
Wait>0.49
LDown
Wait>0.02
Press Shift * 2
Wait>0.02
LUp
Press Shift * 18
Send>
Wait>1.23
MouseMove>64,37
Wait>1.1
LClick
Wait>0.14
MouseMove>113,124
Wait>1.15
LClick
Wait>0.09
MouseMove>468,784
Wait>0.5
LClick
//to excel
Let>WW_TIMEOUT=5
CapsOff
MouseMove>62,145
Wait>2.64
RClick
Wait>0.18
MouseMove>160,225
Wait>1.7
LClick
Wait>0.1
Press Down * 2
Wait>0.6
Press Enter
WaitWindowOpen>Pegado especial
MoveWindow>Pegado especial,0,60
ResizeWindow>Pegado especial,491,303
Wait>0.11
MouseMove>68,147
Wait>0.3
LClick
Wait>0.5
IF>n1
Let>WW_TIMEOUT=5
CapsOff
MouseMove>279,783
Wait>0.1
LClick
WaitWindowOpen>Microsoft Excel - Libro1
MoveWindow>Microsoft Excel - Libro1,-4,-4
ResizeWindow>Microsoft Excel - Libro1,1288,778
Wait>0.01
MouseMove>105,431
Let>k=k+1
Let>z=n
Let>n=0
Let>n=z
Let>n=n+1
Until>k=14
Message>all OK %n%
//SRT
SRT>rc
Repeat>t
Random>10,t
Until>tt=t/10
End>rc