//===========================验证码封装===========================
//———-验证
Function 验证验证码 Dim 设备imsi号,机器码 设备imsi号 = CInt(UTF8.right(DEVICE.GetImsi(), 5) * 25) 机器码= DEVICE.GetImsi() TracePrint 设备imsi号 If 验证码 = 设备imsi号 Then For miao = 4 to 1 step -1 ShowMessage "验证成功" & miao & "秒" Delay 1000 Next TracePrint "验证成功" Else For miao = 6 to 1 step -1 ShowMessage "验证失败" & miao & "秒" Delay 1000 Next UI.NewLayout ("获取机器码") UI.AddEditText "获取机器码", "机器码", 机器码 UI.AddTextView "获取机器码", "文字控", "单击继续按钮可复制机器码" UI.Show ("获取机器码") sys.SetClipText 机器码 Delay 7000 EndScript End If End Function
//Dim 验证码 = CInt(ReadUIConfig("验证码"))//验证码 If 验证码 = 验证验证码() Then TracePrint "失败" Else Call 主程序() End If