- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 无法解析此远程名称: 'api.weixin.qq.com' (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105222)
-- 发布时间：2017/8/14 17:32:00
-- 无法解析此远程名称: 'api.weixin.qq.com'
近期微信服务器会弹出如下内容错误，然后登录不了微信公众号。
把错误窗口关闭，就可以正常使用。
能判断问题出在哪吗？
代码太多了，近期我也只增加网页，并没有动与微信连接处的代码。
无法解析此远程名称: \'api.weixin.qq.com\'
Error reading JObject from JsonReader. Path \'\', line 0, position 0.
我会用模板推送一些信息到相应的人员，会不会是这里出的问题？
那也不知道怎么弄，取消推送？
此主题相关图片如下：111.jpg
[此贴子已经被作者于2017/8/14 17:35:35编辑过]
-- 发布时间：2017/8/14 18:26:00
--
测试了一下，应该是你网络的DNS有问题，最近联通等网络都有此问题，你的网络是哪种类型的？
关键是能否ping通对应的地址 ping api.weixin.qq.com
再有就是，你代码那里可以加上 try Catch 捕捉错误，如果出错，就忽略或提示。
-- 发布时间：2017/8/15 20:12:00
--
老师，是否可以加代码，如果是正常连接的，就发送模板信息，否则就不发，继续作业。
或者" 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
****
-- 发布时间：2017/8/15 20:20:00
--
……
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
……
-- 发布时间：2017/8/16 8:46:00
--
老师，早上好。
代码不完整，不知道补充什么。
然后我想，是否把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编辑过]
-- 发布时间：2017/8/16 9:07:00
--
try
你的代码
catch ex as exception
output.show(ex.message)
End try
-- 发布时间：2017/8/16 12:08:00
--
谢谢老师的指导，代码已修改，试用中，有问题再来麻烦老师。
困扰：代码越写越多，难免会有bug，而有些bug一出现，就会中断程序的执行，整个服务器就当机，造成无法正常访问。
想法：提供辅助工具，或者相应的代码，比如：计划任务，外挂程序等等，定期关闭这些窗口。这样至少or确保服务器能正常访问。
此主题相关图片如下：123.jpg
[此贴子已经被作者于2017/8/16 12:10:08编辑过]
-- 发布时间：2017/8/16 12:10:00
--
参考：http://wechat.foxtable.com:9009/WebHelp/scr/we0008.htm
-- 发布时间：2017/8/17 10:47:00
--
按老师的指导，增加try---end try，还是会有错误提示，请查看附件Mmsglog.txt。
现在服务器是能正常运行的，但有错误总想要解决，看是否要调整代码位置，或者修改代码。
我服务器用的是电信宽带的，在自己省份(浙江省)测试的时候是正常的，现在分公司(广东、山东、重庆、江苏、湖北等等)也开始试用，目前大概60多人在试用，开始出现这个错误提示的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:mmsglog.txt |
------
另外，发现个事：怎么if和end try对齐呼应了，end if孤零零的，程序正常执行没问题。
此主题相关图片如下：1111.jpg
-- 发布时间：2017/8/17 14:27:00
--
【无法解析此远程名称: \'api.weixin.qq.com\'】
这个错误和代码无关，是你电脑、网络的问题。你电脑解释dns的时候出错，自然就会报这个错误。