Usuários On-line

[«« Luiz Gustavo »»]

Olá Pessoal,

Gostaria de saber se é possível saber quantos usuários estão on-line numa página feita totalmente em flash?

Caso seja possível gostaria de saber o código, se for acessível é lógico.

Grato

«« Luiz Gustavo »»

[Neco]

Acho que possível é mas tu teria que usar associado a asp ou php ou alguma coisa do tipo, um abraço... :D

[«« Luiz Gustavo »»]

Olá Pessoal,

Caso alguém esteja enteressado em colocar um contador em sua página flash achei um site muito bom que explica como fazê-lo.

http://www./pontoflash.com.br/colunas/mate...luna=4&Item=308

obs: é muito díficil

«« Luiz Gustavo »»

[mvdesign]

Claro que é possivel.

No flash tu coloca 2 layer, uma com o nome de actions e outra de campo.

no frame 1 de actions você coloca a seguinte ação:

loadVariablesNum("active.asp", 0);

no frame 5 de actions, coloque:

if (usuarios == 1) {
    texto = "Usuário Ativo";
} else {
    texto = "Usuários Ativos";
}

e no frame 10 coloque:

stop()

Agora na layer campo em fame 1, você coloca 2 caixas de texto dinamicos, uma com a variavel usuarios e outra com a variavel texto, prolongue este frame ate o frame 10 pressionando o F5. Agora vem o ASP. crie um arquivo com o nome de global.asp com o codigo:

<script LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
    ' Set our user count to 0 when we start the server
    Application("ActiveUsers") = 0
End Sub

Sub Session_OnStart
    ' Change Session Timeout to 20 minutes (if you need to)
    Session.Timeout = 20
    ' Set a Session Start Time
    ' This is only important to assure we start a session
    Session("Start") = Now
    ' Increase the active visitors count when we start the session
    Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Decrease the active visitors count when the session ends.
    Application.Lock
  Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
End Sub

</SCRIPT>

e outro com o nome de active.asp e o codigo:

<%@ Language=VBScript %>
<%Response.write("usuarios="&Application("ActiveUsers"))%>

Para este script funcionar corretamente, você deve colocar o arquivo global.asa no diretório raiz do seu servidor. O arquivo active.asp deve estar no mesmo diretorio que o arquivo usuarios_ativos.swf (pode ser outro nome).

O servidor necessita possuir suporte de arquivos asp.