手水平有限,献丑了,高手勿喷,只是提供个思路
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
复制代码
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
复制代码
