vb.net注册 vbnet注册码应用

VB.net注册表操作问题

最简单的办法就是用shell

创新互联专注于海城网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供海城营销型网站建设，海城网站制作、海城网页设计、海城网站官网定制、微信小程序服务，打造海城网络公司原创品牌,更为您提供海城网站排名全网营销落地服务。

语句

添加和创建注册表项

shell

"cmd

/c

reg

add

hklm\software\myco

/v

data

/t

reg_binary

/d

fe340ead"

删除注册表项

shell

"cmd

/c

reg

delete

hklm\software\myco\myapp\timeout"

删除注册表项

timeout

及其所有子项和值

具体语法请在cmd中输入

reg/?

VB.NET activex 控件注册问题

在VBA中，在调用控件前写入shell +注册控件语句。

如果我理解正确的话，有下列方法

方法一：在VBA模块中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx")   自己改一下变量。本人较早前用过的方法。

方法二：将所有注册组件写进.bat批处理文件中，并加入开机自动运行，或用shell去运行.bat

方法三：微软官方support

最后一段简单翻译一下：RegComCtl32和UnRegComCtl32是用户自定义名称；例中组件是默认在windows/system路径下，如果不在该路径下，请自己添加；DllRegisterServer注意字母大小写。

vb.net 注册问题

改为：

sql = "insert into 表1 values(用户名='" TextBox1.Text "' ,密码='" TextBox2.Text "')"

VB.NET 注册代码

写两个函数，一个检测是否有重复用户，第二个插入

检测属用户是否存在

private function checkUser(byval uname as string) as boolean

dim sql as string = "select * from [user] where username=" uname

dim cmd as sqlcommand = new sqlcommand(sql,conn)

dim read as sqldatareader = cmd.excutereader

dim result as boolean = read.hasrows

cmd=nothing

return result

end function

新增用户

private sub adduser(byval uname as string,byval password as string)

if checkUser(uname)

messagebox.show("用户已存在")

exit sub

end if

try

dim sql as string = "insert into [user](username,password) values(@uname,@upass)"

dim cmd as sqlcommand = new sqlcommand(sql,conn)

cmd.parameters.add("@uname",sqldbtype.varchar).value=uname

cmd.parameters.add("@upass",sqldbtype.varchar).value=password

cmd.ExecuteNonQuery

cmd=nothing

messagebox.show("用户添加成功！")

catch ex As Exception

messagebox.show("用户添加失败！" + ex.message)

end try

end sub