按键精灵 绑定机器 谁帮我改下这个

Question

下面的代码 谁帮我看看哪错了 他总是提示我验证错误

Dim n
Dim 注册码
n = Plugin.GetSysInfo.GetHDDSerialNumber
MessageBox n & "，Ctrl+C复制机器码，请把这个发给作者。"
注册码 = n + 1 //这个算法必须自己改，别让人知道。
输入验证码 = InputBox("请输入验证码！")
If 输入验证码 = 注册码 Then
MessageBox "验证正确，欢迎使用."
EndScript
End If
MessageBox "验证错误，不可以使用脚本。"
我自已重写了下 好像可以了 但是不管填的对错 总是不断的循环 验证 不运行接下来的程序
这又 是怎么回事呢

Answer 1

我研究了半天才搞明白，你分给的太少了,呵呵
机器码的返回值是字符串型，和 InputBox输入的数字不是一个函数类型，所以它们两个没的比，你直接写成：
If 输入验证码 = "验证码" Then
其中验证码是你计算得出的那组数字，不是变量，要加双引号。

追问

加上双引号不就成了文字了吗 汉

谁能解决可以加分的

追答

是数字,字符串。。。。不是文字，不是变量名
比如验证码是12345
那么你要写成
If 输入验证码 = "12345" Then

追问

可我是 想 用机器码+1=注册码 ......

追答

输入验证码 = Cstr(注册码)
Cstr
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 CStr 强制将结果表示为 String。
转换函数类型进行比对