Enregistrer en tant que goji.hta, courez pour voir l'effet
<Html> <Title> Interface d'échecs Gozi- ZH159 </TITLE> <HRAD> <Meta Http-Equiv = "Content-Type" Content = "Text / Html; charSet = GB2312"> <hta: applicationID = "MyHyliapp" Application) zh159 "border =" mince "borderstyle =" "version =" 1.0 "scroll =" no "icon =" c: /windows/system32/wuaucclt.exe "innerborder =" non "contextMenu =" non "légende =" oui "m Aximizebutton = "non" minimiserbutton = "oui" showintaskbar = "oui" singleinstance = "oui" sysmenu = "oui" fenêtre = "normal" navigable = "oui" /> </ hrad> <script linguisse = "javascrip {largeur: 24; hauteur: 24; curseur: main;} </ style> <body background = "bg.gif" scroll = "no" style = "background: SteelBlue; Color: #ffffff;"> <table align = "Center" cellpacing = "0" CellPading = "10" borderColor = "# fffff" style = "font: 13px 简; Align = "Center"> <Td> <Table CellPacing = "0" CELLPADDIND = "0" BorderColor = "# ffffff" style = "FONT: 21PX 简体; Border: 2px solide #ffffff;"> <script linguisse = "vbscript"> str = "ABCDEFGHIJKLMNOPQRS" pour i = 1 to Len (Str) avec un document "<tr). Align = 'Center'> "pour n = 1 à Len (str) str = mid (str, i, 1) strn = mid (str, n, 1) tdstr =" <td id = 'gui_ "& strn & strn &"' class = 'giwh'> <span onclick = 'test (this)' onMouseOver = 'innertext = "" ● ""; style.color = "" "" "" " onMouseout = 'innerText = "" ┼ ""; style.color = "" "" "' '> ┼ </span> </td>" s = "┼" if (stri = "a" et strn = "a") alors .write remplace (tdstr, s, "┌") si str = "a" puis non (strn = "a" ou strn = "s") alors. Remplacer (tdstr, s, "┬") if (stri = "a" et strn = "s") alors .write remplace (tdstr, s, "┐") sinon (stri = "a" ou str = "s") alors si strn = "a" alors .write remplace (tdstr, s, "├") si non (stri = "a" ou strn = "s") alors. "A" ou str = "s") puis si strn = "s" alors .write remplace (tdStr, s, "┤") if (stri = "s" et strn = "a") alors .write remplace (tdstr, s, "└") if str = "s" alors si non (strn = "a" ou strn = "s") puis. strn = "s") puis .write remplace (tdstr, s, "┘") Next .write "</tr>" terminer par suivant </ script> </s table> </td> <br> <br> <pan id = "pc"> <frut-onty> Téléchargez d'abord l'ordinateur </fitton> <br> <br> Cliquez directement pour télécharger le joueur </span> </td> </tr> </r> width = 660 hauteur = 550 window.Resizeto largeur, hauteur ileft = (window.screen.width-width) / 2 itop = (window.screen.height-height) / 2 window.moveto ileft, itop sous test (this) this.parentnode.style.cursor = "default" this.parentnode.innerhtml "●" pc.style.display = "Aucun" fin subs subitledocument.title = "gozi- zh159 -" & formatdatetime (Now, 1) & "" & weekdayName (weekday (maintenant)) & "& FormatDatetime (maintenant, 3) End Subtitle: setInterval" title () ", 500 </ script>