点击按钮出现错误：
'---------------------------获取互联网时间
Dim url As String = "http://api.k780.com:88/?app=life.time&appkey=10003&sign=b59bc3ef6191eb9f747dd4e83c99f2a4&format=json"
Dim hc As New HttpClient(url)
Dim str As String = hc.GetData()
Output.Show(str)
Dim jo As JObject = JObject.Parse(str)
Dim d As Date = jo("result")("datetime_1")
If da("结束使用时间") >= d.AddDays(-1)
If da("结束使用时间") >= d.AddDays(+3) '------------- 后补代码
da("最近登录时间") = Date.Now
DataTables("用户列表").Save()
forms("主页").open
e.Form.Close
Else '------------- 后补代码
MessageBox.show("软件使用将于 " & da("结束使用时间") & " 到期,您可参加主页活动延长使用时间!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
' MessageBox.show("使用时间马上结束!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
da("最近登录时间") = Date.Now
DataTables("用户列表").Save()
forms("主页").open
e.Form.Close
End If '------------- 后补代码
Else
Messagebox.show("使用时间已到!!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
加好友 
发短信
Post By：2022/11/2 16:29:00 [显示全部帖子]
