VB.NETでNTPサーバから時刻を取得する

VB.NETでNTPサーバから時刻を取得する方法を説明します。

NTPサーバは適当なところを選んでください。
ポート123 UDPでNTPパケットを送信して、レスポンスを受け取ります。
40から43バイト目が世界協定時になっています。
これは、1900/01/01からの秒数になっていると思われます。
それを元に現在の時刻を取得します。

これを使うと、コンピュータのシステム時刻にかかわりのない時計を作ることができます。

以下がソースコードです。



Dim sNTPServer As String
Dim btNTP_Packet(47) As Byte
Dim btRecv(50) As Byte
Dim strRetPage As String = Nothing
Dim objHost As System.Net.IPAddress
Dim objIPEndPoint As System.Net.IPEndPoint
Dim objSocket As System.Net.Sockets.Socket

'NTPサーバ
sNTPServer
objHost = System.Net.Dns.Resolve(sNTPServer).AddressList(0)
'ポートは123でUDP
objIPEndPoint = New System.Net.IPEndPoint(objHost, 123)
objSocket = New System.Net.Sockets.Socket( _
System.Net.Sockets.AddressFamily.InterNetwork, _
System.Net.Sockets.SocketType.Dgram, _
System.Net.Sockets.ProtocolType.Udp)
'接続
objSocket.Connect(objIPEndPoint)
If objSocket.Connected = False Then
MessageBox.Show("接続できません。")
Exit Sub
End If
'NTPパケット
'最初は11 後は0
btNTP_Packet(0) = &HB
'NTPパケットを送信
objSocket.Send(btNTP_Packet)
'受信
objSocket.Receive(btRecv)
objSocket.Close()

Dim dteUTC As Date
Dim dteNow As Date
Dim decUTC As Decimal
Dim decDay As Decimal
Dim decHour As Decimal
Dim decMinute As Decimal
Dim decSec As Decimal

'世界協定時
'1900/01/01からの秒
decUTC = CDec(btRecv(40)) * 2 ^ (8 * 3) _
+ CDec(btRecv(41)) * 2 ^ (8 * 2) _
+ CDec(btRecv(42)) * 2 ^ 8 _
+ CDec(btRecv(43))

'1900/01/01からの日にちを計算
decDay = decUTC \ (24 * CLng(60 * 60))
decSec = decUTC Mod (24 * CLng(60 * 60))
'時
decHour = decSec \ (60 * 60)
decSec = decSec Mod (60 * 60)
'分
decMinute = decSec \ 60
'秒
decSec = decSec Mod 60

dteUTC = DateAdd(DateInterval.Day, decDay, CDate("1900/01/01"))
dteUTC = DateAdd(DateInterval.Hour, decHour, dteUTC)
dteUTC = DateAdd(DateInterval.Minute, decMinute, dteUTC)
'現在の時刻
dteNow = dteUTC.ToLocalTime

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

メールアドレス:

ホームページアドレス:

コメント:

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

たっぷんたっぷんw
Excerpt: 初めてEカップのおっぱいみたんだけどポカーンと眺めるので精一杯だったよ(汗) 「さわっていいんだよ」って言われて我に戻って顔はさんでみたらすげ〜快感だったわw 一日中おっぱいと遊んでるだけで女も納得し..
Weblog: みわ
Tracked: 2009-10-03 03:27

弄られるってもんじゃなかった(笑)
Excerpt: からだ中舐められたけど足の指やケツ毛舐められたのは初体験(汗) ケツ毛ってほんとヤバいっすねwちょっと意識飛びましたもん(笑) 淫乱な女がいてくれるおかげで、生活が楽し〜わw
Weblog: モンちぃー
Tracked: 2009-10-08 19:47

勢いで、会社休んだわ(笑)
Excerpt: 女が「朝まで帰さないよ」って言うなり何かに呪われたかのように馬乗りしぱっなしでさ、 Eカップのおっぱいがプルンプルン揺れてそれに夢中になりすぎて中に出しっぱなしだった(笑) で、報酬8万もらえたんだけ..
Weblog: きたこうじ
Tracked: 2009-10-16 09:25

ヒモ生活いけるんじゃね?!!(汗)
Excerpt: なんでも「満足いくエッチがしたいからお金を払うの」だってよ(笑) なもんで仰向けになって女のやりたい放題にやらせてたら報酬5万もらえたしww
Weblog: フリータイム
Tracked: 2009-10-25 12:44

ドールって楽じゃないね(汗)
Excerpt: ホテル着くなり二言目で「始めよっか☆」だぜ(汗) そっからはリードされっぱなしで、って言うより犯されたに近い感じだったけど(笑) 息子を弄ぶは馬乗りはするはで、精力もたね〜わw
Weblog: 運送業(31歳)
Tracked: 2009-10-29 19:16

どんな事するんだ??!
Excerpt: とか思いながらシャワー浴びるなり30分も息子舐めてたぞ(笑) オレすでに痙攣しちゃってたんだけどベットの上でも馬乗りでみっちり搾り取られましたよ(汗) でもさ精 力がお金になるってのもわるくね〜なww..
Weblog: みっつん
Tracked: 2009-11-04 02:34

