hta 实现的五子棋界面

页面导航:首页 > 脚本专栏 > hta > hta 实现的五子棋界面

hta 实现的五子棋界面

来源:互联网 作者:脚本宝典 时间:2015-07-20 18:35 【

保存为 五子棋.hta,运行即可看到效果 ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 6

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

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
<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>


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<