主题：怎样通过代码变更客户端电脑时间与服务端电脑一致

获取服务器时间，可以这样

http://www.foxtable.com/webhelp/scr/2318.htm

设置时间，代码，只需要注意红色代码

Dim url As String = "http://api.k780.com:88/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
stm.Dispose()
Output.Show(str)

Dim data As object
Dim JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
Dim ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", str)
End With

Dim d As Date = data.result.datetime_1
Today = d
TimeOfDay = d

用管理员权限运行你的exe程序。

试试这样

beforeOpenProject事件，写代码

Dim str As String = Registry.getvalue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers", ApplicationPath & "foxtable.exe", "")
If str = "" Then
    Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers", ApplicationPath & "foxtable.exe", "RUNASADMIN")
    e.cancel = True
    Application.restart
End If

按照这种方法修改，win10系统通不过，怎么办？

直接设置用管理员权限运行。没有权限，肯定是不能修改时间的。