No estás conectado. Conéctate o registrate

Password para acciones

Ir abajo  Mensaje [Página 1 de 1.]

1 Password para acciones el Dom Feb 13, 2011 6:30 pm

RoNiN

avatar
Usuario
Usuario
Funcion : te pide password cada vez que queres comerciar con algun npc

En el SERVER

Buscamos
Código:
Case "ATV"

Abajo ponemos
Código:
Case "PWCOMPRAS "
        rdata = Right$(rdata, Len(rdata) - 10)
        Dim PwNew As String
        PwNew = ReadField(1, rdata, 64)
        Call WriteVar(App.Path & "\CHARFILE\" & UserList(UserIndex).Name & ".chr", "PWCOMP", "PWCOMP", PwNew)
        Exit Sub
       
        Case "COMPRUEBAPW "
        rdata = Right$(rdata, Len(rdata) - 12)
        Dim PwNeww As String
        Dim ActPw As Integer
        Name = ReadField(1, rdata, 64)
        PwNeww = ReadField(2, rdata, 64)
        tIndex = NameIndex(Name)
        If Not FileExist(CharPath & UCase$(Name) & ".chr", vbNormal) Then
        Call SendData(ToIndex, UserIndex, 0, "||Nombre Inexistente." & FONTTYPE_INFO)
        Exit Sub
        End If
        If ActPw = 0 then exit sub ' Esto es para que cuando no este activado no lo reproduzca
        If PwNeww <> GetVar(App.Path & "\CHARFILE\" & Name & ".chr", "PWCOMP", "PWCOMP") Then
        Call SendData(ToIndex, UserIndex, 0, "||Password Incorrecta" & FONTTYPE_INFO)
        Exit Sub
        End If
        Call SendData(ToIndex, UserIndex, 0, "||Respuesta correcta." & FONTTYPE_INFO)
        UserList(UserIndex).flags.PwNew = 1
        Exit Sub

Buscamos
Código:
Type userflags

y agregamos abajo
Código:
PwNew as byte

Buscamos
Código:
/modoquest

Y abajo ponemos EDIIT PARA QUE SE ACTIVE
Código:
If UCase$(rdata) = "/ACTPW" Then
Dim PwAct As Integer
PwAct = GetVar(App.Path & "\CHARFILE\" & Name & ".chr", "PWCOMP", "PWACT")
If PwAct = 1 Then
Call WriteVar(App.Path & "\CHARFILE\" & UserList(UserIndex).Name & ".chr", "PWCOMP", "PWACT", 0)
Call SendData(ToIndex, UserIndex, 0, "||Password de Npc Desactivado" & FONTTYPE_INFO)
Else
Call WriteVar(App.Path & "\CHARFILE\" & UserList(UserIndex).Name & ".chr", "PWCOMP", "PWACT", 1)
Call SendData(ToIndex, UserIndex, 0, "||Password de Npc Activado" & FONTTYPE_INFO)
End If
End If

Buscamos
Código:
Call ConnectUser(UserIndex, Name, Password)

Abajo ponemos
Código:
Call SendData(ToIndex, UserIndex, 0, "PWNW")

Buscamos
Código:
If Not InMapBounds(X, Y) Then Exit Sub

Abajo ponemos
Código:
If Not UserList(UserIndex).flags.PwNew = 1 Then
Call SendData(ToIndex, UserIndex, 0, "PWPW")
Call SendData(ToIndex, UserIndex, 0, "||Tenes que poner el codigo" & FONTTYPE_INFO)
Exit Sub
End If

Ahora en el CLIENTE
Hacemos 2 pasos, Crear un Form y poner un Text y un "Enviar" (Button o lo que te guste) en el Main

- El primero se va a llamar FrmCreaPass, y tendra 1 text y 1 command button(dejarles su nombre original)

- El text y el button le dejan su nombre original. Si ya hicieron otro anteriormente fijarse que coinsida laprimera linea de abajo en los nombres.

Abrimos el form que creamos y borramos todo para poner.
Código:
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Password Invalida."
Exit Sub
End If
Call SendData("PWCOMPRAS " & Text1.Text)
Unload Me
End Sub

Adentro del Enviar del cliente pones
Código:
Call SendData("COMPRUEBAPW " & Label8.Caption & "@" & Text1.Text)
frmMain.Text1.Visible = False
    frmMain.Command1.Visible = False
Unload Me

Por ultimo buscamos
Código:
Select Case Left$(sdata, 4)

Abajo ponemos
Código:
Case "PWPW"
    frmMain.Text1.Text.Visible = True
    frmMain.Command1.Visible = True
    Exit Sub
 
        Case "PWNW"
        FrmCreaPass.Show , frmMain
        frmMain.Text1.Text.Visible = False
        frmMain.Command1.Visible = False
        Exit Sub

Bueno, eso es todo

Ami me andubo perfectamente, pero yo no le tengo en el FrmMain, yo hice otro Frm para esto..

Si te llega a tirar algun problema, crea otro frm, y cambia el Case "PWPW" para que diga
Código:
FrmTUFRM.Show , frmMain

Adntro del Frm pones 1 text y un command y le escribis

Código:
Call SendData("COMPRUEBAPW " & frmMain.Label8.Caption & "@" & Text1.Text)
frmMain.Text1.Visible = False
frmMain.Command1.Visible = False
Unload Me

Suerte!

Ver perfil de usuario

2 Re: Password para acciones el Lun Abr 04, 2011 9:29 am

kratos

avatar
Usuario
Usuario
Buen aporte!
Segui asi
10 Estrellas Nos estamos Viendo




Saludos!

Ver perfil de usuario

Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.

 

Crear foro | © PunBB | Foro gratis de asistencia | Contactar | Denunciar un abuso | Crear su blog en Hazblog