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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于微信

共有2288人关注过本帖树形打印复制链接主题：关于微信

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

关于微信

Post By：2018/6/6 15:04:00 [只看该作者]

Dim msg As new WeChat.MPSendText

msg.touser = "o_0W1wG4xCDJTpdqlTfjSdVjlznQ"

msg.text.content = "您好,这里是客服,请问有什么需要帮助的?"

Dim wechatServ As WeChat.WeChatPublicNo = WeChat.WeChatServer.Server("wx506f113977c3a8a3" )

Dim weRet = wechatServ.SendMsgController.SendMessage(msg.ToJson(True))

If weRet.Success Then

msgbox("已发送")

Else

msgbox("发送失败:" & weRet.ErrorMessage)

End If

这个例子我换成我的公众号测试一下怎么找不到对象,是不是还需要做什么设置?

有点甜

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

加好友

发短信

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

Post By：2018/6/6 15:35:00 [只看该作者]

参考

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

有点甜

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

加好友

发短信

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

Post By：2018/6/6 15:38:00 [只看该作者]

参考

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

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2018/6/6 15:48:00 [只看该作者]

这个我明白了,你贴出来的怎么和我的不一样的.你这个好像齐全嘛

有点甜

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

加好友

发短信

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

Post By：2018/6/6 15:56:00 [只看该作者]

你初始化公众号了没有？如果提示空对象，说明你没有做

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

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2018/6/6 16:02:00 [只看该作者]

我发送信息成功了,但是对方回复的信息我怎么获取? 一定需要搭建web 服务?

[此贴子已经被作者于2018/6/6 16:02:48编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/6/6 16:16:00 [只看该作者]

以下是引用blackzhu在2018/6/6 16:02:00的发言：
我发送信息成功了,但是对方回复的信息我怎么获取? 一定需要搭建web 服务?

[此贴子已经被作者于2018/6/6 16:02:48编辑过]

对方回复的信息，发送到微信服务器，然后微信服务器转发给你的web服务器的。

必须搭建接收的web。

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2018/6/6 16:26:00 [只看该作者]

Select Case e.host

Case "192.168.100.7","127.0.0.1","wechat.foxtable.com"

Select Case e.Path

Case "FoxTest"

If e.Request.HttpMethod.ToUpper = "GET" 'get模式为验证回调接口

e.WriteString(e.Values("echostr"))

ElseIf e.Request.HttpMethod.ToUpper = "POST"

Dim xml As String = e.PlainText

'记录消息内容到日志

Output.Logs("AppLogging").Add(xml)

Output.Logs("AppLogging").Save(ProjectPath & "log.txt",True)

Output.Logs("AppLogging").Clear

'回应公众号

e.WriteString("success") '如果是服务号和订阅号

'e.WriteString("") '如果是企业号

End If

End Select

我按照这个方式测试下获取不了信息是什么原因? 用的是 127.0.0.1 端口80

有点甜

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

加好友

发短信

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

Post By：2018/6/6 16:28:00 [只看该作者]

照着做

http://www.foxtable.com/mobilehelp/scr/0175.htm

如果本机测试，需要端口映射

http://www.nat123.com/

https://www.ngrok.cc/

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2018/6/6 17:17:00 [只看该作者]

Select Case e.path
    Case "wefox"
        If e.Request.HttpMethod = "GET" Then
            Dim token = "foxtable" '必须和设置的Token相同
            Dim signature As String = e.GetValues("signature")
            Dim timestamp As String = e.GetValues("timestamp")
            Dim nonce As String = e.GetValues("nonce")
            Dim echostr As String = e.GetValues("echostr")
            Dim aryTmp() As String = {token,timestamp,nonce}
            Array.Sort(aryTmp)
            Dim strTmp As String = String.Join("", aryTmp)
            strTmp = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(strTmp, "SHA1")
            If signature = strTmp.ToLower() Then
                e.WriteString(echostr)
            End If
        End If
End Select

按照这个的话页面会显示什么

下一主题 >> << 上一主题

总数 14 1 2 下一页

主题：关于微信