DATA DA INTERNET
Boa tarde pessoal !
Alguém sabe como obter a data correta a partir da internet, de algum site ou coisa assim,
só pr poder saber se o computador do cliente esta com a data correta.
Obrigado
Alguém sabe como obter a data correta a partir da internet, de algum site ou coisa assim,
só pr poder saber se o computador do cliente esta com a data correta.
Obrigado
Segue uma POG que funciona.
Veja se resolve.
Dim s As String, h As Integer, hora As String, data As String
[ô]Usar o site [Ô]meuip.com.br[Ô]
s = Inet1.OpenURL([Ô]http://www.meuip.com.br[Ô])
[ô]Pegar a hora da página
h = InStr(1, s, [Ô]Data[Ô]) + 15
hora = Trim(Replace(Mid(s, h, 40), [Ô]<strong>[Ô], [Ô][Ô]))
MsgBox hora
[ô]Pegar a data da página
data = Mid(s, h + 60, 10)
MsgBox dataVeja se resolve.
Tecla,
Boa a solução.
Mas como colocar para pegar de sites em que se tem a certeza de ter maior durabilidade com gogle,Terra, Uol , G1 etc...
(o meuip pode sair do ar...)
Gardel
Boa a solução.
Mas como colocar para pegar de sites em que se tem a certeza de ter maior durabilidade com gogle,Terra, Uol , G1 etc...
(o meuip pode sair do ar...)
Gardel
Bom dia Tecla,
Isso realmente resolveu meu problema, tem a questão que o gncnet disse,
e tbm se o site mudar algum esqema na formatação, acho q da problea,
mas valeu era isso mesmo q u precisava !
Isso realmente resolveu meu problema, tem a questão que o gncnet disse,
e tbm se o site mudar algum esqema na formatação, acho q da problea,
mas valeu era isso mesmo q u precisava !
Pessoal, aguém pode continuar a solução deste fórum?
Como colocar para pegar de sites em que se tem a certeza de ter maior durabilidade com gogle,Terra, Uol , G1 etc...
(o meuip pode sair do ar...)
Gardel
Como colocar para pegar de sites em que se tem a certeza de ter maior durabilidade com gogle,Terra, Uol , G1 etc...
(o meuip pode sair do ar...)
Gardel
Gardel,
Pelo q estudei do código do tecla, esta PRIMEIRA linhe traz em formato de texto todo o conteudo do site ( de qquer um q vc colocar la ),
Dim s As String
s = Inet1.OpenURL([Ô]http://www.meuip.com.br[Ô])
se vc mandar exibir a variavel s numa caixa de texto vc vai ver ....
nessa outra linha ele procura no texto todo pela palavra [Ô]data[Ô]
h = InStr(1, s, [Ô]Data[Ô]) + 15
a variavel h recebe o valor da posição dessa palavra, isso é importante pq depois da palavra data vem a data propriamente dita...
ai é só mandar selecionar a data nesse texto, pra isso ele usa o mid
data = Mid(s, h + 60, 10)
viu? depois da posição da palavra data(que é h), ele soma mais 60 caracteres, começa selecionar ali e conta mais 10 caracteres,
desse modo vc pode pegar não só a data, como tbm qquer outra palavra ou frase que tenha em qquer site.
para escolher um site, primeiro entre nele pelo navegador mesmo e veja se em alguma parte dele tem a data atual,
eu achei mais facil pegar do meuip, pq la a data ta no formato dd/yy/aaaa, no site do terra mesmo esta assim: 29 de março de 2010,
e tbm o site meuip esta ha bastante tempo no ar, vou dar um voto de confiança a ele.
Espero ter ajudado !
Pelo q estudei do código do tecla, esta PRIMEIRA linhe traz em formato de texto todo o conteudo do site ( de qquer um q vc colocar la ),
Dim s As String
s = Inet1.OpenURL([Ô]http://www.meuip.com.br[Ô])
se vc mandar exibir a variavel s numa caixa de texto vc vai ver ....
nessa outra linha ele procura no texto todo pela palavra [Ô]data[Ô]
h = InStr(1, s, [Ô]Data[Ô]) + 15
a variavel h recebe o valor da posição dessa palavra, isso é importante pq depois da palavra data vem a data propriamente dita...
ai é só mandar selecionar a data nesse texto, pra isso ele usa o mid
data = Mid(s, h + 60, 10)
viu? depois da posição da palavra data(que é h), ele soma mais 60 caracteres, começa selecionar ali e conta mais 10 caracteres,
desse modo vc pode pegar não só a data, como tbm qquer outra palavra ou frase que tenha em qquer site.
para escolher um site, primeiro entre nele pelo navegador mesmo e veja se em alguma parte dele tem a data atual,
eu achei mais facil pegar do meuip, pq la a data ta no formato dd/yy/aaaa, no site do terra mesmo esta assim: 29 de março de 2010,
e tbm o site meuip esta ha bastante tempo no ar, vou dar um voto de confiança a ele.
Espero ter ajudado !
WILLVIDAL,
Complementando, é interessante fazer um CAST na data e na hora após a recepção do site, só para validar se houve alguma alteração no LAYOUT da página.
Se a dúvida foi sanada, não esqueça de ENCERRAR o tópico.
é isso aÃ!
Complementando, é interessante fazer um CAST na data e na hora após a recepção do site, só para validar se houve alguma alteração no LAYOUT da página.
Se a dúvida foi sanada, não esqueça de ENCERRAR o tópico.
é isso aÃ!
Senhores, obrigado pela aula!
Gardel
Gardel
Tópico encerrado , respostas não são mais permitidas