Suporte ao desenvolvimento de jogos!


    Sistema de Block Criação de Mais De Uma Conta

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Sistema de Block Criação de Mais De Uma Conta

    Mensagem por thales12 em Sab Maio 30, 2015 7:47 pm

    Bom como diz o Titulo esse e um sistema que só permite que cada pc Crie apenas uma Conta por IpMac.

    no server~side procure por:

    Código:
    ' Check to see if account already exists

    acima adicione:

    Código:
    Dim NumeroMacs As Long
                NumeroMacs = GetVar(App.Path & "\data\newacc.ini", "CONFIG", "var")
              
                For I = 1 To 10
                   If GetPlayerIP(Index) = GetVar(App.Path & "\data\newacc.ini", "CONFIG", Val(I)) Then
                   Call AlertMsg(Index, "Você já possui uma conta.")
                   Exit Sub
                   End If
                Next
                
               
                
                Call PutVar(App.Path & "\data\newacc.ini", "CONFIG", Val(NumeroMacs), GetPlayerIP(Index)) ')
                Call PutVar(App.Path & "\data\newacc.ini", "CONFIG", "var", NumeroMacs + 1)

     If NumeroMacs >= 9 Then
                Call PutVar(App.Path & "\data\newacc.ini", "CONFIG", "var", 1)
                End If

    na mesma sub procure por:

    Código:
    Password = Buffer.ReadString

    e abaixo adicione:

    Código:
    MacAddress = Buffer.ReadString

    na mesma sub procure por:

    Código:
    Dim Password As String

    abaixo adicione:

    Código:
    Dim MacAddress As String

    na mesma sub procure por:

    Código:
    Call LoadPlayer(index, Name)

    e mude-a para:

    Código:
    Call LoadPlayer(Index, name, MacAddress)

    dps na handlelogin procure por:

    Código:
    Dim Password as String

    e abaixo adicione:

    Código:
    Dim MacAddress as String

    na mesma sub procure por:

    Código:
    Password = Buffer.ReadString

    abaixo adicione:

    Código:
    MacAddress = Buffer.ReadString

    na mesma sub procure por:

    Código:
    Call LoadPlayer(index, Name)

    e mude-a para:

    Código:
    Call LoadPlayer(Index, name, MacAddress)

    em Type PlayerRec, adicione antes do End Type:

    Código:
    MacAddress As String

    mude a sub:

    Código:
    Sub LoadPlayer(ByVal Index As Long, ByVal name As String)

    para:

    Código:
    Sub LoadPlayer(ByVal Index As Long, ByVal name As String, ByVal Mac As String)

    antes do end sub adicione:

    Código:
    Player(Index).MacAddress = Mac

    agora Cliet~Side:

    procure por:


    Código:
    Public Sub SendLogin(ByVal name As String, ByVal Password As String)

    mude para:


    Código:
    Public Sub SendLogin(ByVal name As String, ByVal Password As String, ByVal Mac As String)

    na mesma sub procure por:


    Código:
    Buffer.WriteString Password


    Abaixo adicione:


    Código:
    Buffer.WriteString Mac


    dps procure por:


    Código:
    Call SendLogin(frmMenu.txtLUser.text, frmMenu.txtLPass.text)


    e mude-o para:


    Código:
    Call SendLogin(frmMenu.txtLUser.text, frmMenu.txtLPass.text, "1")



    Créditos: Ao titio Thales por fazer o sistema, Tutorial e Postar.


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Valentine
    Administrador
    Administrador

    Medalhas :
    Mensagens : 4800
    Créditos : 1017

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por Valentine em Sab Maio 30, 2015 8:33 pm

    Interessante Thales, apesar que o mesmo computador pode ser usado por 2 pessoas, como, por exemplo, irmãos.

    Mais não deixa de ser algo interessante. + 1 crédito.


    _________________
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por thales12 em Sab Maio 30, 2015 8:41 pm

    @Valentine escreveu:Interessante Thales, apesar que o mesmo computador pode ser usado por 2 pessoas, como, por exemplo, irmãos.

    Mais não deixa de ser algo interessante. + 1 crédito.

    Obrigado Lek, mais se for esse o caso e so entrar em contato com o admin, q o admin resolve isso para ele '-'


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    ollisykes19
    Novato
    Novato

    Mensagens : 5
    Créditos : 0

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por ollisykes19 em Qui Fev 08, 2018 3:56 pm

    Type mismatch em

    Código:
    NumeroMacs = GetVar(App.path & "\data\newacc.ini", "CONFIG", "var")

    Server-side, após criar uma conta. 

    OBS: Sei que é antigo o tópico mas como se trata de um erro no código creio não ser contra as regras
    avatar
    Profane ~
    Administrador
    Administrador

    Mensagens : 664
    Créditos : 114

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por Profane ~ em Qui Fev 08, 2018 5:50 pm

    @ollisykes19 escreveu:Type mismatch em

    Código:
    NumeroMacs = GetVar(App.path & "\data\newacc.ini", "CONFIG", "var")

    Server-side, após criar uma conta. 

    OBS: Sei que é antigo o tópico mas como se trata de um erro no código creio não ser contra as regras

    Oin!
    Isso ocorre por o tutorial e sistema estarem incompletos. Seu problema daria em 100% dos usuários, mas ou eles souberam resolver por sí mesmos ou eles trataram diretamente em outro topico ou por pm.

    Existem duas formas fáceis de você resolver o problema.

    [1] Dumpando um Arquivo .Ini e entao preenchendo ele manualmente. 
    Você poderia ir na sua pasta do Servidor, ao lado do Options.Ini, copiar o Options.Ini para a pasta (O Regerando) e mudando seu nome para "newacc.Ini".

    Dentro dele você colocaria isso aqui:

    Código:
    [CONFIG]
    var=0

    Salve e seu problema estaria resolvido.

    [2] Seria fazer com que o InitServer faça analise e criação deste "newacc.ini", e o preenchimento da Sessão [Config] e ainda adicionar a var=0 como base.

    Para isso você pode procurar por LoadOptions no seu Servidor por isso aqui:

    Código:
    ' load options, set if they dont exist
        If Not FileExist(App.path & "\data\options.ini", True) Then
            Options.Game_Name = "Eclipse Origins"
            Options.Port = 7001
            Options.MOTD = "Welcome to Eclipse Origins."
            Options.Website = "http://www.touchofdeathforums.com/smf/"
            SaveOptions
        Else
            LoadOptions
        End If

    E fazer um parecido porém customizado para o caso do tutorial. Verificar se o arquivo newacc.ini existe e se não existir criar um com os valores que você precisa.

    Cabe a você, optar pelo fácil ou buscar entender a função e criar a leitura da segunda forma.

    Att


    _________________
    "If you don't belong here, just build a place where you do."
    avatar
    ollisykes19
    Novato
    Novato

    Mensagens : 5
    Créditos : 0

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por ollisykes19 em Qui Fev 08, 2018 6:03 pm

    Obrigado mestre, problema resolvido!

    Conteúdo patrocinado

    Re: Sistema de Block Criação de Mais De Uma Conta

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Abr 21, 2018 12:39 am