Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte no desenvolvimento de jogos


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

    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108

    Sistema de Block Criação de Mais De Uma Conta Empty 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 !

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

    Minha Sign:

    Sistema de Block Criação de Mais De Uma Conta Zkqt5e
    Valentine
    Valentine
    Administrador
    Administrador

    Medalhas : Sistema de Block Criação de Mais De Uma Conta ZgLkiRU
    Mensagens : 5163
    Créditos : 1137

    Sistema de Block Criação de Mais De Uma Conta Empty 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.


    _________________
    Sistema de Block Criação de Mais De Uma Conta AIymW
    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108

    Sistema de Block Criação de Mais De Uma Conta Empty 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 !

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

    Minha Sign:

    Sistema de Block Criação de Mais De Uma Conta Zkqt5e
    ollisykes19
    ollisykes19
    Novato
    Novato

    Mensagens : 5
    Créditos : 0

    Sistema de Block Criação de Mais De Uma Conta Empty 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
    Profane ~
    Profane ~
    Moderador Global
    Moderador Global

    Mensagens : 800
    Créditos : 128

    Sistema de Block Criação de Mais De Uma Conta Empty 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


    _________________
    "Mistress of shattered hopes and forever broken dreams"
    ollisykes19
    ollisykes19
    Novato
    Novato

    Mensagens : 5
    Créditos : 0

    Sistema de Block Criação de Mais De Uma Conta Empty 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

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

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Ter Out 27, 2020 6:03 am