ÍndiceCalendarioIndiceFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarseReglamento
¿Quién está en línea?
En total hay 1 usuario en línea: 0 Registrados, 0 Ocultos y 1 Invitado

Ninguno

La mayor cantidad de usuarios en línea fue 16 el Miér Ago 07, 2013 8:12 pm.
Mejores posteadores
Rango
 
Habauc
 
Trogclodita
 
WhoTeR
 
Tomm-
 
ZankuR
 
GM-PekeMixz
 
LuciMoyo
 
MwM
 
Diclut s2 Lalaa♥
 
Estadísticas
Tenemos 97 miembros registrados.
El último usuario registrado es PekeMixzGamer1

Nuestros miembros han publicado un total de 1289 mensajes en 264 argumentos.

Comparte | 
 

 [Aporte] Cambiar Contraseñas desde la Cuenta

Ir abajo 
AutorMensaje
ZankuR
Director
Director
avatar

Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013

MensajeTema: [Aporte] Cambiar Contraseñas desde la Cuenta   Sáb Ago 10, 2013 11:39 pm

Extraido del cliente tpao 3.1 y le cambie 3 letras locas para adaptarlo.
Ami me funcionó, pero puede que si estando en la cuenta y el cliente que se use pone como estado pasivo la conexión con el server no funke y asd espero que entiendas si lees esto. (probado en nao, virgen 11.5 y neithan ao)

al final del mod_General

Código:
Public Sub ChangePasswdLOL()
Dim Vieja As String, Nueva As String, RepetiAWE As String
On Error Resume Next
Vieja = InputBox("Escribí la password anterior", "Password antigua")
Nueva = InputBox("Escribí la nueva password", "Password nueva.")
RepetiAWE = InputBox("Reingresa la nueva password", "Password nueva.")
If Len(Nueva) < 4 Then
    Mensaje.Escribir "La password es muy corta."
    Exit Sub
End If
If Len(Nueva) > 30 Then
    Mensaje.Escribir "La password es muy larga."
    Exit Sub
End If
If Nueva <> RepetiAWE Then
    Mensaje.Escribir "Las password no coinciden."
    Exit Sub
End If
Call SendData("/PASSWD " & Nueva)
End Sub
En su frm de cuentas agregan algún control y le ponen en la funcion del click:

Código:
changepasswdlol 'xD
listo.

aapa: si quisieran hacer eso desde un frm, 'con mas estilo' por decir:

donde pusieron
Código:
donde pusieron
reemplazan por:
Código:
frmCambiamelapas.show, me
y si lees un poco antes del copiarypegar tenés que crear un frm con el nombre 'frmCambiamelapas'

dentro del form agregas 3 cajas de texto y los nombres los dejás como salen, text1 hasta el 3 (el primero es para la contra vieja, el segundo para la nueva, y el 3er para repetir.)
y demas 2 controles en los cuales en la funcion del click pones en el 1ro:

Código:
changepasswdFORM(text1,text2,text3)
En el segundo:

Código:
unload me
al final del mod_General agregan:

Código:
Public Sub ChangePasswdFORM(ByVal viejaxd As String, ByVal nueva As String, ByVal repeti As String)
On Error Resume Next
If Len(nueva) < 4 Then
    Mensaje.Escribir "La password es muy corta."
    Exit Sub
End If
If Len(nueva) > 30 Then
    Mensaje.Escribir "La password es muy larga."
    Exit Sub
End If
If nueva <> repeti Then
    Mensaje.Escribir "Las password no coinciden."
    Exit Sub
End If
Call SendData("/PASSWD " & nueva)
End Sub
Fuente S-a
Volver arriba Ir abajo
Ver perfil de usuario
WhoTeR
Director de Tropas
Director de Tropas
avatar

Cantidad de envíos : 143
Fecha de inscripción : 28/07/2013

MensajeTema: Re: [Aporte] Cambiar Contraseñas desde la Cuenta   Dom Ago 11, 2013 12:20 am

fuente Gs-Zone -.-

Es mi aporte de gs zone ajja.

igual yo ni ganas tenia de traerlo ajjaa igual gracias por el aporte.
Volver arriba Ir abajo
Ver perfil de usuario
ZankuR
Director
Director
avatar

Cantidad de envíos : 107
Fecha de inscripción : 19/07/2013

MensajeTema: Re: [Aporte] Cambiar Contraseñas desde la Cuenta   Dom Ago 11, 2013 12:31 am

Jajaja pero el aporte esta en Servers- argentum xd ajaj fijate
Volver arriba Ir abajo
Ver perfil de usuario
Contenido patrocinado




MensajeTema: Re: [Aporte] Cambiar Contraseñas desde la Cuenta   

Volver arriba Ir abajo
 
[Aporte] Cambiar Contraseñas desde la Cuenta
Volver arriba 
Página 1 de 1.
 Temas similares
-
» Cambiar Contraseña al Messenguer
» Cartas desde Iwo Jima [DVDRip] (TORRENT)
» ¿Dónde guarda Internet explorer las contraseñas?
» ¿Como cambiar mis actitudes? ¿O quizás debería terminar mi relacion?
» Bebi de mas, me di cuenta pero no podia evitar que me gustara!!

Permisos de este foro:No puedes responder a temas en este foro.
 :: Argentum Online :: Talleres Taller Argentum :: Programación-
Cambiar a: