CAPTURAR DATA / HORA DA INTERNET VB6

 Tópico anterior Próximo tópico Novo tópico

CAPTURAR DATA / HORA DA INTERNET VB6

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#494098 - 14/06/2020 09:35:09

GESIOBRAGA
SEROPEDICA
Cadast. em:Junho/2009


Ol amigos!

Estou em busca de como capturar DATA e HORA de algum site seguro da internet.

J dei algumas buscas no google e aqui no VBMANIA e no encontrei nada, se algum j tem algum cdigo em seus projetos poderia postar por favor, agradeo a ajuda de todos!



#494099 - 14/06/2020 14:21:54

PROGRAMADORVB6
LISBOA
Cadast. em:Janeiro/2004


Veja aqui: http://www.vbweb.com.br/forum_resp.asp?Codigo=192683


______________________________________________________________________________

Que minha coragem seja maior que meu medo e que minha fora seja to grande quanto minha f.


#494100 - 15/06/2020 07:08:53

CARLINHOS_SONEG
GUARIBA
Cadast. em:Maio/2004


Amigo tambm tive necessidade disso e infelizmente no encontrei.

Devido a isso eu criei minha prpria pagina hospedada em um servidor que faz isso caso te ajude use ela:

http://cadgeo.com.br/Date.php

If Sei = True then
Repondo
else
nao_respondo
end if

Mas pelo menos no atrapalho!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!



#494101 - 15/06/2020 09:14:33

CLEVERTON
SERRINHA
Cadast. em:Dezembro/2003


Membro da equipe
#494102 - 15/06/2020 15:01:46

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


CLEVERTON C#
GESIOBRAGA VB / VBA



#494113 - 17/06/2020 18:22:55

WCOSTA
VASSOURAS
Cadast. em:Dezembro/2003


Membro da equipe
Citação:
:
CLEVERTON C#
GESIOBRAGA VB / VBA

Agora é meter a mão na massa e converter para VB6

AntSoft Systems On Demand



#494122 - 18/06/2020 20:16:57

JOSE
CONGONHAS
Cadast. em:Dezembro/2003


Caro GesioBraga, segue pequeno código 99% pronto em VB6 (talvez seja necessário fazer alguns ajustes nos comprimentos - usei duais caixas de texto, uma data e outra hora, capturei do site por id='aaaaaaa'), abre o site horariodebrasilia via Internet Explorer na forma invisível, localiza os campos data e hora, retorna nas caixas de texto. Veja se atende:

Function fncCapturaDataHora()
Dim objIE As Object
Dim intPos As Integer 'para data
Dim intPos2 As Integer 'para hora
Dim PaginaHtml As String

Set objIE = CreateObject('InternetExplorer.Application')

objIE.Visible = False

objIE.Navigate 'https://www.horariodebrasilia.org/'

Do While objIE.Busy: DoEvents: Loop
Do While objIE.ReadyState <> 4: DoEvents: Loop

PaginaHtml = objIE.Document.All(0).InnerHTML

intPos = InStr(PaginaHtml, 'id=''dia-topo''>') + 14
intPos2 = InStr(PaginaHtml, 'id=''relogio''>') + 13

fncCapturaDataHora = Mid(PaginaHtml, intPos, 33)
Text1 = fncCapturaDataHora
Text2 = Mid(PaginaHtml, intPos2, 8)

objIE.Quit
Set objIE = Nothing
End Function

Private Sub Form_Load()
fncCapturaDataHora
End Sub



#494123 - 18/06/2020 20:28:53

JOSE
CONGONHAS
Cadast. em:Dezembro/2003


Atenção o site VBMania esta cortando as aspas ao postar resposta: portanto deve ficar: aspas normais antes do id, duas depois do id=, duas depois da palavra topo e uma antes do parenteses. Idem para id=relogio.
intPos = InStr(PaginaHtml, 'id=''dia-topo''>') + 14  exemplo: IntStr(PaginaHtml), aspas id=aspas aspas dia-topo aspas aspas > aspas ) + 14
intPos2 = InStr(PaginaHtml, 'id=''relogio''>') + 13



#494124 - 18/06/2020 21:08:28

JOSE
CONGONHAS
Cadast. em:Dezembro/2003


Notei que em todo o código esta aparecendo apóstrofo, na realiade é tudo aspas. O site VBMania está tirando as aspas e não está deixando enviar o zip.



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário