求助“未能解析此远程名称” - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：

详细错误信息：

未能解析此远程名称: 'api.k780.com'

做什么操作出现的错误，检查相关代码和设置

点击按钮出现错误：

'---------------------------获取互联网时间

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

我测试没有问题。看看是不是客户端电脑被限制了不能访问网络

网页可以正常浏览，不知道现在是哪里的问题，还请蓝老师指点迷津

以下是引用sunion0769在2022/11/2 16:59:00的发言：
网页可以正常浏览，不知道现在是哪里的问题，还请蓝老师指点迷津

是不是你玩的太频繁了，那个网站把你Ip限制了

参考一下我做的以下代码：

'取网络时间

Dim FWdt As Date

Dim htc As New HttpClient("http://www.baidu.com")

htc.SkipError = True

htc.Timeout = 1

If htc.GetInformation() Then

FWdt = CDate(htc.ResponseHeaders("date")) '取得网页头部日期

Else

FWdt = Date.Today '网络不通的话将今天赋值

End If

htc.Close() '必须执行Close方法关闭连接

主题：求助“未能解析此远程名称”