Question

VB程序设定使用时间限制，比如我要程序在2018年元旦到期。

目前思路是从网上获取时间，与预设时间对比，如果超时则不能用。如果不能联网也不能用。
请大神指点

Answer 1

'加一个时钟控件time1
Private Function strGetDate() As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "Get", "http://www.symental.com/time/datetime.asp", False
XmlHttp.send
strGetDate = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
End Function

Private Sub Form_Load()
Timer1.Interval = 3600000 '设置每小时检测一次
End Sub

Private Sub Timer1_Timer()
Dim NowTime As String, SetTime As String
NowTime = Format(strGetDate, "yyyy-MM-dd hh:mm:ss") '取得网上现在时间

SetTime = "2018-01-1 00:00:00" '设置到期时间
If NowTime > SetTime Then MsgBox ("软件使用时间一到！")

End Sub

追问

此段代码跟我之前查到的一样，对此有两个疑问
1、获取时间与设定时间的比较，两者的文字类型是什么？ 字符串？或者数字？
2、有没有办法绕开验证

追答

1、字符串也可以进行比较的，这里就用字符串进行比较。
2、我这里没有进行网络检测，如果加上应该没有办法绕开验证。

Answer 2

可以实现，只要ping模块和获取网页源码模块即可

Answer 3

这个我可以做出来给你。

追问

希望可以提供思路及绕开验证的方法，如果有完整代码就更好了。必须追加悬赏，谢谢

追答

1、检查国家授时中心网站是否正常连接
2、如果正常连接，国家授时中心网站获取时间信息，如果时间大于2018年元旦，结束程序
3、如果不能正常连接，结束程序