Imports System.Runtime.InteropServices '修改系统时间用
1、API 方式
'api函数声明
<DllImport("kernel32.dll", CharSet:=CharSet.Ansi)> _
Public Shared Function SetSystemTime(ByRef time As SYSTEMTIME) As Boolean
End Function
<StructLayout(LayoutKind.Sequential)> _
Public Structure SYSTEMTIME
Public Year As Short
Public Month As Short
Public DayOfWeek As Short
Public Day As Short
Public Hour As Short
Public Minute As Short
Public Second As Short
Public Miliseconds As Short
End Structure
Dim t As SYSTEMTIME = New SYSTEMTIME()
t.Year = 2016
t.Month = 5
t.Day = 7
t.Hour = 12 - 8
t.Minute = 5
t.Second = 30
Dim v As Boolean = SetSystemTime(t)
MessageBox.Show(v)
2、简单型
Today = "2015/3/26"
TimeOfDay = "15:15"
3、说明:以上两种方式均需要获得管理员权限。