para fazer gambiarrá!

[-_KIKO_- 0]

Pessoal to montando um sistema de contagem de banda pra servidor...

Se quiserem eu mando o codigo pra ca depois..

 

é o seguinte, eu tenho esse link

http://www.zplayer.com.br/stats/

 

gostaria de saber como eu faço para o ASP "pegar" aqueles numeros ali: 18.14 GB do tráfego total visto..

ja ouvi q dava pra fazer isso mas nao lembro como , parece que usavam isso pra pegar os endereços de CEP e preço do site do correio alguma coisa assim...

 

help ae galera

T+

[dark0 0]

brother, o que você quer fazer, é pegar o total de espaço utilizado pela sua conta, no servidor?

[-_KIKO_- 0]

nem, quero pegar a transferência mensal do carao unico modo que acho que da pra fazer é requestando desse Stats ai usando XMLHTTP mas nao sei como fazer

[dark0 0]

ahhhvocê quer saber basicamente como usar o xmlhttp?

[-_KIKO_- 0]

hmm...não :P buscar o site todo com XMLHTTP eu sei...oq nao sei é pegar SÓ esse dado: 18.14 GB alguem sabe?

[-_KIKO_- 0]

ngm sabe da um jeitinho ae? :>(

[Salgado 4]

Kiko,

Como você já está com a página "em mãos" (por assim dizer) você pode fazer um InStr por Tráfego visto * (lógico usando HTMLEncode) e, usando o MID pegar apenas essa linha, que é limitada pelo <tr> e ir tratando.

 

Ou simplesmente, com o InStr pegar o GB e voltar até o <b>.

 

Entendeu a idéia?

[-_KIKO_- 0]

eu pensei em usar o InStr() mas nao pensei no MID com o InStr, pode dar um rapido exemplo aqui pra mim seguir??alias, nao precisa falar o exemplo do MID, se você puder me falar só como usar ele com o InStr() ja me juda muito..

[Salgado 4]

Para a linha pode usar:

PosicaoInicial=InStr(Requisitado,Server.HTMLEncode("Tráfego visto *"))
PosicaoFinal=InStr(PosicaoInicial,Requisitado,"<tr>")-PosicaoInicial
Linha=Mid(Requisitado,PosicaoInicial,PosicaoFinal)

[-_KIKO_- 0]

hehe valeu salgado, mas se liga na gambiarra

 

http://www.fotoemcasa.com.br/teste2.asp?site=morgados.net

http://www.fotoemcasa.com.br/teste2.asp?site=zplayer.com.br

http://www.fotoemcasa.com.br/teste2.asp?site=trampo.net

 

<%

site = request.querystring("site")

Set oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")

oXMLHTTP.open "GET", "http://www." & site & "/stats", false

 

oXMLHTTP.send(xmlDoc)

 

a = oXMLHTTP.responsetext

 

aB = Instr(1, a ,"GB", 1)

aB = aB+1

 

a = left(a,aB )

 

aB = aB /1000

a = Right(a , aB )

a = replace(a,">","")

a = replace(a,"b","")

a = replace(a,"t","")

a = replace(a,"d","")

a = replace(a,"<","")

response.write a & " tráfego visto"

 

%>

 

Funciona :P

[Salgado 4]

eduzindo mais:

<%
site = request.querystring("site")
Set oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.open "GET", "http://www." & site & "/stats", false

oXMLHTTP.send(xmlDoc)

a = oXMLHTTP.responsetext

aB = Instr(1, a ,"GB", 1)
aB = aB+1

a = left(a,aB )

a = Right(a , InStr(aB,">")+1)
response.write a & " tráfego visto"

%>

[-_KIKO_- 0]

dae ja num funfa olha la

 

http://www.fotoemcasa.com.br/teste2.asp?site=trampo.net

[Salgado 4]

Mals, troquei uma das vars:

<%
site = request.querystring("site")
Set oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.open "GET", "http://www." & site & "/stats", false

oXMLHTTP.send(xmlDoc)

a = oXMLHTTP.responsetext

aB = Instr(1, a ,"GB", 1)
aB = aB+1

a = left(a,aB )

a = Right(a , InStr(a,">")+1)
response.write a & " tráfego visto"

%>

[-_KIKO_- 0]

sim

agora temos um pequeno problema

 

 

http://www.fotoemcasa.com.br/teste2.asp?site=eletras.com.br

esse nao mostra nem o GB > :P

 

http://www.fotoemcasa.com.br/teste2.asp?site=trampo.net

esse mostra , oq tem pra lá pra tras da até pra arrumar

[Salgado 4]

Troca o último InStr por InStrRev e deve rolar.

[-_KIKO_- 0]

http://www.fotoemcasa.com.br/teste2.asp?site=eletras.com.br

 

rolo nada encheu a tela

uhauhauhauha

[-_KIKO_- 0]

Consegui :lol:

 

O esquema do pau era que nao tinha controle de MB ou GB

 

<%site = request.querystring("site")tipo = request.querystring("t")if tipo = "HIGH" or tipo = "" thenSet oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")oXMLHTTP.open "GET", "http://www." & site & "/stats", falseoXMLHTTP.send(xmlDoc)a = oXMLHTTP.responsetextaB = Instr(1, a ,"GB", 1)aB = aB+1a = left(a,aB )aC = aB -10aB = aB - aCa = Right(a , aB )a = replace(a,">","")a = replace(a,"b","")a = replace(a,"t","")a = replace(a,"d","")a = replace(a,"<","")if instr(a,"GB") thenresponse.write a & " de tráfego visto"elseresponse.redirect "teste3.asp?site=" & site & "&t=LOW"end ifelseif tipo = "LOW" thenSet oXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")oXMLHTTP.open "GET", "http://www." & site & "/stats", falseoXMLHTTP.send(xmlDoc)a = oXMLHTTP.responsetextaB = Instr(1, a ,"MB", 1)aB = aB+1a = left(a,aB )aC = aB -10aB = aB - aCa = Right(a , aB )a = replace(a,">","")a = replace(a,"b","")a = replace(a,"t","")a = replace(a,"d","")a = replace(a,"<","")if not instr(a,"MB") thenresponse.write a & " de tráfego visto"elseresponse.redirect "teste3.asp?site=" & site & "&t=HIGH"end ifend if%>

 

 

Ta bem repetitivo pq é um teste

 

 

www.fotoemcasa.com.br/teste3.asp?site=eletras.com.br

www.fotoemcasa.com.br/teste3.asp?site=zplayer.com.br

www.fotoemcasa.com.br/teste3.asp?site=trampo.net

www.fotoemcasa.com.br/teste3.asp?site=shopsudoeste.com.br

www.fotoemcasa.com.br/teste3.asp?site=negociolivre.com.br

 

 

Agora vo passa isso pra VB pra poder controlar a cota do pessoal, será que vira passar pra VB?