No estás conectado. Conéctate o registrate

Anti Clientes falsos

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Anti Clientes falsos el Jue Mayo 07, 2009 11:06 am

Guiido


SUPER MODERADOR
SERVIDOR

Buscamos

Código:
Espiado(1 To 10) As Integer

Arriva colocamos

Código:
ClienteValido As Integer

En el sub ConnectUser buscá:

Código:
If Len(UserList(UserIndex).GuildInfo.GuildName) > 0 And UserList(UserIndex).flags.Privilegios = 0 Then Call SendData(ToGuildMembers, UserIndex, 0, "4B" & UserList(UserIndex).Name)

Y abajo colocamos

Código:
UserList(UserIndex).flags.ClienteCorrecto = 0
Call SendData(ToIndex, UserIndex, 0, "JOJOCLIENTE")

Buscas:
Código:
If UCase$(rdata) = "/ONLINEGM" Then

Y arriba ponemos:


Código:
If UCase$(Left$(rdata, 9)) = "/VERIFCLIENTES" Then
    Call SendData(ToAdmins, 0, 0, "||Verificando los clientes de los usuarios.."& FONTTYPE_VENENO)
    Dim CuantosSaque As Integer
    CuantosSaque = 0
    For LoopC = 1 To LastUser
        If Len(UserList(LoopC).Name) > 0 And UserList(LoopC).flags.ClienteCorrecto = 0 And (UserList(LoopC).flags.Protegido = 0 Or UserList(LoopC).flags.Protegido = 1) Then
            Call SendData(ToAdmins, 0, 0, "||" & UserList(LoopC).Name & " con posible cheat." & FONTTYPE_INFO)
            CuantosSaque = CuantosSaque + 1
            'Call CloseSocket(LoopC)
        End If
    Next LoopC
    If CuantosSaque > 0 Then
        Call SendData(ToAdmins, 0, 0, "||Finalizado. Usuarios expulsados: " & CuantosSaque & FONTTYPE_VENENO)
    Else
        Call SendData(ToAdmins, 0, 0, "||Finalizado." & FONTTYPE_VENENO)
    End If
    Exit Sub
End If

Buscá Case "CLANDETAILS"
Y arriba pone:

[code]Case "JOJOCLIENTE"
UserList(UserIndex).flags.ClienteCorrecto = 1
Call SendData(ToIndex, UserIndex, 0, "||Tu cliente es válido.Gracias por jugar Tu server AO." & FONTTYPE_VENENO)
Exit Sub


CLIENTE

busca



[code][code]Select Case UCase$(Left$(Rdata, 9))[/code][/code]

Y arriva:

[code][code]Select Case UCase$(Left$(Rdata, 11))
Case "VCLIENTE"
Call SendData("JOJOCLIENTE")
Exit Sub
End Select[/code][/code]

Suerte

Ver perfil de usuario

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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