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

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

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

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

try
    你的代码

catch ex as exception

    output.show(ex.message)
End try

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

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

这个代码，你可以删除

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