Programación General > Visual Basic 6.0 e inferiores

 Empaquetar Txt

<< < (2/2)

Nebire:
si vas a guardar cierto contenido de texto y quieres que quede incrustado como tu dices en el exe (no se podrá variar) entonces es tan sencillo como añadir un control richtextbox (o textbox si solo es un usuario y contraseña) meter el texto que deseas y darle la propiedad de invisible, además puedes darle un left=-5000 y/o un tamaño 1,1 y un enabled=false...

Dicho de otro modo son varibles del programa en este caso constantes, pués cada vez que se inicia el programa son lo mismo, la ventaja de leer el fichero es que puedes validar la contraseña mediante algún algoritmo para identificar si es verdadera o no....  por otro lado puedes cifrar el archivo de texto, así la contraseña y el usuario quedan a salvo de miradas curiosas.

Si sólo una persona va a maenjar ese programa puedes hacer lo primero, guardar las variables de usuario y contraseña en el formulario como campos ocultos o simplemente como constantes del programa:


--- Código: Text ---dim adminContraseña as stringdim usuario as stringadminContraseña=&#34;FedericogarciaLorca%&/()=2007&#34;adminUsuario=&#34;adminFTP@miweb&#34; private sub form1_load()  dim conectado as boolean  dim conexManual as VbMsgBoxResult   conectado= conectaFTP(adminContraseña,adminUsuario)  if conectado=false then     conexManual= msgbox(&#34;La contraseña, el usuario, o ambos no es correcto. Desea hacer una conexión manual?&#34;, vbYesNO,&#34;Falló la conexión al FTP&#34;)        if conexmanual=vbYes then              formConectarManual.show 1       end if   end  ifend sub 

Navegación

[0] Índice de Mensajes

[*] Página Anterior