Loading_AllMPUsers 提示stringToUnescape为空 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Loading_AllMPUsers 提示stringToUnescape为空

共有2246人关注过本帖树形打印复制链接主题：Loading_AllMPUsers 提示stringToUnescape为空

zwjfx

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：2622 威望：0 精华：0 注册：2014/3/18 12:20:00

Loading_AllMPUsers 提示stringToUnescape为空 发帖心情

Post By：2018/1/8 11:35:00 [只看该作者]

.NET Framework 版本：2.0.50727.8762

Foxtable 版本：2017.12.18.1

错误所在事件：自定义函数Loading_AllMPUsers

详细错误信息：

调用的目标发生了异常。

值不能为空。

参数名: stringToUnescape

一般应该是那里的问题呢

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/8 11:37:00 [只看该作者]

贴出你内部函数【stringToUnescape】的代码。

你可以加入msgbox定位你出错的位置，看哪句代码出错 http://www.foxtable.com/webhelp/scr/1485.htm

zwjfx

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：2622 威望：0 精华：0 注册：2014/3/18 12:20:00

Post By：2018/1/8 11:46:00 [只看该作者]

这个是微信接口案例里面的，公众号都设置好，服务端没问题，客户端同步标签或者同步用户报错

'下载更新指定公众号的所有关注用户

Dim e = Args(0)

If e IsNot Nothing Then

e.Form.Controls("lblTitle").Text = String.Format("正在同步公众号[{0}]的用户,请稍候......",_WeChatPubNo.Name)

Dim txtProgress As WinForm.TextBox = e.Form.Controls("txtProgress")

Functions.Execute("Loading_AddDescription",txtProgress,"-|正在通过接口获取用户列表......")

Dim wechatserv = _WeChatPubNo.GetWeChatServer() '获取公众号服务

Dim userlist = wechatserv.UserController.GetUserList(,True) '获取

MessageBox.show(0.1)

End If

其中 Dim userlist = wechatserv.UserController.GetUserList(,True) 报错

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/8 12:03:00 [只看该作者]

你 _WeChatPubNo 的获取有没有问题？请确认你的值是正确的。

http://wechat.foxtable.com:9009/WebHelp/scr/we0016.htm

zwjfx

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：146 积分：2622 威望：0 精华：0 注册：2014/3/18 12:20:00

Post By：2018/1/8 12:07:00 [只看该作者]

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

应该是没问题

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110795 积分：563913 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/1/8 12:14:00 [只看该作者]

是什么号？服务号还是企业微信？

1、客户端项目Initialize事件代码去掉试试

2、执行看有没有问题

msgbox(wechatserv is nothing)

Dim userlist = wechatserv.UserController.GetUserList()

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/8 12:20:00 [只看该作者]

你 _WeChatPubNo 肯定有问题。执行下面代码，把开发者id、密钥等等改成自己，然后测试。如果报错，就是你参数没弄对。

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

Dim server As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3")
If server IsNot Nothing Then
Output.Show(server.GetCallbackIP().tostring)
Else
Output.Show("此公众号服务尚未添加!")
End If