主题：[求助]微信回复出错

公众号已调通了，在本地命令窗口复制了示例的代码，命令如下。

'Dim pinfo As New WeChat.WeChatPublicNoInfo()
'pinfo.DeveloperID = "wx799a49949aa8bc2a" '公众号开发者ID
'pinfo.DeveloperSecret = "TUfUt9XS5PBAElbOdwOwt1fdF2jZ6sTyG5q3zvJS7Zu" '公众号的开发者密钥
'pinfo.Token = "yujinhai" '消息令牌
'pinfo.EncodingAESKey = "明文模式" '消息加密密钥
'pinfo.PublicNoType = 1 '1=服务号 3=订阅号
'pinfo.CryptMsgType = 1 '明文消息 2=加密消息
'WeChat.WeChatServer.Add(pinfo) '添加服务号到服务'

 

Dim text As String = "{""touser"":""oBDTP1JU_EdrjX74oyxv64ul9Sis"",""msgtype"":""text"",""text"":{""content"":""您好,这里是客服,请问有什么需要帮助的?""}}"

Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx799a49949aa8bc2a" )
Dim weRet = wechatServ.SendMsgController.SendMessage(text)
If weRet.Success Then
    msgbox("已发送消息")
Else
    msgbox("发送失败:" & weRet.ErrorMessage)
End If

但是执行出错。

 

此主题相关图片如下：qq图片20171229104133.png

注释去掉也不行。

要不您把这段代码执行一下，我在公众号里看有回复没有。

我就是关注后发了条消息，后台可以接收消息。这样才获得的openid信息的。这个调不通倒也无所谓，我只是想用扫码功能，想问一下咱们这个贴子http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=107063里的例子，如果不做app，直接在公众号菜单里调用，是否可以不用微信的扫码功能也可以正常扫码？

谢谢您