Rem bj
KeyDown 17, 1
KeyPress 76, 1
Delay 500
KeyUp 17, 1
Delay 500
KeyPress "M", 1
Delay 500
MoveTo 916, 343
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 5000
MoveTo 494, 255
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 5000
MoveTo 766, 416
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 5000
KeyPress "M", 1
Delay 500
KeyDown 17, 1
KeyPress 76, 1
Delay 1000
KeyUp 17, 1
Delay 500

FindPic 0,0,1024,768,"Attachment:\矿石.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX , intY
Delay 500
LeftClick 1
Delay 500
LeftUp 1
    Delay 500
End If
For 100
Next
Delay 730000
KeyPress "1", 1
Delay 1000
KeyDown 17, 1
KeyPress 76, 1
Delay 500
KeyUp 17, 1
Delay 500
KeyPress "M", 1
Delay 1500
MoveTo 910, 256
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 15000
MoveTo 414, 437
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 424, 167
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 880, 511
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 424, 200
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 880, 511
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 424, 238
Delay 500
LeftClick 1
Delay 500
LeftUp 1
Delay 500
MoveTo 880, 511
Delay 500
LeftClick 1