vbnet 修改系统时间

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、说明：以上两种方式均需要获得管理员权限。