Portal
Servidor em Manutenção
Características:
1° - Só pessoas autorizadas podem logar
Tutorial:
1° - vai ser tudo no servidor 
Crie uma frame dentro dela crie um checkbox:
Com as seguintes configurações:
Frame:
- Código:
Caption: Manutenção
Checkbox:
- Código:
Name: Chkmanutention
Caption: Manutenção
Depois de ter feito o que eu pedi acima procure:
- Código:
Private Sub HandleNewAccount(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Nessa sub procure o seguinte:
- Código:
' Prevent hacking
- Código:
' Prevent hacking
For i = 1 To Len(Name)
n = AscW(Mid$(Name, i, 1))
If Not isNameLegal(n) Then
Call AlertMsg(index, "Nome inválido , somente letras , números, espaços , e _ permitidos em nomes.")
Exit Sub
End If
Depois desse END IF coloque:
- Código:
If frmServer.Chkmanutention.Value = YES Then
If GetPlayerAccess(index) <= 0 Then
Call AlertMsg(index, "O servidor está em manutenção, Volte mais tarde.")
Exit Sub
End If
End If
Agora procure:
- Código:
Private Sub HandleLogin
Nessa sub encontre:
- Código:
LoadBank index, Name
Em baixo adicione:
- Código:
If frmServer.Chkmanutention.Value = YES Then
If GetPlayerAccess(index) <= 0 Then
Call AlertMsg(index, "O servidor está em manutenção, Volte mais tarde.")
Exit Sub
End If
End If
E pronto o sistema esta pronto qualquer erro ou dúvida coloque aqui no tópico, irei ajudar.
Creditos:
- Código:
Kielleds/Kies: Pelo sistema
Robin Perris - Criador da elysium engine
Última edição por Kielleds em Sáb Nov 21, 2015 2:24 pm, editado 1 vez(es)
