Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Deixar Online/Offline automaticamente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 10:46

RicardoxD


Membro
Membro
Client~Side

Procure por:

Código:
    If Parse(0) = "info" Then
        frmLogin.lblOnOff.Caption = "O Servidor está Online"
        frmLogin.lblPlayers.Caption = "com " & Parse(1) & " jogadores"
        frmLogin.lblPlayers.Visible = True
        frmLogin.tmrInfo.Enabled = False
        Exit Sub
    End If


Mude para:

Código:
    If Parse(0) = "info" Then
        frmLogin.lblOnOff.Caption = "O Servidor está Online"
        frmLogin.lblPlayers.Caption = "com " & Parse(1) & " jogadores"
        frmLogin.lblPlayers.Visible = True
        Exit Sub
    End If


Na Form_Load da frmMainMenu procure por:

Código:
    If ConnectToServer = True Then
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        frmLogin.lblOnOff.Caption = "Offline"
        frmLogin.lblPlayers.Visible = False
    End If


Mude para:

Código:
    If ConnectToServer = True Then
        frmLogin.lblOnOff.Caption = "Offline"
        frmLogin.lblPlayers.Visible = False
    End If

Na frmLogin procure por:

Código:
    If ConnectToServer = True Then
        tmrInfo.Enabled = True
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If


Mude para:

Código:
    If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If


Ainda na frmMainMenu ache o tmrInfo e mude o seu Enabled para True. Agora clique 2 vezes nele e mude o que tem dentro dele para:

Código:
    If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If


Obs.: Se você quiser que ele pegue as informações On ou Of mais rapido mude o Interval do tmrInfo para 1

Creditos:

A mim

2Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 13:41

NuKeNiN


Membro
Membro
O meu n tem frmlogin oque eu faço?

olha meu frmmainmenu ta assim:
Spoiler:
' Copyright (c) 2009 - Elysium Source. Alguns direitos reservados.
' Tradução e revisão por MMODEV Brasil @ [Você precisa estar registrado e conectado para ver este link.]
' Este código está licensiado sob a licença EGL.

Option Explicit

Private Sub Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
For I = 1 To 3
If I = 1 Then Ending = ".gif"
If I = 2 Then Ending = ".jpg"
If I = 3 Then Ending = ".png"

Next I

txtName.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Conta"))
txtPassword.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Senha"))
If Trim(txtPassword.Text) <> vbNullString Then
Check1.Value = Checked
Else
Check1.Value = Unchecked
End If

frmMainMenu.lblPlayers.Visible = True
frmMainMenu.lblPlayers.Caption = "Pegando Informações..."

If ConnectToServer = True Then
frmLogin.lblOnOff.Caption = "Offline"
frmLogin.lblPlayers.Visible = False
End If

End If
wmpMenuMusic.URL = App.Path & "\Músicas\Menu.mp3"


End Sub
Private Sub Label1_Click()
frmNewPass.Show , frmMainMenu
End Sub

Private Sub lblOnOff_Click()

End Sub

Private Sub lblRecup_Click()
fmrRecuperar.Visible = True
End Sub

Private Sub picConnect_Click()
If Trim(txtName.Text) <> vbNullString And Trim(txtPassword.Text) <> vbNullString Then
If Len(Trim(txtName.Text)) < 3 Or Len(Trim(txtPassword.Text)) < 3 Then
MsgBox "Seu login e sua senha devem possuir, no mínimo, 3 caractéres."
Exit Sub
End If
Call MenuState(MENU_STATE_LOGIN)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Conta", txtName.Text)
If Check1.Value = Checked Then
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", txtPassword.Text)
Else
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", "")
End If
End If
End Sub



Private Sub picNewAccount_Click()
frmNewAccount.Show , frmMainMenu
End Sub

Private Sub picDeleteAccount_Click()
Dim YesNo As Long

