I am trying to detect if a mobile browser is loading the page. I was given this code but ti doesnt work with an error on Request.ServerVariables("HTTP_USER_AGENT").
How do I do this?
Dim u As String = Request.ServerVariables("HTTP_USER_AGENT")
Dim b As New Regex("(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows
(ce|phone)|xda|xiino", RegexOptions.IgnoreCase)
Dim v As New Regex("1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1
u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt
|kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v
)|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-",
RegexOptions.IgnoreCase)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If b.IsMatch(u) Or v.IsMatch(Left(u, 4)) Then Response.Redirect("mobile.aspx")
End Sub
I tried this code , loaded my webpage on a mobile (xperia arc mini-opera) and it didnt load mobile.aspx as i wanted
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If (Request.Browser.IsMobileDevice) Or isMobile() = True Then
Response.Redirect("mobile.aspx")
End If
End Sub
Public Function isMobile() As Boolean
Dim context As HttpContext
context = HttpContext.Current
'FIRST TRY BUILT IN ASP.NT CHECK
If (context.Request.Browser.IsMobileDevice) Then
Return True
End If
If (Not context.Request.ServerVariables("HTTP_X_WAP_PROFILE") = Nothing) Then
Return True
End If
If (Not context.Request.ServerVariables("HTTP_USER_AGENT") = Nothing) Then
Dim mobiles() As String =
{"dog", "cat", "fish", "midp", "j2me", "avant", "docomo",
"novarra", "palmos", "palmsource",
"240x320", "opwv", "chtml",
"pda", "windows ce", "mmp/",
"blackberry", "mib/", "symbian",
"wireless", "nokia", "hand", "mobi",
"phone", "cdm", "up.b", "audio",
"SIE-", "SEC-", "samsung", "HTC",
"mot-", "mitsu", "sagem", "sony"}
For Each s As String In mobiles
If (context.Request.ServerVariables("HTTP_USER_AGENT").ToLower().Contains(s.ToLower())) Then
Return True
End If
Next
End If
Return False
End Function
End Class
Imports System
Imports System.Web
Imports System.Web.Configuration
Partial Public Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim hbc As HttpBrowserCapabilities = Request.Browser
If (CType(hbc, HttpCapabilitiesBase)).IsMobileDevice Then
Response.Redirect("mobile.aspx")
Else
Response.Redirect("Default.aspx")
End If
End Sub
End Class
mexican
Member
29 Points
346 Posts
detect mobile browser
Nov 26, 2012 08:55 AM|LINK
I am trying to detect if a mobile browser is loading the page. I was given this code but ti doesnt work with an error on Request.ServerVariables("HTTP_USER_AGENT").
How do I do this?
Dim u As String = Request.ServerVariables("HTTP_USER_AGENT")
Dim b As New Regex("(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows (ce|phone)|xda|xiino", RegexOptions.IgnoreCase)
Dim v As New Regex("1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-", RegexOptions.IgnoreCase)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If b.IsMatch(u) Or v.IsMatch(Left(u, 4)) Then Response.Redirect("mobile.aspx")
End Sub
geniusvishal
Star
14266 Points
2810 Posts
Re: detect mobile browser
Nov 26, 2012 09:07 AM|LINK
Refer:
http://www.dotnetvishal.com/2012/10/detecting-mobile-device-in-aspnet.html
My Website
www.dotnetvishal.com
DarrellNorto...
All-Star
86773 Points
9643 Posts
Moderator
MVP
Re: detect mobile browser
Nov 26, 2012 09:07 AM|LINK
Try Request.Browser.IsMobileDevice. You can update the definitions to the latest by installing the 51 Degrees Nuget package. It's all covered in the article here: http://www.codeproject.com/Articles/213825/ASP-net-Mobile-device-detection
Darrell Norton's Blog
Please click "Mark as Answer" if this helped you.
mexican
Member
29 Points
346 Posts
Re: detect mobile browser
Nov 26, 2012 11:09 AM|LINK
hi
does this work on PC's and displays on mobile pages by mistake because I have read that this doesnt work well.
http://www.dotnetvishal.com/2012/10/detecting-mobile-device-in-aspnet.html
mexican
Member
29 Points
346 Posts
Re: detect mobile browser
Nov 26, 2012 10:40 PM|LINK
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If (Request.Browser.IsMobileDevice) Or isMobile() = True Then Response.Redirect("mobile.aspx") End If End Sub Public Function isMobile() As Boolean Dim context As HttpContext context = HttpContext.Current 'FIRST TRY BUILT IN ASP.NT CHECK If (context.Request.Browser.IsMobileDevice) Then Return True End If If (Not context.Request.ServerVariables("HTTP_X_WAP_PROFILE") = Nothing) Then Return True End If If (Not context.Request.ServerVariables("HTTP_USER_AGENT") = Nothing) Then Dim mobiles() As String = {"dog", "cat", "fish", "midp", "j2me", "avant", "docomo", "novarra", "palmos", "palmsource", "240x320", "opwv", "chtml", "pda", "windows ce", "mmp/", "blackberry", "mib/", "symbian", "wireless", "nokia", "hand", "mobi", "phone", "cdm", "up.b", "audio", "SIE-", "SEC-", "samsung", "HTC", "mot-", "mitsu", "sagem", "sony"} For Each s As String In mobiles If (context.Request.ServerVariables("HTTP_USER_AGENT").ToLower().Contains(s.ToLower())) Then Return True End If Next End If Return False End Function End Classgeniusvishal
Star
14266 Points
2810 Posts
Re: detect mobile browser
Nov 27, 2012 04:21 AM|LINK
I guess you are calling the boolean method in a wrong way... See how it is done here
You are referring this article i guess:
http://chopsport.wordpress.com/2011/09/27/detecting-mobile-web-browsers-vb-net/
Here is another alternative for your requirement:
Imports System Imports System.Web Imports System.Web.Configuration Partial Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Dim hbc As HttpBrowserCapabilities = Request.Browser If (CType(hbc, HttpCapabilitiesBase)).IsMobileDevice Then Response.Redirect("mobile.aspx") Else Response.Redirect("Default.aspx") End If End Sub End ClassMy Website
www.dotnetvishal.com