Sistema de Block Criação de Mais De Uma Conta Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

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

4 participantes

Ir para baixo

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

Mensagem por thales12 Sáb 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
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Sistema de Block Criação de Mais De Uma Conta Left_bar_bleue0/0Sistema de Block Criação de Mais De Uma Conta Empty_bar_bleue  (0/0)
Vida:
Sistema de Block Criação de Mais De Uma Conta Left_bar_bleue30/30Sistema de Block Criação de Mais De Uma Conta Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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 Sáb 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.
Valentine
Valentine
Administrador
Administrador

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

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

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 Sáb 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
thales12
thales12
Membro de Honra
Membro de Honra

Mensagens : 322
Créditos : 108

Ficha do personagem
Nível: 1
Experiência:
Sistema de Block Criação de Mais De Uma Conta Left_bar_bleue0/0Sistema de Block Criação de Mais De Uma Conta Empty_bar_bleue  (0/0)
Vida:
Sistema de Block Criação de Mais De Uma Conta Left_bar_bleue30/30Sistema de Block Criação de Mais De Uma Conta Empty_bar_bleue  (30/30)

http://www.rdmgames.tk

Ir para o topo Ir para baixo

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 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
ollisykes19
ollisykes19
Novato
Novato

Mensagens : 5
Créditos : 0

Ir para o topo Ir para baixo

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 ~ 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"
Profane ~
Profane ~
Colaborador
Colaborador

Mensagens : 818
Créditos : 130

Ir para o topo Ir para baixo

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 Qui Fev 08, 2018 6:03 pm

Obrigado mestre, problema resolvido!
ollisykes19
ollisykes19
Novato
Novato

Mensagens : 5
Créditos : 0

Ir para o topo Ir para baixo

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


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos