hta 实现的五子棋界面
保存为五子棋.hta，运行即可看到效果
<html>
<title>五子棋界面-zh159</title>
<hrad>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<HTA:APPLICATION
ID="MyhyliApp"
APPLICATIONNAME="五子棋界面-zh159"
BORDER="thin"
BORDERSTYLE=""
VERSION="1.0"
SCROLL="no"
ICON="C:\WINDOWS\System32\wuauclt.exe"
INNERBORDER="no"
CONTEXTMENU="no"
CAPTION="yes"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
</hrad>
<scriptlanguage="javascript"></script>
<scriptlanguage="VBScript"></script>
<style>
.GUIwh{width:24;height:24;cursor:hand;}
</style>
<bodybackground="bg.gif"scroll="no"style="background:SteelBlue;color:#ffffff;">
<tablealign="center"width="630"border="1"cellspacing="0"cellpadding="10"borderColor="#ffffff"style="font:13px宋体;border-collapse:collapse;">
<tralign="center">
<tdwidth="450"height="450">
<tableborder="0"cellspacing="0"cellpadding="0"borderColor="#ffffff"style="font:21px宋体;border:2pxsolid#ffffff;">
<scriptlanguage="VBScript">
str="ABCDEFGHIJKLMNOPQRS"
Fori=1ToLen(str)
withdocument
.write"<tralign='center'>"
Forn=1ToLen(str)
stri=MID(str,i,1)
strn=MID(str,n,1)
tdstr="<tdid='GUI_"&strn&stri&"'class='GUIwh'><spanonclick='Test(this)'onMouseOver='innerText=""●"";style.color=""blue""'onMouseOut='innerText=""┼"";style.color=""""'>┼</span></td>"
s="┼"
If(stri="A"andstrn="A")Then.writeReplace(tdstr,s,"┌")
Ifstri="A"ThenIfnot(strn="A"orstrn="S")Then.writeReplace(tdstr,s,"┬")
If(stri="A"andstrn="S")Then.writeReplace(tdstr,s,"┐")
Ifnot(stri="A"orstri="S")ThenIfstrn="A"Then.writeReplace(tdstr,s,"├")
Ifnot(stri="A"orstri="S"orstrn="A"orstrn="S")Then.writetdstr
Ifnot(stri="A"orstri="S")ThenIfstrn="S"Then.writeReplace(tdstr,s,"┤")
If(stri="S"andstrn="A")Then.writeReplace(tdstr,s,"└")
Ifstri="S"ThenIfnot(strn="A"orstrn="S")Then.writeReplace(tdstr,s,"┴")
If(stri="S"andstrn="S")Then.writeReplace(tdstr,s,"┘")
Next
.write"</tr>"
endwith
Next
</script>
</table>
</td>
<td>
<spanid="PC"><button>电脑先下</button><br><br>直接点击为玩家先下</span>
</td>
</tr>
</table>
</body>
<scriptlanguage="VBScript">
width=660
height=550
window.resizeTowidth,height
ileft=(window.screen.width-width)/2
itop=(window.screen.height-height)/2
window.moveToileft,itop
SubTest(this)
this.parentNode.style.cursor="default"
this.parentNode.innerHtml="●"
PC.style.display="none"
EndSub
SubTitle
Document.title="五子棋-zh159-"&FormatDateTime(Now,1)&""&WeekdayName(WeekDay(now))&""&FormatDateTime(Now,3)
EndSub
Title:setInterval"Title()",500
</script>
</html>