16.htm

来自「VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.」· HTM 代码 · 共 13 行

<p>保证连网计算机时间同步</p>
<p></p>
<p>执行命令：</p>
<p>net time "\\OhterComputerName" /set /yes 可以保证名称为OhterComputerName 的计算机与本机时间同步。</p>
<p>Public Sub SyncTime()</p>
<p>Dim thecomp As String</p>
<p>Dim theshell As String</p>
<p>thecomp = "\\computername"</p>
<p>theshell = "net time " & Chr(34) & thecomp & Chr(34) & " /set /yes"</p>
<p>x = Shell(theshell) </p>
<p>End Sub</p>
<p></p>