先实例化该类
创新互联公司是专业的安溪网站建设公司，安溪接单;提供成都网站设计、做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行安溪网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
Dim wrapper As New ClassLibrary1.Simple3Des("你的密钥")
然后
Dim cipherText As String = wrapper.EncryptData("要加密的文本")
或
Dim cipherText As String = wrapper.DecryptData("要揭秘的文本")
写两个函数，一个检测是否有重复用户，第二个插入
检测属用户是否存在
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
VB:
1、先打开你的项目，即你编写的程序。
2、文件 - 添加 -新建项目
3、在“已安装模版”中选择“其他项目类型” - 安装和部署 - (这里面随便选一个) - 右侧栏里选择安装项目、安装向导什么的都行。然后确定。
4、看到setup1没，设置好他的属性，左侧目标计算机上的文件系统，就是指你即将要将程序安装到的电脑，你可以添加一些文件在这里，它将来可以直接被安装到目标电脑中，当然你也可以什么都不加，一般只是在桌面上加个快捷方式。
5、右键setup1，点击生成，然后就到你源程序所在文件夹里：Setup1\Setup1\Debug中去找安装包吧。
6、把安装包发到其它电脑，直接安装就行了。注意一下，安装程序需要考虑目标的系统环境和你自己的是否一样。
