Visual Basic - contraseña

Life is soft - evento anual de software empresarial
 
Vista:

contraseña

Publicado por maria (42 intervenciones) el 25/05/2001 20:04:40
Hola, alguien me sabria decir en VB5 que API me devuelve la contraseña con la que se inicio sesion de Windows. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:contraseña

Publicado por Francisco Rossi (Stone Cold) (76 intervenciones) el 26/05/2001 09:01:49
Mira, por lo que se, no se puede ver la contraseña con el API, solo se puede comparar, para eso ahy un API pero no me acuerdo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:contraseña

Publicado por Luis Sanz Lucas (2 intervenciones) el 31/05/2001 12:00:11
Aquí te mando lo que necesitas, espero que te ayude.

Un Saludo.

Option Explicit

'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long


Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String

sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:contraseña

Publicado por maria (42 intervenciones) el 01/06/2001 23:44:22
Gracias por responderme, pero creo que no entendiste bien mi problema que no es saber el usuario actual sino la contraseña que se utilizo para iniciar la sesion. Creo que hay una API que te la da o te devuelve un valor con el cual compararla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar