保存为 五子棋.hta，运行即可看到效果
<html> <title>五子棋界面 - zh159</title> <hrad> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <HTA:APPLICATION ID="MyhyliApp" APPLICATIONNAME="五子棋界面 - zh159" BORDER="thin" BORDER VERSION="1.0" SCROLL="no" ICON="C:WINDOWSSystem32wuauclt.exe" INNERBORDER="no" CONTEXTMENU="no" CAPTION="yes" MAXIMIZEBUTTON="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"> <table align="center" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff"> <tr align="center"> <td width="450" height="450"> <table border="0" cellspacing="0" cellpadding="0" borderColor="#ffffff"> <script language="VBScript"> str = "ABCDEFGHIJKLMNOPQRS" For i = 1 To Len(str) with document .write "<tr align='center'>" For n = 1 To Len(str) stri = MID(str,i,1) strn = MID(str,n,1) tdstr = "<td id='GUI_" & strn & stri & "'><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 stri = "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 stri = "S") Then If strn = "A" Then .write Replace(tdstr,s,"├") If not (stri = "A" or stri = "S" or strn = "A" or strn = "S") Then .write tdstr If not (stri = "A" or stri = "S") Then If strn = "S" Then .write Replace(tdstr,s,"┤") If (stri = "S" and strn = "A") Then .write Replace(tdstr,s,"└") If stri = "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>电脑先下</button><br><br>直接点击为玩家先下</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 Title Document.title = "五子棋 - zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3) End Sub Title:setInterval "Title()",500 </script> </html>