正文
vb.net同步电脑时间的简单介绍
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
vb.net同步对方电脑时间
Shell("cmd.exe /c net time \\server /set /y", vbHide)
'其中server表示服务器
vb net获取系统时间
Sub gettime()
nowtime = Format(DateTime.Now, "yyyy/MM/dd hh:mm:ss")
MsgBox nowtime
End Sub
其中DateTime.Now为当前系统vb.net同步电脑时间的时间
Format是设置时间格式
效果如下
VB实现服务器时间和本机时间同步
在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间
private
sub
form_load()
timer1.interval
=
300
end
sub
private
sub
timer1_timer()
dim
cnn
as
new
adodb.connection
dim
cmd
as
new
adodb.command
dim
rst
as
new
adodb.recordset
dim
sqlser_time
cnn.connectionstring
=
"driver={sql
server};"
_
"server=server;uid=sa;pwd=;database=master"
cnn.open
cmd.activeconnection
=
cnn
cmd.commandtext
=
"select
getdate()
as
sys_sqlser_time"
set
rst
=
cmd.execute
sqlser_time
=
rst(0)
text1.text
=
sqlser_time
rst.close
cnn.close
end
sub
电脑的时间怎么设置和网络同步
电脑的时间设置和网络同步可以在电脑的设置中更改,具体办法如下:
1、在电脑右下角的时间栏上右击,选择调整日期和时间。
2、选择internet时间选项卡。
3、点击更改设置。
4、勾选与Internet时间服务器同步。
5、选择合适的服务器地址并确认。也可以手动输入,time.windows.com。
vb 如何通过本地连接吧客户端系统时间调整和服务端系统时间相同
我从来没用过VB,所以具体代码就没办法给你了
w32tm命令,自己搜索相关内容
通过参数可以完成同步
我以前不知道这命令,
用过三种方法完成过
1、发送信息到NTP服务器
2、写了服务端可客户端,客户端同步的时候请求服务端,服务端读取本机时间后返回给客户端,客户端通过API修改时间(这个要在服务器上放程序)
3、使用net time \\IP,获取返回值,通过字符截取,在用API修改是时间(这个时间有延迟,1分钟内的误差)
w32tm.exe这个是标准的NTP客户端啊,好用啊,早知道我都不用那么麻烦了
vb 获取网络时间
下列代码不用任何控件就能从国家授时中心网页获取时间获得网络时间。
Function NetTime(Optional url As String) As String '返回包括时间和日期的字符串
Dim obj, OBJStatus, Retrieval
Dim GetText As String
Dim i As Long
Dim myDate As Date
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
If url = "" Then
url = "" '从国家授时中心网页获取时间
End If
'通过下载网页头信息获取网络时间
On Error Goto ToExit
With Retrieval
.Open "Get", url, False, "", ""
.setRequestHeader "If-Modified-Since", "0"
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Connection", "close"
.Send
If .Readystate 4 Then Exit Function
GetText = .getAllResponseHeaders()
i = InStr(1, GetText, "date:", vbTextCompare)
If i 0 Then '网页下载成功
i = InStr(i, GetText, ",", vbTextCompare)
GetText = Trim(Mid(GetText, i + 1))
i = InStr(1, GetText, " GMT", vbTextCompare)
GetText = Left(GetText, i - 1)
myDate = GetText '字符串变为时间类型
myDate = myDate + #8:00:00 AM# '将时间转化为北京时间
NetTime = myDate '将时间转化为字符串
End If
End With
ToExit:
Set Retrieval = Nothing
Set OBJStatus = Nothing
Set obj = Nothing
End Function
利用上述NetTime函数,可以将本机时间同步到标准时间,误差一般不超过1秒,如果多次运行或加上网络延时校正代码可进一步减少误差。
运行代码后,可以用第三方软件或到国家授时中心网站查看本机时间与标准时间的误差以验证代码的效果,当然更可以用第三方软件来校正电脑时间,这样误差将不超过0.1秒。这是VB中用Time语句设定本机时间无法实现的,因为Time语句的“分辨率”只能达到整秒。
Sub UpDateTime()
Dim sTime as String
sTime=NetTime()
On Error Resume Next
If Stime"" Then
Time=sTime
Date=sTime
End If
End Sub
关于vb.net同步电脑时间和的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。