按键精灵获取网络时间，然后把年月日设置成变量，把年月日带入一个算式。

Question

然后用户输入一个数值，如果和算式的结果一样，就可以使用，否则就关闭脚本
算式例如年的平方*月-日

Answer 1

Dim 小时
Dim 网络时间

网络时间 = Lib.网络.获取网络时间()

TracePrint 网络时间

小时 = mid(网络时间, 12, 2)

TracePrint 小时

年月日分秒自己类推,mid函数自己查用法就知道了

Answer 2

Y = year(NOW)
M = Month(NOW)
D = Day(NOW)
If Y ^ 2 * M - D = 24361345 Then
MessageBox "时间到"
EndScript
End If
MessageBox "正常运行"

追问

我的意思是，用户输入的是一个变量，相当与密码，这个密码随时间变化，但是只有我知道算式。我可以用算式计算现在的密码。只有密码正确才能使用脚本

追答

不就是想弄个注册码之类的嘛。这个就能实现嘛。
24361345 是我计算If Y ^ 2 * M - D 得到的。但这个每天要变。所以你可以当试用
比如在2015-06-07号前能用。你就算2015 ^ 2 * 6- 7计算就应是24361343.代码为

Y = year(NOW)
M = Month(NOW)
D = Day(NOW)
If Y ^ 2 * M - D = 24361343 Then
MessageBox "时间到"
EndScript
End If
MessageBox "正常运行"

如果你把本地日期改为7号就会提示时间到期了