for 3 //百位数字扫描 i=0 For 8 //单个数字扫描 rx=rightx-jici*6 //后退6个像素点 For 5 ifcolor rx,ry,colo(y),0 nob="1" Else nob="0" End If rx=rx-1 number=number&nob Next ry=ry+1 Next For 10 If number=no(i) jine=i&jine Exit For End If i=i+1 Next jici=jici+1 number="" ry=righty //循环一次结束后初始化ry坐标 Next //修改初始化值 jici=0 y=y+1 Next 'MsgBox jine Delay 100 feyjy=feyjy+1 If feyjy>120 Then //若一段时间内没有成功交易则取消交易,慎重!!! KeyPress "Esc",1 Delay 100 gosub 站街自动喊话 End If If int(jine)=jiage(1000) Then 'MsgBox "价格正确可以进行下一步交易" ifcolor 167,269,"44EEFF",0 //检查对方是否先点击了交易 MoveTo 161,426 //交易逐步点击 Delay 400 LeftClick 2 Delay 400 LeftClick 2 Delay 150 Else Goto jiancha End If Else 'MsgBox "价格不符合" gosub 输入金钱 Delay 1000 Gosub 检查并交易 End If End Sub Sub 检查交易是否提前结束 i=0 Rem star FindPic 0,0,1024,768,"Attachment:\11.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Delay 500 //2分钟内未交易完成则关闭交易框 Else gosub 站街自动喊话 Goto jiewei End If rem jiewei End Sub Sub 检查是否有交易 Rem star FindPic 0,0,1024,768,"Attachment:\11.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then gosub 检查并交易 Delay 100 Else ' Goto jiewei End If ' rem jiewei End Sub Sub 防掉线 kaiguan=0 For 2 MoveTo 33,439 Delay 600 KeyPress "w", 1 Delay 100 KeyPress "q", 1 Delay 100 MoveTo 89,202 Delay 100 LeftClick 1 Delay 1000