Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Sistema de Block Criação de Mais De Uma Conta
4 participantes
Página 1 de 1
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:
acima adicione:
na mesma sub procure por:
e abaixo adicione:
na mesma sub procure por:
abaixo adicione:
na mesma sub procure por:
e mude-a para:
dps na handlelogin procure por:
e abaixo adicione:
na mesma sub procure por:
abaixo adicione:
na mesma sub procure por:
e mude-a para:
em Type PlayerRec, adicione antes do End Type:
mude a sub:
para:
antes do end sub adicione:
agora Cliet~Side:
procure por:
mude para:
na mesma sub procure por:
Abaixo adicione:
dps procure por:
e mude-o para:
Créditos: Ao titio Thales por fazer o sistema, Tutorial e Postar.
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:
Minha Sign:
Re: Sistema de Block Criação de Mais De Uma Conta
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.
Mais não deixa de ser algo interessante. + 1 crédito.
Re: Sistema de Block Criação de Mais De Uma Conta
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:
Minha Sign:
Re: Sistema de Block Criação de Mais De Uma Conta
Type mismatch em
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
- 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- Novato
- Mensagens : 5
Créditos : 0
Re: Sistema de Block Criação de Mais De Uma Conta
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 ~- Colaborador
- Mensagens : 818
Créditos : 130
Re: Sistema de Block Criação de Mais De Uma Conta
Obrigado mestre, problema resolvido!
ollisykes19- Novato
- Mensagens : 5
Créditos : 0
Tópicos semelhantes
» Queria uma informação mais detalhada sobre abrir conta no Brasil.
» Sistema Recupera conta
» alguém pode disponibilizar um sistema de 3 chars em uma conta
» Sistema de Criação
» Sistema de Criação de Char
» Sistema Recupera conta
» alguém pode disponibilizar um sistema de 3 chars em uma conta
» Sistema de Criação
» Sistema de Criação de Char
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|