From 33613a85afc4b1481367fbe92a17ee59c240250b Mon Sep 17 00:00:00 2001 From: Sven Eisenhauer Date: Fri, 10 Nov 2023 15:11:48 +0100 Subject: add new repo --- Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs | 38 ++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs (limited to 'Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs') diff --git a/Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs b/Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs new file mode 100644 index 0000000..d299c17 --- /dev/null +++ b/Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs @@ -0,0 +1,38 @@ +'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' +' +' Macromedia Flash Dispatcher -- a scriptable detector for Flash Player +' +' +' copyright (c) 2000 Macromedia, Inc. +' +''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' + + +' Check for the Flash ActiveX control. +' +' This script will be ignored by browsers that do not support +' VBScript (although Microsoft Internet Explorer will warn the +' user that a script in an unsupported language has been +' encountered if the user has checked "Show unsupported scripting +' language errors" in Preferences->Web Browser->Web Content). +' +' This technique due to Jeff Brown and Rafael M. Muņoz of +' Microsoft Corporation. Version testing adapted from Macromedia +' Flash Technical Note #12853. + +Private i, x + +On Error Resume Next + +MM_FlashControlInstalled = False + +For i = 6 To 1 Step -1 + Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i) + + MM_FlashControlInstalled = IsObject(x) + + If MM_FlashControlInstalled Then + MM_FlashControlVersion = CStr(i) + Exit For + End If +Next -- cgit v1.2.3