Servidor NTP para harbour 3.0
Enviado: 04 Abr 2014 01:17
Caro Abel,
Desculpe, mas eu não entendi o teu exemplo.
Vc poderia me explicar melhor?
Desculpe, mas eu não entendi o teu exemplo.
Vc poderia me explicar melhor?
Código: Selecionar todos
// Não me recordo de onde encontrei isso....
function PINGS( URL )
local Hosts
local wRet := .T.
InetInit()
if empty(URL)
URL := "www.google.com"
endif
Hosts := InetGetHosts( URL )
IF Hosts = nil .or. len(Hosts) = 0
wRet := .F.
endif
InetCleanup()
Return wRet
Código: Selecionar todos
Error WINOLE/1007 Argument error: NAVIGATE (DOS Error -2147023170)Código: Selecionar todos
oOle:Navigate("http://www.timeanddate.com/worldclock/fullscreen.html?n=45")Por que motivo você está utilizando um navegador para atualizar a hora ?sim amigo toledo pra ver se tem conexao com a internet
eu precisaria que pinga-se um host ou dns e retorna-se .t. (caso com internet)
e .f. caso ( não tivesse internet )
...