怎么获得正确的时间连网，从别的地方获得 用Now獲得電腦系統時間(Date&Time) 按照楼主的说法，无法获得准确的时间，因为只有相对，没有绝对。 使用Now函数可以获得你的计算机的当前时间。 http://www.nokiamobile.org.cn/post/1287444.html Private Sub Command1_Click() Winsock1.Connect "stdtime.gov.hk", 13 End Sub
Private Sub Winsock1_Close() Text1.Text = Text1.Text & vbCrLf & "关闭连接" End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim tmpstr As String '13端口返回的是字符串数据类型！！！ Winsock1.GetData tmpstr Text1.Text = tmpstr Winsock1.Close '大家帮我看看这条语句有必要吗？ End Sub
