Foxtable(狐表)用户栏目专家坐堂 → 如何限制网页只能在微信内置浏览器中打开?


  共有2035人关注过本帖树形打印复制链接

主题:如何限制网页只能在微信内置浏览器中打开?

帅哥哟,离线,有人找我吗?
郭元友
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:17 积分:375 威望:0 精华:0 注册:2015/1/30 14:47:00
如何限制网页只能在微信内置浏览器中打开?  发帖心情 Post By:2018/7/16 16:29:00 [只看该作者]

移动开发,如何限制网页只能在微信内置浏览器中打开?



即附件所示的网
此主题相关图片如下:网址.jpg
按此在新窗口浏览图片
址隐藏掉,或者用自建应用的模块名称“审批”代替

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/7/16 16:45:00 [只看该作者]

方法一:加入授权

 

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

 

方法二:判断浏览器信息

 


Select Case e.Path
    Case "test.htm", ""
        msgbox(e.request.UserAgent )
        Dim agent As String = e.request.UserAgent
        If agent.contains("MicroMessenger") Then
            msgbox("微信")
        Else
            Dim flag As Boolean = False
            Dim keywords As String() = {"Android", "iPhone", "iPod", "iPad", "Windows Phone", "MQQBrowser"}
            '排除 Windows 桌面系统
            If Not agent.Contains("Windows NT") OrElse (agent.Contains("Windows NT") AndAlso agent.Contains("compatible; MSIE 9.0;")) Then
                '排除 苹果桌面系统
                If Not agent.Contains("Windows NT") AndAlso Not agent.Contains("Macintosh") Then
                    For Each item As String In keywords
                        If agent.Contains(item) Then
                            msgbox(item)
                            flag = True
                            Exit For
                        End If
                    Next
                End If
            End If
            If flag Then
                msgbox("手机")
            Else
                msgbox("电脑")
            End If
        End If
End Select


 回到顶部