标题: 这句代码是什么意思啊？ [打印本页] 作者: bjcompass 时间: 2011-6-10 08:31 标题: 这句代码是什么意思啊？ Dim a As Long
Dim b As Long
b = GetSetting("MyApp", "set", "times", 51345)
a = b Xor 51345
If a < 50 Then
Me.信息 = Chr(10) & " 提示：你还未注册。注册前，您还有" & 50 - a & "次可以试用！" & vbCrLf & _
" 未注册用户的密码为:123456 "
a = a + 1
b = a Xor 51345
SaveSetting "MyApp", "set", "times", b
Me.试用.Enabled = True '可以继续试用
Else
Me.信息 = Chr(10) & Chr(13) & Chr(10) & " 你的试用次数已到。如需继续使用，请注册！"
Me.试用.Enabled = False
我知道这是存取注册表数据而且找到了注册表位置，我想请教：51345这个数是做什么用的，换其他的数行吗？
还有 a = b Xor 51345 这句是什么意思？
谢谢！