怎样利用VB编写登录密码程序，

[VB程序]编写一个密码登录程序~

给提供个登录VB工程，账号和密码可以自己注册。

Private Sub Command1_Click()
Static i As Integer
i = i + 1
If Text1.Text = "12345" Then
MsgBox "密码正确！"
Unload Me
Form2.Show
Else
Text1.Text = ""
If i = 3 Then
MsgBox "您已输错密码3次，程序退出"
End
Else
MsgBox "密码错误，请重新输入！"
Text1.SetFocus
End If
End If

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text1.PasswordChar = "*"
End Sub

用VB制作一个登陆框。如果你想制作个人软件，想设上帐号和密码，对了才可以使用。其实很简单，我就不多说了操作如下:
1.打开VB，创建两个text控件，输入帐号和密码用。
2.创建一个按钮，命名为登陆。
3.在text控件前填个Label控件提示添写帐号和密码
然后在按钮中填加以下代码，我简单的解释一下意思。
If Text1.Text = "123456" Then'当Text1内容等于123456 然后
If Text2.Text = "aaa" Then'当Text2内容等于aaa 然后
MsgBox "您成功登陆！", , "欢迎登陆"'这句是满足上面条件的时候提示登陆成功！

End If

Else

Text1.Text = ""
Text2.Text = ""
MsgBox "密码错误", , "提示"'当Text1和Text2为空的时候提示密码错误。
End If

在填加一个窗体，为Form2,让Form1帐号和密码正确时显示Form2。运行时候
Form2不显示。让1的帐号和密码正确是显示2。很简单，在按钮控件里加代码。好了，在
运行一下看看。看到没有出来了。就这么简单，在制作的时候把密码那设置为显示*号就
可以了。

---

连南瑶族自治县17012911202： 如何利用VB编制用户密码登录程序 - ？
漳雯易可： VB6.0企业版里有自定义好的用户登录程序窗口.有模板,新建一个模板,打开之后,看看代码,自己再修改一下就OK了.

连南瑶族自治县17012911202： 用VB编个输入密码程序(简单点的) - ？
漳雯易可： 新建工程---添加一个commandbuton控件~双击窗体进入代码编辑区~复制一下代码 Private Sub Command1_click() Const Pwd = ＂123456＂ '改成密码 x = InputBox(＂内容＂, ＂标题＂, ＂输入栏内容＂) If x = Pwd Then MsgBox ＂密码正确＂ Else MsgBox ＂密码错误＂ End If end sub按f5运行 点击按钮 看到效果.

连南瑶族自治县17012911202： 求一个用vb编写账号密码验证程序的代码!急.谢谢？
漳雯易可： 单击Command1后开始运行.(注意大写ABC不等于小写abc)代码如下. ---------------------------- Private Sub Command1_Click() a = InputBox(＂账号＂) If a = ＂ABC＂ Then pass: If t = 3 Then End Else p = InputBox(＂密码＂) If p = ＂123＂ Then '这里写登陆系统的代码 Else t = t + 1 GoTo pass End If End If Else End End If End Sub

连南瑶族自治县17012911202： 怎样用VB编写用户登陆的程序? - ？
漳雯易可： 主要需要两个文本框,一个用于输入密码,一个用于输入用户名.两个按钮,一个＂登陆＂,一个＂取消＂. 你的用户名和密码需要通过数据库验证,那么还得连接数据库.如果你程序的用户名和密码固定,而且不再添加新的.那么更简单. 这是一个...

连南瑶族自治县17012911202： 如何用VB制作自动登陆网站自动输入帐号密码 - ？
漳雯易可： Private Declare Function timeGetTime Lib ＂winmm.dll＂ () As Long Private Sub Form_Load() WebBrowser1.Navigate ＂ http://reg4.163.com/CheckUser.jsp＂ End SubPrivate Function M_Dom_oncontextmenu() As Boolean M_Dom_...

连南瑶族自治县17012911202： 我是一个VB新手,请问怎么编写系统的用户名和密码?要详细的步骤？
漳雯易可： 给你一个简易的登录器源码: 添加控件 text1 text2 command1 双击command1事件输入代码: if text1.text=＂＂ then msgbox ＂请输入用户名＂ elseif text2.text=＂＂ then msgbox ＂请输入密码＂ elseif text1.text= ＂user＂ and text2.text=＂pass＂ then msgbox ＂登陆成功!＂ else msgbox ＂登录失败!＂ endif 用户名为:user 密码为:pass

连南瑶族自治县17012911202： 如何在vb中设置密码,程序该如何编写 - ？
漳雯易可： 要看你的密码保存至哪里.如果密码是不可修改的,你可以直接保存到程序中去,如 if password<>＂123456＂ thenmsgbox ＂登录成功 elsemsgbox ＂登录失败 end if 如果你的密码是可以修改的,则可以写到数据库里去,如果是小软件的话,可以使用access数据库.access在office自带. 还可以写么一个文本文件里.你可以把具体的要求告诉我,我再给你详细写出来. jialiu830205@163.com

连南瑶族自治县17012911202： 用VB编写一个登陆程序 - ？
漳雯易可： Dim DLCS As Integer '次数变量 Private Sub cmdOK_Click() ' 登录按钮'假如用户名密码都为 Admin If txtU.Text = ＂ADMIN＂ And TXTp.Text = ＂ADMIN＂ Then 'txtu为用户名,txtP为登录密码,注意大小写 FRMmain.Show '登陆成功 Me.Hide Else MsgBox ＂用户名密码不正确,请与管理员联系!＂, vbCritical + vbDefaultButton1, ＂登录错误＂ DLCS = DLCS + 1 If DLCS >= 3 Then Unload Me End If End If End Sub

连南瑶族自治县17012911202： 用VB语言编制一个帐号与密码的检验程序 - ？
漳雯易可： Option Explicit Const MaxLogTimes As Integer = 3 Private Sub cmdCancel_Click() Dim intResult As Integer '请求用户确认是否真的退出系统登录 intResult = MsgBox(＂你选择了退出系统登录,退出将不能启动管理系统!＂ & vbCrLf & ＂是否真...

连南瑶族自治县17012911202： 怎么用VB设计一个登陆程序,能实现“用户名和密码从文件中读取”,简单解释一下？
漳雯易可： 你这是要代码?还是怎的,建一个窗体,弄俩文本框,一个账户一个密码,然后在文本框做判断,读取文件,先从用户名判断 不对则提示错误,完后累计次数,累加一下,账户通过读文本密码,密码错误的话继续累计.累计3次直接退出.Unload me