无法解析此远程名称: '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编辑过]

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

或者" 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放在整个代码前面？

****

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编辑过]

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

困扰：代码越写越多，难免会有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

老师，您好。

上面提到的问题，按帮助代码处理，能自动关闭弹窗并记录错误。

现在偶尔还会碰到一些弹窗，无法自取关闭，影响了整个服务器的进程。

我判断是，“获取access_token”函数出问题的可能性比较大

Dim AppId As String = "wx***" '开发者ID

Dim AppSecret As String = "827***" '开发者密匙

Dim tp As TimeSpan = Date.Now - CreateTime

Dim url As String = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid={0}&secret={1}"

If tp.TotalSeconds > 3600 Then

Dim hc As New HttpClient(CExp(url,AppId,AppSecret))

Dim ret As String = hc.GetData()

If ret = "" Then '如果失败,再尝试一次

hc.GetData()

End If

CreateTime = Date.Now()

Dim jo As JObject = JObject.Parse(ret)

If jo("errcode") Is Nothing Then '搜索论坛，有说改成： If jo("errcode") = 0 Then

AccessTocken = jo("access_token")

Else

MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo("errmsg").ToString)

End If

Return AccessTocken

其中一次错误有截图，只能通过手动关闭，服务器才能正常运行。

返回码 41001：缺少access_token参数

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

[此贴子已经被作者于2017/10/11 16:53:40编辑过]

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