vb代码库注册（VB注册码）

本篇文章给大家谈谈vb代码库注册，以及VB注册码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、怎样用VB代码注册控件
• 2、vb中 ,账号密码的登录和注册代码怎么写?
• 3、怎么用VB编写一个注册的代码
• 4、怎样用VB编写一个登陆系统，可以注册账号的那种
• 5、vb怎样数据库登录，要有注册功能，有图
• 6、vb.net怎么写注册代码

怎样用VB代码注册控件

如果你要注册的控件是就在当前工程内使用的，那么是无法用代码来注册的哦，因为程序一启动就出错了。

如果是用代码来注册其他工程内使用的控件则是可以的：

Shell "regsvr32 " ocx文件的完整路径

vb中 ,账号密码的登录和注册代码怎么写?

如果是本地的，那么可以用数据库或者简单的文本加密，如果是网络登录，则需要相应的网页或网络数据库提供注册和保存！！！

后则相对麻烦，可以用前者先试试，再简单点，数据库也不要了，用个txt文本，随便加密一下就OK

比如在txt里面协商

admin|123456

|

用于分割用户名和密码，这样每个帐号的信息只用一行，读取的时候还可以考虑省略用户名大小写等，但是用户名注册不允许使用分隔符~~

怎么用VB编写一个注册的代码

最简单的一个是，在启动窗体中，加入一行代码：if inputbox("请输入注册码","注册",123") “123456” then end'这个是说，如果输入的不是123456，就退出程序，正确后就向下执行。如果要注册码与用户名相结合，则要先用用户名作为种子，进行加密操作，生成一个注册码，成一一对应关系就行了。如用户名为abc，代码如下：dim a as string,b as string,i as integer,k as integera=inputbox("请输入用户名","注册用户")for i = 1 to len(a)b=b str(asc(mid(a,i,1)))next ib=6 bif b-int(len(b)/2)*2 = 1 then b = b 4text1 = "用户名是：" aa=""for i = 1 to len(b) step 2if mid(b,i,2)32 then a=a str(mid(b,i,2)+32) else if mid(b,i,2) 126 then a=a str(mid(b,i,2)-32) else a=a str(mid(b,i,2)) end ifend if next itext1 = text1 " 注册码是： " a这样就可以了

怎样用VB编写一个登陆系统，可以注册账号的那种

1、打开“Microsoft Visual Basic 6.0 中文版”，选择“标准 EXE”，并单击“打开”按钮，进入软件界面。

2、建立如图所示窗体。

3、双击窗体，定义如下全局变量。

4、双击“开始”按钮。

5、输入如下代码。

6、双击“停止”按钮。

7、双击Timer控件，输入如下代码。

8、运行程序，单击“开始”按钮，计时器开始计时。

vb怎样数据库登录，要有注册功能，有图

Dim OldUserName, OName() As String

If Text1.Text "" And Text2.Text "" Then '如果注册用户名与密码都不为空，则开始注册

Open "C:\user.dat" For Input As #1 '读取已注册用户的账户文件，判断新注册用户名与已注册用户名是否重复

Do Until EOF(1)

Line Input #1, OldUserName

OName() = Split(OldUserName, ",")

If OName(0) = Text1.Text Then MsgBox "该用户名已注册，请重新选择用户名": Close #1: Exit Sub

Loop

Close #1

Open "C:\user.dat" For Append As #1

Print #1, Text1.Text "," Text2.Text '保存新注册的用户信息

Close #1

MsgBox "注册成功！"

End If

End Sub

Private Sub Command2_Click() '登录

Dim OldUserName As String

Open "C:\user.dat" For Input As #1 '读取已注册用户的账户文件，判断登录用户名与密码是否一致

Do Until EOF(1)

Line Input #1, OldUserName

If OldUserName = Text1.Text "," Text2.Text Then MsgBox "登录成功！": Close #1: Exit Sub

Loop

Close #1

MsgBox "用户名或密码错误，请重新输入！": Exit Sub

End Sub

vb.net怎么写注册代码

Private Sub 提交_Click()

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代码库注册的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于VB注册码、vb代码库注册的信息别忘了在本站进行查找喔。