'01-08-2008 Cuma, Muharrem Karakaž
'************
'http://www.adobe.com/devnet/flashplayer/articles/future_detection_03.html
'	-- Future-Proofing Flash Player Detection Scripts --
'
'In order to detect the existence of Flash Player at all, you will need to use small amounts of JavaScript and VBScript. 
'The following script determines the existence and version information of the Flash Player ActiveX control:
'************

'Visual basic helper required to detect Flash Player ActiveX control version information
      Function VBGetSwfVer(i)
        on error resume next
        Dim swControl, swVersion
        swVersion = 0
        
        set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
        if (IsObject(swControl)) then
          swVersion = swControl.GetVariable("$version")
        end if
        VBGetSwfVer = swVersion
      End Function
	  
'************
'By calling the VBGetSwfVer(i) function with the required major version,
'you will locate two important pieces of information–the existence of Flash Player and its version:
'
'swControl: true or false, depending on whether Flash Player is installed or not 
'swVersion: full version string (for example, "WIN 7,0,14,0") if Flash Player is installed
'
'go to flash_detect.js
'************