y=y+1
Next
y=uy
ux=ux+6

a(0)="100011000110001"
a(1)="010000100001000"
a(2)="100010001000100"
a(3)="000010011000001"
a(4)="010100101010010"
a(5)="100001111000001"
a(6)="100001111010001"
a(7)="000100010000100"
a(8)="100010111010001"
a(9)="100011000101111"
If code=a(0) Then
num="0"
End If
If code=a(1) Then
num="1"
End If
If code=a(2) Then
num="2"
End If
If code=a(3) Then
num="3"
End If
If code=a(4) Then
num="4"
End If
If code=a(5) Then
num="5"
End If
If code=a(6) Then
num="6"
End If
If code=a(7) Then
num="7"
End If
If code=a(8) Then
num="8"
End If
If code=a(9) Then
num="9"
End If


group=group&num
Next
group=CDbl(group)
End Sub


Rem 输入
For 12
Delay 10
KeyPress "BackSpace", 1
Delay 10
KeyPress "BackSpace", 1
Next
Dim b
// 密码

// 计算密码长度
PSW_Len=Len(PSW)
ReDim b(PSW_Len)
z=0
Delay 200
For PSW_Len
    b(z) = Mid(PSW,1+z,1)
    If Asc(a(z))>=97 and Asc(b(z))<=122
        // 英文大写
        KeyPress Asc(a(z))-32,1
    ElseIf Asc(b(z))>=65 and Asc(b(z))<=90
        // 英文小写
        KeyDown 16,1
        KeyPress Asc(b(z)),1
        KeyUp 16,1
    ElseIf Asc(b(z))>=48 and Asc(b(z))<=57
        // 数字
        KeyPress Asc(b(z)),1
    
    End If
    Delay 50
z = z + 1
Next
Delay 100
LeftDoubleClick 1
If s=1 Then
Call 数量识别()
If group=sjsl Then
s=2
Goto 拍卖一
Else
Delay 50
MoveTo 200, 339
Delay 100
LeftDoubleClick 1
Goto 测试
End If