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

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

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

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

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

blackzhu

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

加好友

发短信

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

Post By：2018/6/6 15:48:00 [显示全部帖子]

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

blackzhu

小大 3楼 | 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编辑过]

blackzhu

小大 4楼 | 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

blackzhu

小大 5楼 | 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

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

blackzhu

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

加好友

发短信

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

Post By：2018/6/7 9:51:00 [显示全部帖子]

因为我同事在开发PHP的手机端,WEB服务他搭建好了,如果不是用狐表搭建的,应该怎么处理获取数据?

blackzhu

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

加好友

发短信

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

Post By：2018/6/7 10:55:00 [显示全部帖子]

好的我明白了

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

主题：关于微信