diff options
| author | Sven Eisenhauer <sven@sven-eisenhauer.net> | 2023-11-10 15:11:48 +0100 |
|---|---|---|
| committer | Sven Eisenhauer <sven@sven-eisenhauer.net> | 2023-11-10 15:11:48 +0100 |
| commit | 33613a85afc4b1481367fbe92a17ee59c240250b (patch) | |
| tree | 670b842326116b376b505ec2263878912fca97e2 /Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs | |
| download | Studium-master.tar.gz Studium-master.tar.bz2 | |
Diffstat (limited to 'Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs')
| -rw-r--r-- | Bachelor/CCNA4/en_CCNA4_v30/Dispatcher.vbs | 38 |
1 files changed, 38 insertions, 0 deletions
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
|