主题：关于软件注册问题

1、注册表里面有对应数据了没有？

2、msgbox(Registry.GetValue("HKEY_CURRENT_USER\Software\MyAPP", "姓名" ,"")) 能否弹出正确的值？

贴出你写的完整的注册的代码

改成

Dim yhxm As WinForm.TextBox = e.Form.Controls("yonghuxingmingTextBox")
Dim lxdh As WinForm.TextBox = e.Form.Controls("lianxidianhuaTextBox")
Dim gsmc As WinForm.TextBox = e.Form.Controls("gongsimingchengTextBox")
Dim gsdz As WinForm.TextBox = e.Form.Controls("gongsidizhiTextBox")

e.Form.Controls("zhucemaTextBox").text= EncryptText(e.Form.Controls("jiqibianmaTextBox").Text, "acqe", "cae")
If e.Form.Controls("zhucemaTextBox1").Text = EncryptText(e.Form.Controls("jiqibianmaTextBox").Text, "acqe", "cae") Then
    msgbox(1)
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyTYUPP","Register" & HardDiskId, e.Form.Controls("zhucemaTextBox").Value & "")
    MessageBox.show("注册成功,感谢您的使用!")
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyTYUPP","用户姓名", yhxm.text )
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyTYUPP","联系电话", lxdh.text  )
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyTYUPP","公司名称", gsmc.text  )
    Registry.SetValue("HKEY_CURRENT_USER\Software\MyTYUPP","公司地址", gsdz.text )
    msgbox(Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "用户姓名" ,""))
   
    Dim dr1 As DataTable = DataTables("注册用户信息表")
    If dr1.dataRows.Count=0 Then
        msgbox(2)
        Dim dr As DataRow = dr1.AddNew
        dr("ID") = 1
        dr("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "用户姓名","")
        dr("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "联系电话" ,"")
        dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP", "公司名称" ,"")
        dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyTYUPP","公司地址" ,"")
    End If
   
    e.Form.Close()
Else
    MessageBox.show("注册码错误,请重新输入")
    Return
End If