YahooやGoogleで時刻同期する


NTPサーバを使用して、時刻同期を使用としても、
エラーになって同期できないことがあります。
特に、日付と時刻のプロパティの
インターネット時刻で時刻合わせを使用とすると、
たいていエラーになってしまいます。

それなら、NTPサーバで時刻同期をするのをやめて、
他のところと時刻を合わせればよいです。
YahooやGoogle、MSNなど安定してアクセス可能な
Webページにアクセスして、そこから時刻を取得します。
時刻はHTTPヘッダにのってきます。


        'URL
        Dim sURL As String
        '日付の文字列
        Dim sDate As String
        '日付
        Dim dteDate As Date
        Dim objReq As HttpWebRequest
        Dim objRes As HttpWebResponse
        '試しにYahoo Japanでやってみる。
        sURL = "http://www.yahoo.co.jp/"

        'Webページを取得
        objReq = CType(WebRequest.Create(sURL), HttpWebRequest)
        objRes = CType(objReq.GetResponse(), HttpWebResponse)

        'ヘッダ情報から日付を取得
        sDate = objRes.Headers("Date")

取得した時刻はGMT(グリニッジ標準時)です。
日本の場合は、時差は9時間です。

posted by VB.NET+MSDE+ActiveReports at 03:09 | Comment(0) | TrackBack(0) | ネットワーク
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/7873246