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

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.

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 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 '-'

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

Obrigado mestre, problema resolvido!