我的世界1.10.2tnt代码:帮我写个代码,登陆窗口的,用vb需要验证密码!

来源:百度文库 编辑:中科新闻网 时间:2024/04/26 12:13:38

Option Explicit

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "password" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
Form1.Show

Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub