如何通过在 vb.net 中单击按钮来更正系统时间

Question

我创建了一个时间校正应用程序，当单击“校正时间”按钮时可以校正系统时间。如何将系统时间更改为当前时间。我将使用该应用程序用于我的计算机时间错误。

Answer 1

'create a datetime object with the current time
Dim correctTime = DateTime.Now()
'adjust the time
correctTime.AddSeconds(1)

'set the time on your machine
Try
    Microsoft.VisualBasic.TimeOfDay = correctTime
Catch ex As Exception
    MessageBox.Show("Could not set the time. You probably need to run as Administrator to do this. " + ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try

You will need to be running "As Admin" to adjust the time though