vb点虐 怎么写注册代码

Private Sub 提交_Click()

创新互联公司提供成都做网站、网站制作、网页设计，品牌网站设计，1元广告等致力于企业网站建设与公司网站制作，十载的网站开发和建站经验,助力企业信息化建设，成功案例突破近千家,是您实现网站建设的好选择.

Dim stemp As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

stemp = "select * from user"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Me!密码 确认密码 Then

MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "Error"

Exit Sub

Else

stemp = "insert into user"

stemp = stemp "(用户名，密码，身份证号)"

stemp = stemp " values('" Me!用户名 "','" Me!密码 "','" Me!身份证号 "')"

DoCmd.RunSQL stemp1

Set rs = Nothing

End If

MsgBox "The information of register have saved already!", vbExclamation, "information"

End Sub

如何用VB.NET注册软件没有自带的控件

你可以在工具箱的选项里面去添加呀

也可以在代码里面定义控件呀

VB点虐 注册表操作问题

微软在net里内置了一一些提供注册表操作的类，因此我们可以很轻松的操作注册表

导入名词称空间 imports Microsoft.Win32

Dim reg As RegistryKey

Dim regStr As String

reg = Registry.LocalMachine

reg = reg.OpenSubKey("SYSTEM\CurrentControlSet\Enum\USB", True)

regStr = reg.GetValue("VID_08E2PID_0006")

if regstr.tostring ""then …复制文件