判断是否有关注公众号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

测试一下提示框是否能够出现

……

If jo("openid") IsNot Nothing Then '如果获取openid成功(成功的话,还会同时返回一个accesstiken,用于获取用户详情)

OpenID = jo("openid")

If e.GetValues("state") = "gugisrq" Then

popmessage(openid) '正常执行

Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"

url = CExp(url, Functions.Execute("GetAccessToken12","变量A"), openid) 'oI4erjj48vvEdVxFzbAj6fZ8SSLw

Dim hc1 As New HttpClient(url)

Dim jo1 As JObject = Jobject.Parse(hc1.GetDaTa)

popmessage(jo1("subscribe")) ‘能够弹出来吗

If jo1("openid") IsNot Nothing Then

If jo1("subscribe") = "0" Then

msgbox(0)

e.WriteString("请先关注公众号")

Return

ElseIf jo1("subscribe") = "1" Then

e.writestring("可以访问网页")

msgbox(1)

Return

End If

Else

e.WriteString(jo.ToString) '在用户浏览器显示错误信息

msgbox(2)

Return

End If

msgbox(3)

以上黄色这段单独测试没问题（用固定的openid），整段去掉黄色的也没问题。就是这样放在一起，一访问这个页面就死掉。不知道什么原因。。。

End If

……

If e.GetValues("state") = "gugisrq" Then

popmessage(openid) '正常执行

Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"

dim acc as string = Functions.Execute("GetAccessToken12","变量A")

msgbox(acc)

url = CExp(url, acc, openid) 'oI4erjj48vvEdVxFzbAj6fZ8SSLw

Dim hc1 As New HttpClient(url)

dim ret as strng = hc1.GetDaTa

msgbox(ret)

Dim jo1 As JObject = Jobject.Parse(ret)

popmessage(jo1("subscribe")) ‘能够弹出来吗

If jo1("openid") IsNot Nothing Then

If jo1("subscribe") = "0" Then

msgbox(0)

e.WriteString("请先关注公众号")

中控服务是如何处理的，写了什么代码？Dim hc As New HttpClient("http://www.yft.net/GetAccessToken/")

www.yft.net是否是和微信服务是同一台电脑的？是云服务器还是本地服务器？

如果中控服务和微信服务是在同一个项目的，直接调用获取AccessToken的函数；如果不是同一个项目但是在同一台服务器的，通过本地ip访问，如"http://127.0.0.1/GetAccessToken/"

主题：判断是否有关注公众号