hta实现的五子棋界面
保存为 五子棋.hta，运行即可看到效果
html title 五子棋界面 - zh159 /title hrad meta http-equiv="Content-Type" content="text/html; charset=gb2312" HTA:APPLICATIONID="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 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" width="630" border="1" cellspacing="0" cellpadding="10" borderColor="#ffffff" style="font: 13px 宋体;border-collapse:collapse;" tr align="center" td width="450" height="450" table border="0" cellspacing="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) stri = MID(str,i,1) strn = MID(str,n,1) tdstr = " td id='GUI_" strn stri "' 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 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 TitleDocument.title = "五子棋 - zh159 - " FormatDateTime(Now, 1) " " WeekdayName(WeekDay(now)) " " FormatDateTime(Now, 3) End SubTitle:setInterval "Title()",500 /script /html
hta实现的五子棋界面