空いた時間に相手するだけ(笑)
Excerpt: 金持ちは時間もお金も持て余してるらしいぞ!! この前なんかデート費全部出してもらったうえに エッチしたらほんとに報酬6万もらえたしww
Weblog: ひろゆき
Tracked: 2009-11-08 23:01

女もガマン出来ね〜んだな(笑)
Excerpt: おいらの立ったアレ見るなり勝手にいぢりだして終いにはパイズリでイかされた(笑) コース変更で上乗せ金もしっかりもらえたからいいんだけどなw
Weblog: 商社マン(37歳)
Tracked: 2009-11-13 16:16

ようやく元とったわ(汗)
Excerpt: おいらもココ初めて一ヶ月たつんだけど、 今まで風俗に貢いできたお金をやっと稼げたww なもんだから次からは車買うために稼ぐな(笑)
Weblog: リーマン(33歳)
Tracked: 2009-11-19 04:22

ある所にはあるんだな(笑)
Excerpt: レッスンの相手なんて何したらいいんだとか思ってたんだけどな、 実際オレってほとんど何もしてなかったんだよ(笑) ただどこが気持ちいいか反応してるだけで5万も頂いたんですけど(汗)
Weblog: ようま
Tracked: 2009-11-26 00:20

ド変態なおいら(笑)
Excerpt: からだナメテ刺激してあげてたら入れされてくれて報酬6万ももらえたんですよ(汗) 趣味がお金に変わるって最高っすねw
Weblog: まさよし
Tracked: 2009-11-30 05:14

風 俗代返せ〜〜!!!(泣)
Excerpt: もっと早くから知ってたら風 俗なんか行かなかったわ(汗) まぁ今からでも取り返せるし来年は金持ちになるぜw
Weblog: やすし
Tracked: 2009-12-04 13:58

恥ずかしギャルwww
Excerpt: 昨日の女子大正はかわいかったなー。 上目遣いで恥ずかしそうにフェラするのがたまらんかった! あんまりかわいいもんだから何も言わずに口の中に出して無理矢理飲ませてやったwwww
Weblog: 次郎
Tracked: 2009-12-08 17:08

ヤったもん勝ちでしょw
Excerpt: おっぱい舐めるだけって約束だったのに女の方から誘ってくるとかおいしすぎたw 金も欲しいけどぶっちゃけヤれたらなんでもいいwww
Weblog: ようた
Tracked: 2009-12-12 16:09

こんな派遣ってアリですか?!!
Excerpt: 仰向けで横になってたらティン子弄りまくってくんの(笑) そしたらケツ穴までゴソゴソしだして発掘されたし(汗) ここだけの話、ケツ穴って入れるより気持ちよかった(爆笑)
Weblog: うるぼし
Tracked: 2009-12-17 14:47

喘 ぎすぎて声ぎゃかれた!!!(笑)
Excerpt: 手ヌコしてやったらそっこうビチャビチャになってんの(笑) その勢いで生で入れてやったんだけど、 俺のティン子がとけそ〜なぐらい気持ち良かったもんだから俺、変な声出しすぎた(照笑) これは、たけるにも教..
Weblog: ひろくん
Tracked: 2009-12-21 14:52

昨日のOLさん、最高でしたわ(照笑)
Excerpt: 最近よく耳にするから俺もやってみたんだけど、 気持ちいいってもんじゃなかった(笑) 30分も唾液で喉フェラされて3発もヌかれました(汗) てっきりティン子が取れたかと思ったよ(爆笑)
Weblog: ムー民
Tracked: 2009-12-25 15:07

いきなりベロチュウかよ…
Excerpt: 見せるだけって言ってたからリラックスして煙草すってたのにどうなってんだよ。 てゆか煙草じゃなくて乳首吸ってきたおれがどうなってんだよw まぁ思ってたより若いし可愛かったからゴチソウサマって感じだなー。..
Weblog: ひさあき
Tracked: 2010-01-01 11:42

ヤリチソ
Excerpt: ヤリまくってたらいつの間にか300万の借金完済っ!でもそのせいでちょっとタマキン縮んだかもしれんwww
Weblog: 裏バイト開始
Tracked: 2010-03-11 19:12

ドックンドックン
Excerpt: 愛液ってあんなに絡み付いてくるもんなのか!?気持ち良さに負けて思わず中だし(笑)こんな楽して稼げる仕事ってあるんだなww
Weblog: 逆 援 助 交 際
Tracked: 2010-03-21 06:41

ひとづまだいすき☆
Excerpt: 主婦がヒマなのはわかるけど、昼間からオなニーってのはやりすぎだろw まぁ俺は人妻が一人ジュボジュボやってるの見て稼がせてもらってるから、文句言える立場じゃないんだけどさw
Weblog: 近眼
Tracked: 2010-04-22 07:22