UC知道用VB的SOCK控件对时《热心的朋友请帮助我
来源：百度知道 编辑：UC知道 时间：2024/05/10 14:44:04
请教朋友我应该怎么写个对时程序，我想用于试用软件中检测程序是否过期
例如：我的软件不能超过2008年X月X日使用，网络授时大于这个时间，程序就自己建立个BAT来删除自己~
主要是如何用这个WINSOCK来实现比较软件里和网站上的时间~谢谢帮我的朋友。有代码的给写段，有思路的给点建议，主持不吝指教——谢谢了~
我的邮箱 mmll6414@163.com
在这10分呈上；愿广交天下友
例如：我的软件不能超过2008年X月X日使用，网络授时大于这个时间，程序就自己建立个BAT来删除自己~
主要是如何用这个WINSOCK来实现比较软件里和网站上的时间~谢谢帮我的朋友。有代码的给写段，有思路的给点建议，主持不吝指教——谢谢了~
我的邮箱 mmll6414@163.com
在这10分呈上；愿广交天下友
给你一段读取香港天文台时间的程序，其他自己写。
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