LeftClick 1
Delay 250
KeyPress "BackSpace", 15 //金钱输入清零
Delay 50
x=1
Dim shu
cishu=len(qian)
For cishu
shu=left(qian,1) //取qian的左起第一个数字
qian=right(qian,cishu-x) //取qian的右起第I个数字
KeyPress shu,1
i=0
Delay 250
x=x+1
Next 
Else 
i=i+1
If i<30 //30秒内金钱为0则跳转喊话
Goto jiaqian
Delay 1000
Else 
KeyPress "esc",1
Delay 100
gosub 站街自动喊话
End If 
End if
Delay 100
LeftClick 1
Delay 200
gosub 检查并交易
End Sub

Sub 检查并交易 
Rem jiancha
gosub 检查交易是否提前结束
//检查己方输入的金钱
Dim no(9) //数字特征码
no(0)="0111010001100011000110001100011000101110"
no(1)="0001000011000100001000010000100001000111" //自取特征码，DNF己方金钱框专用
no(2)="0111010001100010100000100000100000111111"
no(3)="0111010001100000110010000100001000101110"
no(4)="0100001100010100101001001111100100011000"
no(5)="1111100001000010111110000100001000101110"
no(6)="0111001001000010111110001100011000101110"
no(7)="1111101001010000010000100001000010000100"
no(8)="0111010001100010111010001100011000101110"
no(9)="0111010001100011000111110100001001001110"
Dim colo(3) //颜色十六进制值 10月7日版
colo(1)="008CFF"
colo(0)="0050FF"
colo(2)="00F0FF"
MoveTo 603,439
rightx=296 //初始x坐标
righty=299 //初始Y坐标
rx=rightx
ry=righty
jici=0
jine=""
y=0

For 3 //千万位数字扫描
rightx=296-21*y 
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