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>