Salvar como goji.hta, corra para ver o efeito
<html> <title> interface de xadrez gozi- zh159 </ititle> <hrad> <meta http-equiv = "content-type" content = "text/html; charset = gb2312"> <hta: appoldid = "myhyliapp" ApplicationName = "gozi swead ZH159 "Border =" Thin "BordersTyle =" "Version =" 1.0 "scroll =" no "icon =" c: /windows/system32/wuaucclt.exe "Innerborder =" no "contextmenu =" no "legend =" sim "m Aximizebutton = "não" minimizeButton = "Sim" ShowItaskbar = "Sim" SINGINESTINSTANCE = "SIM" Sysmenu = "Sim" Windowstate = "Normal" Navegable = "Sim"/> </hrad> <Script Language = "JavaScript"> </script> <criptsy) {largura: 24; altura: 24; cursor: hand;} </style> <body background = "bg.gif" scroll = "no" style = "background: Steelblue; cor: #fffffffff;"> <tabela align = "central" "ffff" = "0" CellPading = 10 "borderColor =##ffff" stylesty "=" 0 "" align = "Center"> <Td> <tabela CellPacing = "0" CellPadding = "0" BorderColor = " #ffffff" style = "Font: 21px 简体; borda: 2px sólido #ffffff; align = 'Center'> "para n = 1 a 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 = "┼" se (stri = "a" e strn = "a") então. Substitua (tdstr, s, "┬") if (stri = "a" e strn = "s") então .Write substituir (tdr, s, "┐") se não (stri = "a" ou str = "s") se não (strn = "a" então. A "ou str =" s "), então se strn =" s "então .Write substituir (tdstr, s," ┤ ") se (stri =" s "e strn =" a ") então .Write reply (tdstr, s) se" string) e "string str = s e str = s e strp (strn) e" strp) e "strp) e" string) e "string) e" srn) se não (stn), se não (strn), se não (strn), se não (strn), se não. strn = "s") Então .Write Substituir (tdstr, s, "┘") Next .Write "</tr>" termine com o próximo </script> </ table> </td> <td> <span id = "pc"> </button> </span> </td> </button> <br> clique diretamente para o player primeiro <//span> idioma = "vbscript"> largura = 660 altura = 550 janela.reSizeto largura, altura iLeft = (window.screen.width-width)/2 itop = (window.screen.Height-hight)/2 window.moveto Ileft, itop subest (this) this.ParentNode.Style.cursor.Moveto Ileft = Itop Subest (this) this) "●"PC.style.display = "none" End Sub Sub TitleDocument.title = "Gozi- zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3) End SubTitle:setInterval "Title()",500</script></html>