GetSecret()

[karinha]

Esto és posible en Fivewin?

https://www.hamor.ro/distr_ext/Doc/xHb/ ... _f.en.html

Code: Select all | Expand

// The example shows a typical scenario for GetSecret().
// The user must enter a password which is not displayed on
// the screen

   PROCEDURE Main
      LOCAL cPassword := Space(20)
      CLS
      SET CONFIRM ON

      cPassWord := ;
        GetSecret( cPassword, 10, 10, .T., "Enter your password: ")

      IF cPassWord <> "xHarbour"
         Alert( "Access denied" )
         QUIT
      ENDIF

      Alert( "Access granted" )
   RETURN

Source: ct\getsecrt.prg
LIB: xhb.lib
DLL: xhbdll.dll

xHarbour Comercial?

C:\XHBCOM\dll

3/09/2023 16:49 2.922.496 xHBDll.dll
1 arquivo(s) 2.922.496 bytes

Gracias.

Regards, saludos.

[Antonio Linares]

Entiendo que no quieres que se muestre nada, pero que es lo que verá el usuario, una caja de diálogo ?

[karinha]

Entiendo que no quieres que se muestre nada, pero que es lo que verá el usuario, una caja de diálogo ?

No sé la respuesta Maestro. Vi este ejemplo en Internet y me pareció muy interesante. Tal vez Enrico pueda descubrir qué hace esta función en el xHarbour comercial y trasladarla al xHarbour normal.

Gracias, tks.

Regards, saludos.

[karinha]

Harbour también tiene este comando GETSECRET().

Code: Select all | Expand

   snh := getsecret( SPACE( 11 ), 5, 5, .T., "Digite a senha:" )
	 
   alert( snh )

Creo que solo funciona en modo consola y tiene fallas, según tengo entendido.

Gracias.

Regards, saludos.

[Antonio Linares]

Basicamente lo que se hace es capturar los eventos de teclado pero al menos podriamos mostrar un diálogo que diga "Identifíquese" ó similar aunque no se muestren controles

[karinha]

Basicamente lo que se hace es capturar los eventos de teclado pero al menos podriamos mostrar un diálogo que diga "Identifíquese" ó similar aunque no se muestren controles

Lo entendí. Si siguieras la lógica del modo consola, solo necesitarías crear un diálogo completamente transparente. No le veo mucha utilidad a este comando. Fue solo curiosidad, nunca había visto este comando. Gracias, maestro.

Regards, saludos.