Сохранить как goji.hta, беги, чтобы увидеть эффект
<html> <title> gozi checess interface-zh159 </title> <hrad> <meta http-equiv = "content-type" content = "text/html; charset = gb2312"> <hta: ApplicationId = "myhyliap zh159 "border =" thin "borderstyle =" "version =" 1.0 "scroll =" no "icon =" c: /windows/system32/wuaucclt.exe "innerborder =" no "contextmenu =" no "caption =" yes "m Aximizebutton = "no" минимизабеть = "да" showintaskbar = "yes" singleinstance = "yes" sysmenu = "yes" windowstate = "normal" vavigable = "yes"/> </hrad> <script language = "javascript"> </script> <script language = "vbscript> </script> {ширина: 24; высота: 24; курсор: hand;} </style> <body founal = "bg.gif" scroll = "no" style = "fanost: lelectblue; color: #ffffff;"> <table align = "center" cellpacing = "0" CellPading = "10" BorderColor = "#fffff" style = "font: 13px od-collor; <tr align = "center"> <td> <Таблица сотока CellPacing = "0" cellPadding = "0" bordercolor = " #ffffff" style = "font: 21px 简体; граница: 2px solid #ffffff;"> <script language = "vbscript"> str = "abcdefghijklmnopqrs" для i = 1 trenwrite (trenwrite (str = "abcdefghijklmnopqrs". align = 'center'> "для n = 1 до len (str) str = mid (str, i, 1) strn = mid (str, n, 1) tdstr =" <td id = 'gui_ "& strn & strn &"' class = 'guiwh'> <span onclick = 'test (this)' onmouseover = 'innertext = "" ● " onmouseout = 'innertext = "" ┼ ""; style.color = "" ""' '> ┼ </span> </td> "s =" ┼ "if (stri =" a "и strn =" a "). Замените (TDSTR, S, «┬») if (stri = "a" и strn = "s"), затем .Write заменить (tdStr, s, "┐"), если не (stri = "a" или str = "s"), то если strn = "a" then .write replie «A" или str = "s"), то если strn = "s", то .write заменить (tdstr, s, "┤") if (stri = "s" и strn = "a"). strn = "s"), затем .write Заменить (TDSTR, S, "┘") Next .write "</tr>" конец с помощью следующего </script> </table> </td> <td> <pan ID = "PC"> <Trong> Загрузите компьютер первым </trable> <br> <br> Нажмите напрямую, чтобы загрузить ПЛЮЧЕС language = "vbscript"> ширина = 660 высота = 550 Window.resizeto ширина, высота ilift = (window.screen.width-width)/2 itop = (window.screen.height-height)/2 window.moveto ileft, itop subtest (this) this.parentnode.style.cursrors. "●" pc.style.display = "none" end sub sub tipledelledocument.title = "gozi- zh159 -" & formatdatetime (теперь, 1) & "" & weekdayname (weardday (сейчас)) & "" & formatdatetime (теперь, 3) Конец субтитра: SetInterval "().