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