hta 实现的五子棋界面

    保存为 五子棋.hta,运行即可看到效果

    
    <html>
    <title>五子棋界面 - zh159</title>
    <hrad>
    <meta http-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>
    
    <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 Title
    Document.title = "五子棋 - zh159 - " & FormatDateTime(Now, 1) & " " & WeekdayName(WeekDay(now)) & " " & FormatDateTime(Now, 3)
        End Sub
    
    Title:setInterval "Title()",500
    </script>
    
    </html>