Dim x, y, y1
x = 240
y = 176
Rem d
Delay 1000
y1=y+18
MoveTo 130, 37
Delay 1000
RightClick 1
Delay 1000
MoveTo 240, y1
Delay 1000
MoveTo 340, y1
Delay 1000
LeftClick 1
For 9
Delay 6000
Next
Dim l
Rem f
Delay 4000
FindPic 400,500,610,570,"Attachment:\2.bmp",0.9,intX2,intY2
If intX2 > 0 And intY2 > 0 Then
Goto f
Else
End If
Delay 2000
FindPic 750,150,1023,265,"Attachment:\1.bmp",0.8,intX3,intY3
If intX3 > 0 And intY3 > 0 Then
l = l + 1
GetCursorPos x, y
Goto d
Else
End If
Delay 2000
moveto 880,270
Delay 1000
RightClick 1
Delay 1000
MoveTo 930, 280
Delay 1000
LeftClick 1