×

Welcome to TagMyCode

Please login or create account to add a snippet.
0
0
 
0
Language: Xojo
Posted by: Radium Kymist
Added: Feb 7, 2015 12:58 PM
Views: 17
Tags: browser
by Akiland

Return the Browser type.
  1. Function Get_Browser_Information(s as WebSession.BrowserType, s1 as WebSession.PlatformType, s2 as WebSession.EngineType) As String
  2.               Dim bt, pt, et as String
  3.                
  4.                Select case s
  5.                   case WebSession.BrowserType.Android
  6.               bt = "Android"
  7.                case WebSession.BrowserType.Blackberry
  8.                    bt = "Blackberry"
  9.             case WebSession.BrowserType.Chrome
  10.                bt = "Chrome"
  11.                 case WebSession.BrowserType.ChromeOS
  12.              bt = "ChromeOS"
  13.               case WebSession.BrowserType.Firefox
  14.               bt = "Firefox"
  15.                case WebSession.BrowserType.InternetExplorer
  16.              bt = "InternetExplorer"
  17.               case WebSession.BrowserType.Opera
  18.                 bt = "Opera"
  19.                  case WebSession.BrowserType.Safari
  20.                bt = "Safari"
  21.                 case WebSession.BrowserType.SafariMobile
  22.                  bt = "SafariMobile"
  23.                   case WebSession.BrowserType.Unknown
  24.                 bt = "Unknown"
  25.                end Select
  26.              
  27.                Select case s1
  28.                  case WebSession.PlatformType.Blackberry
  29.                   pt = "Blackberry"
  30.             case WebSession.PlatformType.iPad
  31.                 pt = "iPad"
  32.                   case WebSession.PlatformType.iPhone
  33.               pt = "iPhone"
  34.                 case WebSession.PlatformType.iPodTouch
  35.                    pt = "iPodTouch"
  36.              case WebSession.PlatformType.Linux
  37.                pt = "Linux"
  38.                  case WebSession.PlatformType.Macintosh
  39.                    pt = "Macintosh"
  40.              case WebSession.PlatformType.PS3
  41.                  pt = "PS3"
  42.            case WebSession.PlatformType.Unknown
  43.              pt = "Unknown"
  44.                case WebSession.PlatformType.WebOS
  45.                pt = "WebOS"
  46.                  case WebSession.PlatformType.Wii
  47.                  pt = "Wii"
  48.            case WebSession.PlatformType.Windows
  49.              pt = "Windows"
  50.                end Select
  51.              
  52.                Select case s2
  53.                  case WebSession.EngineType.Gecko
  54.                  et = "Gecko"
  55.                  case WebSession.EngineType.Presto
  56.                 et = "Presto"
  57.                 case WebSession.EngineType.Trident
  58.                et = "Trident"
  59.                case WebSession.EngineType.Unknown
  60.                et = "Unknown"
  61.                case WebSession.EngineType.WebKit
  62.                     et = "WebKit"
  63.                 end Select
  64.              
  65.                BrowserInfo = pt + " (" + bt + ", " + et + ")"
  66.                  Return BrowserInfo
  67.            End Function
  68.