按帮助在命令窗口计算注册码 Output.Show(EncryptText("用户提供的机器码","abc","abc"))
与用按钮代码计算的注册码不一样,后者注册正常
Dim Val1 As String = e.Form.Controls("TextBox1").ValueIf Val1>"" Then Dim Val2 As String = EncryptText(Val1,"aaa","aaa") '加密 e.Form.Controls("TextBox2").Value = Val2Else MessageBox.Show("请输入用户提供的机器码!", "提示")End If