العربية
<SCRIPT language="VBScript"> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "/img/200406301.jpg,/img/200406302.jpg,/img/200406303.jpg" TxtList = "<a href=http:/ /www.downcodes.com/ target=_blank>أضف الرابط الخاص بك هنا 1</a>، <a href=http://www.downcodes.com/ target=_blank>أضف الرابط الخاص بك هنا 2</a> أ> ,<a href=http://www.downcodes.com/ target=_blank>أضف اتصالك هنا 3</a>" FileListArr = Split(FileList,") TxtListArr = Split(TxtList," ,") Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" If CanPlay ثم FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)" FilterStr = FilterStr + "; progid:DXImageTransform. Microsoft.Fade(duration=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2,gradientSize=0.25,motion=forward )" FilterStr = FilterStr + "; Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform Microsoft.RandomDissolve(. المدة=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide( Duration=2, bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate( MaxSquare=15, Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)" Else Msgbox "يحتوي عرض الشرائح على مجموعة متنوعة من تأثيرات تبديل الصور الديناميكية، ومع ذلك، هذه الوظيفة يتطلب أن يكون متصفحك IE5.5 أو أعلى، وإلا فلن تتمكن إلا من رؤية جزء من تأثير التبديل. ",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 'وقت التبديل (ملي ثانية) Dim I I = 1 Sub ChangeImg Do while FileListArr(I)="" I = I + 1 إذا كنت>UBound(FileListArr) فأنا = 0 Loop Dim J إذا كنت>UBound(FileListArr) فأنا = 0 Randomize J = Int(Rnd * (UBound(FilterArr)+1)) Img.style.filter = FilterArr(J) ) Img.filters(0).Apply Img.Src = FileListArr(I) Img.filters(0).play Txt.filters(0).Apply Txt.innerHTML = TxtListArr(I) Txt.filters(0).play( ) I = I + 1 إذا I>UBound(FileListArr) ثم I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg"، PlayImg_M،"VBScript" End Sub </SCRIPT> <TABLE WIDTH = "100٪" ارتفاع ="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR ID="NoScript"><TD Align="Center" Style="Color:White">عذرًا، وظيفة تصفح الصور يتطلب دعم البرامج النصية، ولكن تم إعداد متصفحك لمنع تشغيل البرامج النصية. يرجى ضبط خيارات الأمان ذات الصلة في إعدادات المتصفح. </TD></TR><TR Style="Display:none" ID="CanRunScript "> <TD HEIGHT="100%" Align="Center" vAlign="Center"><Img ID="Img" height="290" width="300" Border="0" </TD></ TR> <TR Style = "العرض: لا شيء"><TD><Img ID = "TempImg" Border = "0"></TD></TR><TR><TD HEIGHT = "100%" محاذاة = " Center" vAlign="Center"><div ID="Txt" style="PADDING-LEFT: 5px Z-INDEX: 1; progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); :"><a href=http://www.downcodes.com/ target=_blank>أضف الرابط الخاص بك هنا 1</a></div></TD></TR></TABLE> <لغة النص= "VBScript"> NoScript.Style.Display = "none" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg", PlayImg_M,"VBScript" </Script>
