[Aporte] Cambiar Contraseñas desde la Cuenta

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

fuente Gs-Zone -.-

Es mi aporte de gs zone ajja.

igual yo ni ganas tenia de traerlo ajjaa igual gracias por el aporte.

Jajaja pero el aporte esta en Servers- argentum xd ajaj fijate