YesNo = MsgBox("Você quer mesmo deletar a sua conta?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
frmDeleteAccount.Show , frmMainMenu
End If
End Sub



Private Sub picQuit_Click()
Dim YesNo As Long
YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
MsgBox ("Obrigado pela preferência, volte sempre")
Call GameDestroy
End If
End Sub

Private Sub tmrInfo_Timer()
lblOnOff.Caption = "O Servidor está Offline"
lblPlayers.Visible = False
tmrInfo.Enabled = False
End Sub

3Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 13:50

Luucas Robeerto


Fundador
Fundador
Logico que tem meu caro

FrmLogin e a ferramenta principal para conectar ao servidor

olha uma imagem do FrmLogin para você ver ai na sua source...

[Você precisa estar registrado e conectado para ver esta imagem.]

Pronto qualquer duvida... só perguntar


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

4Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 13:50

RicardoxD


Membro
Membro
Mude para:

Código:
Option Explicit

Private Sub Form_Load()
Dim I As Long
Dim Ending As String
Dim Packet As String
For I = 1 To 3
If I = 1 Then Ending = ".gif"
If I = 2 Then Ending = ".jpg"
If I = 3 Then Ending = ".png"

Next I

txtName.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Conta"))
txtPassword.Text = Trim(GetVar(App.Path & "\config.ini", "CONFIG", "Senha"))
If Trim(txtPassword.Text) <> vbNullString Then
Check1.Value = Checked
Else
Check1.Value = Unchecked
End If

frmMainMenu.lblPlayers.Visible = True
frmMainMenu.lblPlayers.Caption = "Pegando Informações..."

    If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If

End If
wmpMenuMusic.URL = App.Path & "\Músicas\Menu.mp3"


End Sub
Private Sub Label1_Click()
frmNewPass.Show , frmMainMenu
End Sub

Private Sub lblOnOff_Click()

End Sub

Private Sub lblRecup_Click()
fmrRecuperar.Visible = True
End Sub

Private Sub picConnect_Click()
If Trim(txtName.Text) <> vbNullString And Trim(txtPassword.Text) <> vbNullString Then
If Len(Trim(txtName.Text)) < 3 Or Len(Trim(txtPassword.Text)) < 3 Then
MsgBox "Seu login e sua senha devem possuir, no mínimo, 3 caractéres."
Exit Sub
End If
Call MenuState(MENU_STATE_LOGIN)
Call PutVar(App.Path & "\config.ini", "CONFIG", "Conta", txtName.Text)
If Check1.Value = Checked Then
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", txtPassword.Text)
Else
Call PutVar(App.Path & "\config.ini", "CONFIG", "Senha", "")
End If
End If
End Sub



Private Sub picNewAccount_Click()
frmNewAccount.Show , frmMainMenu
End Sub

Private Sub picDeleteAccount_Click()
Dim YesNo As Long

YesNo = MsgBox("Você quer mesmo deletar a sua conta?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
frmDeleteAccount.Show , frmMainMenu
End If
End Sub



Private Sub picQuit_Click()
Dim YesNo As Long
YesNo = MsgBox("Você tem certeza que deseja sair do jogo?", vbYesNo, GAME_NAME)
If YesNo = vbYes Then
MsgBox ("Obrigado pela preferência, volte sempre")
Call GameDestroy
End If
End Sub

Private Sub tmrInfo_Timer()
    If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If
End Sub

E fça o negocio do Timer na FrmMainMenu

5Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:13

NuKeNiN


Membro
Membro
ΩLuucαs Robεrto escreveu:Logico que tem meu caro

FrmLogin e a ferramenta principal para conectar ao servidor

olha uma imagem do FrmLogin para você ver ai na sua source...

[Você precisa estar registrado e conectado para ver esta imagem.]

Pronto qualquer duvida... só perguntar
o meu n ta igual o teu o meu é modificado, com imagem, é pintado, e nem do lado direito ond mostra as frm n tem frmlogin. pode me add msn pra me dar suporte?

6Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:16

Luucas Robeerto


Fundador
Fundador
a unica coisa diferente que tem ai neste eo a opção "Full Screen"
eo o "sendo XXX da equipe"

o tirando isto o frmlogin e da quele geito
e não dou suporte pelo msn....


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

7Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:28

NuKeNiN


Membro
Membro
imagem do meu main menu
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]

8Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:36

Luucas Robeerto


Fundador
Fundador
assim vc não me explico que você tinha colocado o FrmLogin no FrmMainMenu

Bom fica mais facil agora

bom o frmlogin não existe mais mais os codigos deles ainda existe então da para procurar

Código:
 If ConnectToServer = True Then
        tmrInfo.Enabled = True
        Packet = "getinfo" & END_CHAR
        Call SendData(Packet)
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If

ai você muda para

Código:
If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If

ai depois vocé vai no seu frmMainMenu ache o tmrInfo e mude o seu Enabled para True. Agora clique 2 vezes nele e mude o que tem dentro dele para:

Código:
If ConnectToServer = True Then
        lblOnOff.Caption = "O Servidor está Online"
    Else
        lblOnOff.Caption = "O Servidor está Offline"
        lblPlayers.Visible = False
    End If

prontinho,,,


ai Sky creditos não e seus não foi vocÊ que crio esta modificação foi o Lucas Lupo então coloque os creditos denovidos faz este favor ate


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

9Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:51

NuKeNiN


Membro
Membro
da search text noth found, eu pesquisei por tmrInfo.Enabled = True e Packet = "getinfo" & END_CHAR, ambos darao o erro noth found

10Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:54

Luucas Robeerto


Fundador
Fundador
só mensagens não adianta mande alguns scren para mim ver


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

11Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 14:57

RicardoxD


Membro
Membro
Claro n e pra pesquisa, olha nem vo fala vai na frmMainMenu e procure por esse timer ¬¬, da ate pena

12Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 15:08

NuKeNiN


Membro
Membro
achei isso de tmrInfo:
Código:
Private Sub tmrInfo_Timer()
    lblOnOff.Caption = "O Servidor está Offline"
    lblPlayers.Visible = False
    tmrInfo.Enabled = False
End Sub
só tem esses 2 tmrinfo no mainmenu

13Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 15:21

RicardoxD


Membro
Membro
E esse ai

14Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 16:05

NuKeNiN


Membro
Membro
ainda esta dando erro:
a linha q esta dando o erro é essa:

Código:
        Msg = Parse(n + 1)

vo mostrar oq tem d linha em volta:

Código:
' :::::::::::::::::::::::::::
    ' :: All characters packet ::
    ' :::::::::::::::::::::::::::
    If Parse(0) = "allchars" Then
        n = 1
       
        frmSendGetData.Hide
        frmChars.Show , frmMainMenu
       
        frmChars.lstChars.Clear
       
        For I = 1 To MAX_CHARS
            Name = Parse(n)
            Msg = Parse(n + 1)
            Level = Val(Parse(n + 2))
           
            If Trim(Name) = vbNullString Then
                frmChars.lstChars.AddItem "Lugar Livre"
            Else
                frmChars.lstChars.AddItem Name & ", level " & Level & " " & Msg
            End If
           
            n = n + 3
        Next I
alguma luz??? cheers

15Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 16:06

RicardoxD


Membro
Membro
Olha isso nao tem nada haver co meu tuto, entao va pedir na area de pedidos, por favor

16Tutorial Re: Deixar Online/Offline automaticamente em Dom 03 Jul 2011, 16:17

NuKeNiN


Membro
Membro
Sky escreveu:Olha isso nao tem nada haver co meu tuto, entao va pedir na area de pedidos, por favor
é que me falaram que fiz esse tuto errado ae to veno isso

@Edit eu ja arrume, como ele disse eu coloquei o frmlogin no frmmainmenu, ae só mudei oque tava escrito frmlogin pra frmmainmenu assim resolvi o erro. luucas exclui akele topico de duvidas q vcbloqueo por eu n ter 30 posts. o compile erro algo assim
eu tirei o Msg = Parse(n + 1) assim ae deu debug nos frmlogin ae arrumei

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum