Private Sub cmdGetTime_Click()
Winsock.Connect "stdtime.gov.hk", 13
End Sub
Private Sub Winsock_Close()
txtTime.Text = txtTime.Text & vbCrLf & "关闭连接"
End Sub
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String '13端口返回的是字符串数据类型!!!
Winsock.GetData tmpstr
txtTime.Text = tmpstr
Winsock.Close'大家帮我看看这条语句有必要吗?
End Sub