Rem go
VBSCall FindPic(0,0,1024,768,"Attachment:\1.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\2.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\3.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\4.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\5.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\6.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\7.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\8.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\9.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\10.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
VBSCall FindPic(0,0,1024,768,"Attachment:\11.bmp",1,intX,intY)
If intx>0
MoveTo intx+8,inty+4
Delay 50
LeftClick 1
EndIf
Delay 500
Goto go
2011年04月20日 03点04分
7