Save as Goji.hta, run to see the effect
<html><title>Gozi Chess Interface- zh159</title><hrad><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><HTA:APPLICATIONID="MyhyliApp"APPLICATIONNAME="Gozi Chess Interface- zh159"BORDER="thin"BORDERSTYLE=""VERSION="1.0"SCROLL="no"ICON="C:/WINDOWS/System32/wuaucclt.exe"INNERBORDER="no"CONTEXTMENU="no"CAPTION="yes"M AXIMIZEBUTTON="no"MINIMIZEBUTTON="yes"SHOWINTASKBAR="yes"SINGLEINSTANCE="yes"SYSMENU="yes"WINDOWSTATE="normal"NAVIGABLE="yes"/></hrad><script language="javascript"></script><script language="VBScript"></script><style>.GUIwh {width:24;height:24;cursor:hand;}</style><body background="bg.gif" scroll="no" style="background: SteelBlue ;color:#ffffff;"><table align="center" cellpacing="0" cellpading="10" borderColor="#ffffff" style="font: 13px 简;border-collapse:collapse;"> <tr align="center"> <td> <table cellpacing="0" cellpadding="0" borderColor="#ffffff" style="font: 21px 简体;border:2px solid #ffffff;"> <script language="VBScript"> str = "ABCDEFGHIJKLMNOPQRS" For i = 1 To Len(str) with document .write "<tr align='center'>" For n = 1 To 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=""●"";style.color=""blue""' onMouseOut='innerText=""┼"";style.color="""""'>┼</span></td>" s = "┼" If (stri = "A" and strn = "A") Then .write Replace(tdstr,s,"┌") If str = "A" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┬") If (stri = "A" and strn = "S") Then .write Replace(tdstr,s,"┐") If not (stri = "A" or str = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├") If not (stri = "A" or strn = "S") Then .write tdstr If not (stri = "A" or str = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤") If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└") If str = "S" Then If not (strn = "A" or strn = "S") Then .write Replace(tdstr,s,"┴") If (stri = "S" and strn = "S") Then .write Replace(tdstr,s,"┘") Next .write "</tr>" end with Next </script> </table> </td> <td> <span id="PC"><button>Download the computer first</button><br><br>Click directly to download the player first</span> </td> </tr></table></body><script language="VBScript"> width = 660 height = 550 window.resizeTo width, height ileft=(window.screen.width-width)/2 itop=(window.screen.height-height)/2 window.moveTo ileft,itop Sub Test(this)this.parentNode.style.cursor = "default"this.parentNode.innerHtml = "●"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>