| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助“未能解析此远程名称” (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183355) |
| -- 作者：sunion0769 -- 发布时间：2022/11/2 16:29:00 -- 求助“未能解析此远程名称” .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2022.8.18.1 错误所在事件： 详细错误信息： 未能解析此远程名称: \'api.k780.com\'
|
| -- 作者：有点蓝 -- 发布时间：2022/11/2 16:32:00 -- 做什么操作出现的错误，检查相关代码和设置 |
| -- 作者：sunion0769 -- 发布时间：2022/11/2 16:35:00 -- 点击按钮出现错误： \'---------------------------获取互联网时间 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
|
| -- 作者：有点蓝 -- 发布时间：2022/11/2 16:39:00 -- 我测试没有问题。看看是不是客户端电脑被限制了不能访问网络 |
| -- 作者：sunion0769 -- 发布时间：2022/11/2 16:59:00 -- 网页可以正常浏览，不知道现在是哪里的问题，还请蓝老师指点迷津 |
| -- 作者：notebook -- 发布时间：2022/11/2 17:05:00 -- 以下是引用sunion0769在2022/11/2 16:59:00的发言：
是不是你玩的太频繁了，那个网站把你Ip限制了
网页可以正常浏览，不知道现在是哪里的问题，还请蓝老师指点迷津 |
| -- 作者：洮沙 -- 发布时间：2022/11/2 17:12:00 -- 参考一下我做的以下代码： \'取网络时间 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方法关闭连接 |