vb 如何给程序加一个自定义密码

用VB编一个外壳，把这个程序封装起来，必须通过您编的VB程序才能调用该程序，否则无法运行。通过VB运行就可以控制了。关键是密码存放在什么地方，肯定不能放在源文件中，需要给他指派一个存放文件的地方，或是数据库，或是一个文本文件，不管是哪种方式，都需要对密码加密，不能让看到原文，比较方便的是MD5加密法，网络上有源文件。

简单：一个窗体

上面三个textbox

第一个是老密码，第二个是新密码，第三个是确认新密码

按确定时，你要作三件事，第一，确认一下老密码是否正确，你可以用当前用户名去数据库里查一下；第二，验证两次新密码是不是一致，不一至提示；第三步，更新密码，用

sql

的update

就可以。

再看看别人怎么说的。

Private Sub Command1_Click()

If Text1Text <> GetSetting(AppTitle, "Settings", "密码", "") Then MsgBox "密码错误。请重新输入": Exit Sub

If Text2Text <> Text3Text Then MsgBox "两次输入不一样，请重新输入": Exit Sub

SaveSetting AppTitle, "Settings", "密码", Text2Text

MsgBox "修改成功！"

Unload Me

End Sub

上面的应该是错了的。

Dim icount As Integer '用于记录次数

Private Sub Command1_Click()'确定按钮

Dim psw As String '记录密码

psw = "abc" '密码为abc

icount = icount + 1

If Text1Text = psw Then

MsgBox "密码正确，欢迎使用本系统！", vbOKOnly

Else

If icount < 3 Or icount = 3 Then

MsgBox "密码不正确，您还有" & 3 - icount & "次机会，请重新登录!"

Text1SetFocus '获得焦点

Text1Text = "" '清空文本

Exit Sub

Else

MsgBox "密码不正确，谢绝使用！"

Unload Me

End If

End If

End Sub

Private Sub Command2_Click() '退出按钮

Unload Me

End Sub

Private Sub Form_Load()

icount = 0 '初始次数为0

Text1Text = "" '清空文本

End Sub

判断下不就行了

sub pangduanmima(mima as string)

dim i as integer

i=val(mima)'val 函数可以把001前面没有用的0去掉

if i>=0 and i<=8 then

进入下一界面

else

报警，密码错误

end if

end sub

调用的时候

dim inputmima as string

inputmima=metext1text

pangduanmima inputmima

'假设你的登录窗口有一个文本框控件,名为Text1,用来输入密码;

一个按钮,名为cmdOK,用来点击登录;

窗体Form1是你输对密码后要显示的窗体,则用如下代码即可

Private

Sub

cmdOK_Click()

If

Text1Text

=

"password"

Then

'把password改成你的密码

Form1Show

Unload

Me

Else

Msgbox

"密码错误,请重新输入"

End

If

End

Sub

‘三次机会，如果都不正确退出 ，测试一下：

Private Sub Form_Load()

Dim i As Integer, password As String,a as string,b as string, s As String, n As Integer

password = "abc"

a="请输入登陆密码！",

b="登陆系统"

For i = 1 To 3

s = InputBox(a, b)

If s = password Then

Exit For

else

if i<3 then

a="登陆失败"

b="密码错误，您刚才输入的密码是" & s & ",请检查后再输入，您还有" & 3-i & "次机会！"

else

msgbox "对不起！您尝试登陆系统的次数达到限定，系统将关闭！",vbokonly,"登陆失败，您无权使用本系统！"

end

end if

end if

Next i

End Sub

以上就是关于vb 如何给程序加一个自定义密码全部的内容，包括:vb 如何给程序加一个自定义密码、vb怎样编写重设密码（可修改的密码）高分求教！、在VB编程中修改密码。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！