Speichern Sie als Goji.hta, um den Effekt zu sehen
<html> <titels> Gozi-Schach-Schnittstelle-Zh159 </title> <hrad> <meta http-äquiv = "content-type" content = "text/html; charset = gb2312"> <hta: applicationId = "myhyliapp" applicationname = "gozi chess interface- Zh159 "Border =" Thin "BorderSyle =" "Version =" 1.0 "scroll =" no "icon =" c: /windows/system32/wuaucclt.exe "Innerborder =" no "contextMenu =" no "caption =" yes "m AximizButton = "nein" minimizeButton = "yes" showIntaskbar = "yes" SingleInstance = "Ja" sysmenu = "yes" windowState = "normal" navigable = "yes"/> </hrad> <script Sprache = "javascript"> </script> <script Sprache = " {Breite: 24; Höhe: 24; Cursor: Hand;} </style> <body Hintergrund = "bg.gif" scroll = "no" style = "Hintergrund: SteelBlue; Farbe: #ffffff; <tr align = "center"> <td> <table cellpacing = "0" cellpadding = "0" borderColor = " #ffffff" style = "font: 21px 简体; border: 2px solid #ffffff; Align = 'Center'> "für n = 1 bis 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 = 'inntext = "" ""; "; onmouseout = 'InnerText = "" ┼ ""; style.color = "" "" "> ┼ </span> </td>" s = "┼" if (stri = "und strn =" a ") Dann .Write ersetzen (tdstr," ┌ ") if str =" a, wenn nicht (strn = "oder" oder "oder" oder "oder" oder "oder" oder "oder" oder "" oder "". Ersetzen (tdstr, s, "┬") if (stri = "a" und strn = "s"). Write ersetzen Sie (tdstr, s, "┐") Wenn nicht (stri = "oder str =" s ") Dann Wenn Sie (" a "oder stri =" a "oder" ein "oder stri (" oder "a" oder "sn nicht" oder "a" oder "a" oder "a" oder "" oder "a" oder "a" oder "" "). "A" oder str = "s") dann, wenn Strn = "s" dann .Write ersetzen (tdstr, s, "┤") if (stri = "s" und strn = "a") dann .Write ersetzen (tdstr, s, "└") Wenn Str = "s" dann nicht (tdsstr (strn = "a" oder str. STRN = "S") dann .Write Ersatz (tdstr, s, "┘") Weiter .Write "</tr>" End mit dem nächsten </script> </table> </td> <td> <span id = "pc"> <button> Download den Computer. Breite = 660 Höhe = 550 Fenster. "●" pc.style.display = "None" End Sub -Sub -Titocument