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

近期微信服务器会弹出如下内容错误，然后登录不了微信公众号。

把错误窗口关闭，就可以正常使用。

能判断问题出在哪吗？

代码太多了，近期我也只增加网页，并没有动与微信连接处的代码。

无法解析此远程名称: 'api.weixin.qq.com'

Error reading JObject from JsonReader. Path '', line 0, position 0.

我会用模板推送一些信息到相应的人员，会不会是这里出的问题？

那也不知道怎么弄，取消推送？

此主题相关图片如下：111.jpg

[此贴子已经被作者于2017/8/14 17:35:35编辑过]

测试了一下，应该是你网络的DNS有问题，最近联通等网络都有此问题，你的网络是哪种类型的？

关键是能否ping通对应的地址 ping api.weixin.qq.com

再有就是，你代码那里可以加上 try Catch 捕捉错误，如果出错，就忽略或提示。

老师，是否可以加代码，如果是正常连接的，就发送模板信息，否则就不发，继续作业。

或者" try Catch 捕捉错误，如果出错，就忽略或提示"，代码要怎么写？

现在的话，一错误就服务器断线无法登录。

*****

'------推送消息到收件者微信公众号

Dim url As String = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token={0}"

Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))

Dim jo As New JObject

Dim ja As New JArray

jo("touser") = ""& str1 &""

jo("template_id") = "cVbthQmMQXW8KFik6EhdiRWHwKhSYnX-nKik7vAZ8x0" '模板ID

jo("url") = "http:/****"

'Dim dt As Date = Date.Today()

jo("data") = New JObject()

jo("data")("first") = New JObject()

jo("data")("first")("value") = ""& str2 &" 对您**."

jo("data")("first")("color") = "#8B008B"

jo("data")("keyword1") = New JObject()

jo("data")("keyword1")("value") = ""& str3 &""

jo("data")("keyword1")("color") = "#0000CD"

jo("data")("keyword2") = New JObject()

jo("data")("keyword2")("value") = ""& dt1 &""

jo("data")("keyword2")("color") = "#0000CD"

jo("data")("remark") = New JObject()

jo("data")("remark")("value") = "PS.此信息为系统自动发送,请勿回复.若影响到您,请联系管理员取消."

jo("data")("remark")("color") = "#FF4500"

hc.content = jo.Tostring()

jo = JObject.Parse(hc.getdata)

If jo("errcode") = "0" Then '发送成功,则保存相应信息.若不成功,则不提示,不然会中断整个程序.

Dim dr5 As DataRow = DataTables("TemplateMessage").AddNew()

dr5("MsgID") = jo("msgid") '动态生成的消息ID,每个消息都不同

dr5("OpenID") = ""& str1 &"" '收件者OpenID

dr5("接收者") = ""& str4 &"" '收件者姓名

dr5("发送者") = ""& str2 &"" '发件者姓名

dr5("Description") = "工作汇报: "& str2 &" -> "& str4 &" -> ***"

dr.Save()

End If

****

……

try

jo = JObject.Parse(hc.getdata)

If jo("errcode") = "0" Then '发送成功,则保存相应信息.若不成功,则不提示,不然会中断整个程序.

Dim dr5 As DataRow = DataTables("TemplateMessage").AddNew()

dr5("MsgID") = jo("msgid") '动态生成的消息ID,每个消息都不同

dr5("OpenID") = ""& str1 &"" '收件者OpenID

dr5("接收者") = ""& str4 &"" '收件者姓名

dr5("发送者") = ""& str2 &"" '发件者姓名

dr5("Description") = "工作汇报: "& str2 &" -> "& str4 &" -> ***"

dr.Save()

End If

End try

……

老师，早上好。

代码不完整，不知道补充什么。

然后我想，是否把try放在整个代码前面？

****

try

'------推送消息到收件者微信公众号

Dim url As String = "https://api.weixin.qq.com/cgi-bin/message/template/send?access_token={0}"

Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))

Dim jo As New JObject

Dim ja As New JArray

jo("touser") = ""& str1 &""

jo("template_id") = "cVbthQmMQXW8KFik6EhdiRWHwKhSYnX-nKik7vAZ8x0" '模板ID

jo("url") = "http:/****"

'Dim dt As Date = Date.Today()

end if

end try

此主题相关图片如下：001.jpg

[此贴子已经被作者于2017/8/16 8:47:23编辑过]

try
你的代码

catch ex as exception

output.show(ex.message)
End try

谢谢老师的指导，代码已修改，试用中，有问题再来麻烦老师。

困扰：代码越写越多，难免会有bug，而有些bug一出现，就会中断程序的执行，整个服务器就当机，造成无法正常访问。

想法：提供辅助工具，或者相应的代码，比如：计划任务，外挂程序等等，定期关闭这些窗口。这样至少or确保服务器能正常访问。

此主题相关图片如下：123.jpg

[此贴子已经被作者于2017/8/16 12:10:08编辑过]

按老师的指导，增加try---end try，还是会有错误提示，请查看附件Mmsglog.txt。

现在服务器是能正常运行的，但有错误总想要解决，看是否要调整代码位置，或者修改代码。

我服务器用的是电信宽带的，在自己省份(浙江省)测试的时候是正常的，现在分公司(广东、山东、重庆、江苏、湖北等等)也开始试用，目前大概60多人在试用，开始出现这个错误提示的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:mmsglog.txt

------

另外，发现个事：怎么if和end try对齐呼应了，end if孤零零的，程序正常执行没问题。

此主题相关图片如下：1111.jpg

【无法解析此远程名称: 'api.weixin.qq.com'】

这个错误和代码无关，是你电脑、网络的问题。你电脑解释dns的时候出错，自然就会报这个错误。

主题：无法解析此远程名称: 'api.weixin.qq.com'