You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
316 B
14 lines
316 B
17 years ago
|
|
||
|
17 years ago
|
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
|
||
|
17 years ago
|
|