- 按键精灵会员
- 8414854
- 16
- 0
- 14 朵
- 19 个
- 11 个
- 0
- 2021-08-11
|
1#
t
T
发表于 2021-11-12 08:12
|
|只看楼主
手水平有限,献丑了,高手勿喷,只是提供个思路PC,生成小精灵想设置个可以变密码,利用本机时间和密码验证见图附源码是输密码后判断输入密码第三位和第四位数与当前时间的分钟数是否一致来判断Event Form1.button1.Click //设置密码取分钟验证
- Dim TTT
- TTT = Time
- TracePrint TTT
- Time
- Dim BBB,AAA
- AAA=form1.InputBox1.Text
- TracePrint AAA
- BBB = mid(TTT, 4, 2)
- CCC = mid(AAA ,3,2)
- TracePrint BBB
- TracePrint CCC
- If BBB - CCC ="0" Then
- MessageBox"密码正确"
- Else
- MessageBox"密码错误"
- EndScript
- End If
- End Event
复制代码
|