24 lines
718 B
Plaintext
24 lines
718 B
Plaintext
if DownloadToFile("http://tycho.usno.navy.mil/cgi-bin/timer.pl", DefaultDir$ + "\timer.htm") = 0 then
|
|
open DefaultDir$ + "\timer.htm" for input as #f
|
|
html$ = lower$(input$(#f, LOF(#f)))
|
|
close #f
|
|
|
|
a= instr( html$, "utc" )-1
|
|
print "UTC";mid$( html$, a-9,9)
|
|
|
|
end if
|
|
|
|
end
|
|
|
|
function DownloadToFile(urlfile$, localfile$)
|
|
open "URLmon" for dll as #url
|
|
calldll #url, "URLDownloadToFileA",_
|
|
0 as long,_ 'null
|
|
urlfile$ as ptr,_ 'url to download
|
|
localfile$ as ptr,_ 'save file name
|
|
0 as long,_ 'reserved, must be 0
|
|
0 as long,_ 'callback address, can be 0
|
|
DownloadToFile as ulong '0=success
|
|
close #url
|
|
end function
|