Vb编写代码修改计算机时间,VB 从取得标准时间然修改电脑时间?

是的，你可以使用VB编写代码来获取标准时间并修改电脑时间。你可以使用以下步骤来实现：

1. 导入 "System.Management" 命名空间。

2. 使用以下代码获取标准时间：

Dim managementScope As New ManagementScope("\\.\root\CIMV2")
managementScope.Connect()
Dim query As New ObjectQuery("SELECT * FROM Win32_OperatingSystem")
Dim searcher As New ManagementObjectSearcher(managementScope, query)
Dim queryCollection As ManagementObjectCollection = searcher.Get()
Dim mbo As ManagementObject
For Each mbo In queryCollection
    Dim dtmInstallDate As Date = ManagementDateTimeConverter.ToDateTime(mbo("LastBootUpTime").ToString())
    Dim dtmSystemStartDate As Date = dtmInstallDate.AddSeconds(-dtmInstallDate.Second)
    Console.WriteLine(dtmSystemStartDate)
Next

3. 使用以下代码来修改电脑时间：

Dim t As Date = #12/31/2008 11:59:59 PM#
SystemTime.SetSystemTime(t)

其中，SystemTime 是一个自定义类，代码如下：

Imports System.Runtime.InteropServices.StructLayout
Imports System.Runtime.InteropServices

Public Class SystemTime
    <DllImport("kernel32.dll", EntryPoint:="SetSystemTime", SetLastError:=True)>
    Private Shared Function Win32SetSystemTime(ByRef sysTime As SYSTEMTIME) As Boolean
    End Function

    Public Shared Function SetSystemTime(ByVal dt As Date) As Boolean
        Dim st As SYSTEMTIME
        st.wYear = CType(dt.Year, Short)
        st.wMonth = CType(dt.Month, Short)
        st.wDay = CType(dt.Day, Short)
        st.wHour = CType(dt.Hour, Short)
        st.wMinute = CType(dt.Minute, Short)
        st.wSecond = CType(dt.Second, Short)
        st.wMilliseconds = CType(dt.Millisecond, Short)
        Return Win32SetSystemTime(st)
    End Function

    <StructLayout(LayoutKind.Sequential)>
    Private Structure SYSTEMTIME
        Public wYear As Short
        Public wMonth As Short
        Public wDayOfWeek As Short
        Public wDay As Short
        Public wHour As Short
        Public wMinute As Short
        Public wSecond As Short
        Public wMilliseconds As Short
    End Structure
End Class

这样就可以使用VB编写代码来获取标准时间并修改电脑时间了。