VB.NET特有的修改系统时间的方式

代码如下

Today=日期
TimeOfDay=时间

有两点需要特别注意

1，需要以管理员权限运行，可以按下图设置

修改好后再关闭clickone即可，保存设置后生成的程序会在图标上加一个盾牌，如下图

第二点需要注意的是不要在异步方式里设置，比如通过服务器异步获取来校准时间，本人亲测大几率不会生效，如果实在要在异步里去做，那么通过调用自定义过程的方式就ok。代码如下

Private Sub 设置系统时间(d As String, t As String)
    Today = d
    TimeOfDay = t
End Sub

如果你有更好的方式欢迎交流指教。