1 Konuyu açan Mehmet K Son düzenleyen, Mehmet K (28.02.2012 23:19:04)

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Konu: NTP Sunucu

Herkese merhabalar

Bilgisayarınızdaki saatın güncel olması için, işletim sistemi beli periyodlarda NTP sunucuları sorguluyor.
Bunun ile ilgili birkaç bilgi:

Diyelim her 12 saat saati güncellemek istiyorsunuz:

Visual Fox Pro
[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\W32Time\TimeProviders\NtpClient]

"SpecialPollInterval"=dword:000A8C0

NTP sunucuları nerde belirtiliyor?

Visual Fox Pro
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers]

Bazen ama o an saatin güncel olduğundan emin olmak istiyorsunuz:
http://www.softshape.net/download/ -> Cmdtime 3

Kullanımı:

Visual Fox Pro
IF !FILE("cmdtime3.exe")

  MESSAGEBOX("cmdtime3.exe isimli program bulunamadı!", 16, gcPrgVersion)

  RETURN

ENDIF

 

WAIT "İnternet üzerinden saat okunuyor." WINDOW AT 20,40 NOWAIT

IF FILE("cmdtime3.txt")

  DELETE FILE cmdtime3.txt

ENDIF

RUN cmdtime3.EXE ntp.demon.co.uk /M:100000  SYNC>cmdtime3.txt

WAIT CLEAR


Hem bilgisayarın saati güncelleniyor, hemde cmdtime3.txt logfile olarak kullanılıyor.

Selamlar!
Mehmet

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.

2 Cevaplayan ugurlu2001 Son düzenleyen, ugurlu2001 (29.02.2012 11:47:51)

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: NTP Sunucu

Mehmet abi; örnek için çok teşekkürler. Benim işime yarayabilicek bir kod.

Benim arşivimde de aşağıdaki gibi vardı. Galiba oda sana yarar gibi. Lokalizasyonu istediğin gibi düzenleyebilirsin. smile


Visual Fox Pro
* Author: Cetin BASOZ

?Getinternetdatetime()

 

FUNCTION GetInternetDateTime

    LOCAL ldTarih

    url = "http://free.timeanddate.com/clock/i2m2m … d2/th1/tb2"

    objHTTP = CreateObject("MSXML2.XMLHTTP")

    objHTTP.Open("GET", url,.f.)

    objHTTP.Send()

 

    m.ldTarih = '{^'+STREXTRACT(objHTTP.ResponseText, '<span id=t1>','</span>')+'}'

    m.ldTarih = &ldTarih

    RETURN (m.ldTarih)

ENDFUNC
Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3 Cevaplayan Mehmet K Son düzenleyen, Mehmet K (29.02.2012 17:10:08)

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Re: NTP Sunucu

Merhaba Uğur

Ofisde olmadığım için, ancak yarın verdiğin kodu inceliyebilecem. Hemen ama dikkadimi çeken: Web site hizmetini kapatınca ne oluyor? Aynı mantık ile çalışan başka siteler varmı?
"Lokalizasyonu istediğin gibi düzenleyebilirsin. " dediğine göre mutlaka vardır herhalde.

cmdtime3.exe'nin avantajı, binlerce ntp sunucu ile çalışabiliyor.

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.

4 Cevaplayan ugurlu2001 Son düzenleyen, ugurlu2001 (29.02.2012 18:08:36)

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: NTP Sunucu

Mehmet abi; verdiğim sitede ; istediğin ülke (date time zone) ve tarih saat formatına göre seçim yapıyorsun.

Bu site www tarafından desteklenen bir site diye biliyorum. Eğer bu site bu hizzmeti kapatırsa; tahminimce hiç kimse internete giremiyor durumdadır smile

Ben zamanında bu siteyi araştırıp bulana kadar bir kaç gün uğraşmıştım...

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

5 Cevaplayan Mehmet K

  • Mehmet K
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 02.01.2010
  • İleti: 913

Re: NTP Sunucu

Senin kod benimkinden daha iyi, çünkü işi vfp'nun sunduğu araçlarla çözebiliyorsun.
Bundan sonra bende senin önerdiğin yöntemi kullanacam.
Umarım web sitenin devamlılığı ile ilgili bir süpris yaşmam.

Teşekkür ederim!

Bir projenin bitmesi için 3 seçenek vardır: hızlı, ucuz, iyi. Bu seçeneklerden iki tanesini seçiniz.