用VB做多个用户名密码登录程序

这样更简洁清楚一些：

Private Sub cmdOK_Click()

If txtUserNameText = "vb01" And txtPasswordText = "123" Or _

txtUserNameText = "vb02" And txtPasswordText = "123" Then

t1 = MsgBox("登陆成功", , "系统提示")

frmLoginHide

Form1Show

Else

t2 = MsgBox("用户名或密码不对", , "系统提示")

End If

End Sub

在登录按钮的单击事件（Click）中获取输入的用户名和密码

dim username as string

dim password as string

username=text1text

password=text2text

然后和和数据库中的数据比较就行了

添加如下控件

Private Sub Command1_Click()

If Text1 = "" Then

    MsgBox "用户名为空！", 64

    Text1SetFocus

Else

    If Text2 = "" Then

        MsgBox "密码为空！", 64

        Text2SetFocus

    Else

        If Text3 = "" Then

            MsgBox "附加码为空！", 64

             Text3SetFocus

        Else

            If Text1 <> "test" Then               '用户名

                MsgBox "用户名错误！", 64

                Text = ""

                Text1SetFocus

            Else

                If Text2 <> "test" Then              '用户名

                    MsgBox "密码错误！", 64

                    Text2 = ""

                    Text2SetFocus

                Else

                    If Text3 <> Label4Caption Then

                        MsgBox "附加码错误！", 64

                        Label4Caption = fjm         '附加码错误刷新附加码

                        Text3 = ""

                        Text3SetFocus

                    Else

                        MsgBox "登录成功！", 64

                    End If

                End If

            End If

        End If

    End If

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Label1Caption = "用户名："

Label2Caption = "密  码："

Label3Caption = "附加码："

Label4Caption = fjm

Text1 = ""

Text2 = ""

Text3 = ""

Text2PasswordChar = ""

Command1Caption = "提 交"

Command2Caption = "退 出"

End Sub

Function fjm() As String

Randomize

fjm = Int(Rnd(1)  900) + 100

End Function

Private Sub Label4_Click()

    Label4Caption = fjm

End Sub

essStart(QQ路径)来打开QQ

用SystemWindowsFormsSendKeysSend（用户名）

SystemWindowsFormsSendKeysSend("")

SystemWindowsFormsSendKeysSend(密码）

SystemWindowsFormsSendKeysSend("")

好了，打开了一个QQ

反复循环打开全部的就行了

Private Sub SendBlogTimer_Tick(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles SendBlogTimerTick

Dim textboxUserId As HtmlElement

Dim textboxPassword As HtmlElement

Dim buttonSubmit As HtmlElement

textboxUserId = SendBlogBrowserDocumentAll("username")'获取用户名输入框

textboxPassword = SendBlogBrowserDocumentAll("password")'获取密码输入框

buttonSubmit = SendBlogBrowserDocumentAll("btnLogin")'获取登陆按钮

textboxUserIdSetAttribute("value","用户名")'给用户名输入框赋值

textboxPasswordSetAttribute("value","密码"）'给密码框赋值

buttonSubmitInvokeMember("click")’执行登陆按钮的单击

End Sub

其中的SendBlogBrowser为WebBrowser控件

不知道你的登陆是否挂到数据库上，如果是的话就得涉及到数据库了，如果不是的话我可以大概说一下。

判断用户名和密码是否错误：

if

text1text="admin"

and

text2text="admin"

then

msgbox

"您已成功登陆！",vbokonly+vbinformation,"登陆成功"

form2show

unload

me

else

msgbox

"用户名或密码错误，请重新登陆！"

end

if

如果想限定次数，可以定义一个变量。

首先在通用里定义变量a

dim

a!

然后在将上面的代码改为：

if

text1text="admin"

and

text2text="admin"

then

msgbox

"您已成功登陆！",vbokonly+vbinformation,"登陆成功"

form2show

unload

me

else

msgbox

"用户名或密码错误，请重新登陆！"

a=a+1

if

a=3

then

msgbox

"您已三次登陆失败！"

unload

me

end

end

if

end

if

添加一个按钮“更改密码更改密码”

点一个d出窗体，三个选项卡的三个文本框，先输入旧密码，旧密码不正确，错误对话框d出，如果您，密码，旧密码

着陆系统提供一个菜单项就行了

有很多的方法来看待自己的生活习惯 / a>

我这台机器没有安装VB不写代码

以上就是关于用VB做/多个用户名密码登录程序全部的内容，包括:用VB做/多个用户名密码登录程序、VB中我想制作一个登陆窗体，账号和密码已经设置在一个数据库中，怎样编VB程序用账号密码准确登录、VB设计实现登录验证功能的应用程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！