UC知道求个VB程序代码
来源：百度知道 编辑：UC知道 时间：2024/07/01 12:56:08
求一个登录程序代码，口令登录，有两个labe1控件，caption分别是“用户名”和“口令：”,“name”分别是“lblname”，两个text控件分别输入用户名和密码，两个command控件，caption分别是“确定”，“退出”。
要求输入用户名123456和密码123456，若密码正确，则跳出MsgBox“祝贺你，登录成功！”，若密码错误，则为“对不起，口令错误，请再试一次！”，若三次错误，则自动退出程序并且关闭计算机
重点在于怎么让它关机~~~~~不用和其他连接，用户名密码也就这个一个
要求输入用户名123456和密码123456，若密码正确，则跳出MsgBox“祝贺你，登录成功！”，若密码错误，则为“对不起，口令错误，请再试一次！”，若三次错误，则自动退出程序并且关闭计算机
重点在于怎么让它关机~~~~~不用和其他连接，用户名密码也就这个一个
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Const SE_SHUTDOWN_PRIVILEGE& = 19
Const SHUTDOWN& = 0
Const RESTART& = 1
Const POWEROFF& = 2
Dim a As Integer
Private Sub Command1_Click()
If Text1.Text <> "123456" Then
MsgBox "对不起，口令错误，请再试一次！"
a = a + 1
Else
MsgBox "祝贺你，登录成功！"
End If
If a = 3 Then
Me.Hide
RtlAdjustPrivilege& SE_SHUTDOWN_PRIVILEGE&, 1, 0, 0 '提升权限
NtShutdownSystem& SHUTDOWN& Or POWEROFF& '关机
End If
End Sub
Private Sub Form_Load()
a = 0
End Sub
就是单纯的弄一个这样的登陆窗口吗？不和其他的连接吗？还有用户名和密码就是这么一个吗？如果这样就简单了~
一看就知道你是新手，控件就不用说了吧，关于自动退出程序的设计，可参考如下：
Dim DLCS As Integer
Private Sub cmdOK_Click()
If txt1.Text = "123