كمك فوري.!! : آپديت كردن تاريخ سيستم

[ali 711]

با سلام به همه دوستان و اساتيد عزيز
از عنوان تاپيك معلومه چي مي خواهم بگم ::

يه كدي مختصر لازم دارم كه بتونه از طريق اينترنت تاريخ و ساعت سيستم رو آپديت كنه براي ويژوال بيسيك
اساتيد و دوستان عزيز خواهشا راهنمايي كنيد.!!!
پيشاپيش ممنون از همه

[hmbarnamenevis]

با این کد می تونی ساعت چندین جای مختلف را بدست آورید. فقط خروجی آن یک کد html است.

Dim objHttp


Set objHttp = CreateObject("Msxml2.ServerXMLHTTP")
objHttp.Open "GET", "http://tycho.usno.navy.mil/cgi-bin/timer.pl", False


objHttp.Send
output = objHttp.ResponseText
Set objHttp = Nothing

[ali 711]

ممنون دوست خوبم :قلب: با اين كد بايد چكار كنم.؟؟؟
من دنبال يه كدي هستم كه باهاش بشه تاريخ و ساعت سيستم رو مستقيما بروز تنظيم كرد (آپديت كرد)
مثالا تاريخ سيستم من هم اكنون مال سال 2003 هست مي خوام بروزش كنم از (طريق اينترنت) يعني بشه 2014 كه الان هستيم.
اگر از طريق CMD بشه آپديت كرد ديگه چه بهتر
لطف بزرگي به من ميكنيد:قلب:

[hmbarnamenevis]

ابتدا با این تابع تاریخ و ساعت به روز شده رو بدست می آورید که خروجی آن مثلا اینگونه است: "14-08-05 13:49:34"

Public Function GetUpdateDateTime() As String
Dim SvrName, xPost, HttpAdd, NowTime, StartTime
StartTime = Now
SvrName = "utcnist.colorado.edu"
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colTimeZone = objWMIService.ExecQuery("Select * from Win32_computersystem")
For Each objTimeZone In colTimeZone
offset = objTimeZone.currenttimezone
Next
Set xPost = CreateObject("Microsoft.XMLHTTP")


HttpAdd = "Http://" & SvrName & ":13": NowTime = ""
frmsvr = SvrName
xPost.Open "Put", HttpAdd, False
'//synchronize
xPost.Send
'//send requst to http server and receive response
'//set delay
If xPost.readyState = 4 Then
'//success or failed
NowTime = Mid(xPost.responsetext, 8, 17)
GetUpdateDateTime = NowTime
'//return response
End If
'//internet connection problem
If DateDiff("s", StartTime, Now) >= 30 And NowTime = "" Then
GetUpdateDateTime = "Please check your internet connection."
End If
'EndWhile
Rem EndConnect
xPost.abort
Set xPost = Nothing
End Function

حالا می توانید با تابع Date و Time ویژوال بیسیک تاریخ و زمان سیستم را تغییر دهید.

[vbhamed]

سلام
اين يك نمونه