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, "acye", "say")
If e.Form.Controls("zhucemaTextBox1").Text = EncryptText(e.Form.Controls("jiqibianmaTextBox").Text, "acye", "say") Then
msgbox(1)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyWYY","Register" & HardDiskId, e.Form.Controls("zhucemaTextBox").Value & "")
MessageBox.show("注册成功,感谢您的使用!")
Registry.SetValue("HKEY_CURRENT_USER\Software\MyWYY","用户姓名", yhxm.text )
Registry.SetValue("HKEY_CURRENT_USER\Software\MyWYY","联系电话", lxdh.text )
Registry.SetValue("HKEY_CURRENT_USER\Software\MyWYY","公司名称", gsmc.text )
Registry.SetValue("HKEY_CURRENT_USER\Software\MyWYY","公司地址", gsdz.text )
' msgbox(Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY", "用户姓名" ,""))
Dim dr1 As DataTable = DataTables("注册用户信息表")
msgbox(Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY", "用户姓名",""))
Dim dr As DataRow
If dr1.dataRows.Count=0 Then
msgbox(2)
dr = dr1.AddNew
Else
dr = dr1.DataRows(0)
End If
'
'If dr1.dataRows.Count=0 Then
'msgbox(2)
'Dim dr As DataRow = dr1.AddNew
'dr("ID") = 1
dr("用户姓名")= Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY", "用户姓名","")
dr("联系电话") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY", "联系电话" ,"")
dr("公司名称") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY", "公司名称" ,"")
dr("公司地址") = Registry.GetValue("HKEY_CURRENT_USER\Software\MyWYY","公司地址" ,"")
msgbox(4)
msgbox(dr("用户姓名"))
'End If
e.Form.Close()
Else
MessageBox.show("注册码错误,请重新输入")
Return
End If
加好友 
发短信
Post By：2019/3/14 9:32:00 [只看该作者]
此主题相关图片如下：微信截图_20190314225809.png
