//加QQ，发给你图片m=130 : n=72VBSCall FindPic(0,0,1024,768,"Attachment:\慈善.bmp",0.9,intX,intY)If intx>0 x0=intx+65 : y0=inty+36Else MessageBox "图片位置不合适，请调整页面后，再按脚本启动热键" EndScript EndIf Rem aFor 7 For 5 MoveTo x0+m*i,y0+n*j Gosub c i=i+1 EndFor i=0 j=j+1EndFor MoveTo x0+m*i,y0+n*jGosub cj=0Goto aSub c Delay 500 LeftClick 1 Delay 500 Rem b VBSCall FindPic(0,0,1024,768,"Attachment:\确定.bmp",0.9,intX,intY) If intx>0 KeyPress 13,1 Delay 500 KeyDown 18,1 KeyPress 115,1 KeyUp 18,1 Delay 500 Else Delay 500 Goto b EndIf Return c
