这句代码是什么意思啊？

bjcompass

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 这句是什么意思？
谢谢！

roych

Xor 为异或运算，表示有一个为真一个为假的时候才成立。其它请参考百度百科：http://baike.baidu.com/view/1229887.htm

jxjawlh

学习下，为了积累更多的分，脱离新手列