Cómo crear un formulario de inicio de sesión usando VB Solicitar código fuente Correo electrónico yzc418@163.com

Función de declaración privada GetUserName Lib "advapi32.dll" Alias ​​​​"GetUserNameA" (ByVal lpbuffer como cadena, nSize como largo) siempre y cuando

Público OK como booleano

Sub privado Form_Load( )

Atenuar sBuffer como cadena

Atenuar lSize como largo

sBuffer = Espacio$(255)

lSize = Len( sBuffer)

Llamar a GetUserName(sBuffer, lSize)

Si lSize > 0 entonces

txtUserName.Text = Left$(sBuffer, lSize)

Else

txtUserName.Text = vbNullString

Finalizar si

End Sub

Sub privado cmdCancel_Click()

OK = False

Me.Hide

End Sub

Private Sub cmdOK_Click()

'ToDo: Crear una prueba para ver la contraseña ¿Es correcta?

'Comprueba si la contraseña es correcta

Si txtPassword.Text = "" Entonces

OK = True

Me.Hide

Else

MsgBox "Contraseña incorrecta, inténtalo de nuevo", "Iniciar sesión"