تغییر تاریخ ویندوز

[agamin]

چگونه می شود تاریخ ویندوز را تغییر داد؟

[f.nabavi]

سلام. با کمک این API میشه تاریخ و زمان سیستم رو تنظیم کرد. البته حتما باید تمام بخشهای مربوط به تاریخ و زمان رو تنظیم کنید، چون در غیر این صورت لیست آرگومان های تابع کامل نمیشه و کار نمیکنه.


Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Function SetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) As Long
Private Sub Form_Load()
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = 2000
lpSystemTime.wMonth = 1
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = 24
lpSystemTime.wHour = 23
lpSystemTime.wMinute = 26
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
'set the new time
SetSystemTime lpSystemTime
End Sub

اگر میخوای که زمان سیستم تغییر نکنه از کد رو به صورت زیر تغییر بده.

Dim th As String
Dim tm As String
tm = Minute(Time)
th = Hour(Time)
Dim lpSystemTime As SYSTEMTIME
lpSystemTime.wYear = a(2)
lpSystemTime.wMonth = a(0)
lpSystemTime.wDayOfWeek = -1
lpSystemTime.wDay = a(1)
lpSystemTime.wHour = Hour(Time)
lpSystemTime.wMinute = Minute(Time)
lpSystemTime.wSecond = 0
lpSystemTime.wMilliseconds = 0
SetSystemTime lpSystemTime
Time = th & ":" & tm
End If