SaveConfigValue("Register" & ComputerId, e.Form.Controls("注册码").Value)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
MessageBox.Show("激活成功!", "提示")
e.Form.Close()
Else
MessageBox.Show("注册码不正确!", "提示")
e.Form.Controls("注册码").Value = ""
End If

Dim jqm As String = e.Form.Controls("机器码").Value + e.Form.Controls("机器码1").Value + e.Form.Controls("机器码2").Value + e.Form.Controls("机器码3").Value + e.Form.Controls("机器码4").Value + e.Form.Controls("机器码5").Value
Dim 注册码
For Each s As String In EnCoding.Ascii.GetBytes(EncryptText(jqm, "abc", "defg"))
注册码 = 注册码 & s
Next

注册码 = 注册码.SubString(0,24)

Dim str As String = e.Form.Controls("注册码").Value + e.Form.Controls("注册码1").Value + e.Form.Controls("注册码2").Value + e.Form.Controls("注册码3").Value + e.Form.Controls("注册码4").Value + e.Form.Controls("注册码5").Value
If str = 注册码 Then
msgbox("恭喜您,注册成功!")
Else
msgbox("注册码错误,请重新填写注册码,或联系客服 *∩_∩*")
End If