yfla.wrap("This multimedia content requires Flash version 9 and above.", "Upgrade Now.", "http:\/\/www.adobe.com\/shockwave\/download\/download.cgi?P1_Prod_Version=ShockwaveFlash", " 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
(=(!_!) - [†]*=-_()_-=*[†]- (@_@)=)
Copy đường link dưới đây gửi đến nick yahoo bạn bè!