数码控科技猎奇Iphone动漫星座游戏电竞lolcosplay王者荣耀攻略allcnewsBLOGNEWSBLOGASKBLOGBLOGZSK全部技术问答问答技术问答it问答代码软件新闻开发博客电脑/网络手机/数码笔记本电脑互联网操作系统软件硬件编程开发360产品资源分享电脑知识文档中心IT全部全部分类 全部分类技术牛文全部分类教程最新 网页制作cms教程平面设计媒体动画操作系统网站运营网络安全服务器教程数据库工具网络安全软件教学vbscript正则表达式javascript批处理更多»编程更新教程更新游戏更新allitnewsJava 新闻网络医疗信息化安全创业站长电商科技访谈域名会议专栏创业动态融资创投创业学院 / 产品经理创业公司人物访谈营销 开发数据库服务器系统虚拟化云计算 嵌入式移动开发作业作业1常见软件all电脑网络手机数码生活游戏体育运动明星影音休闲爱好文化艺术社会民生教育科学医疗健康金融管理情感社交地区其他电脑互联网软件硬件编程开发360相关产品手机平板其他电子产品摄影器材360硬件通讯智能设备购物时尚生活常识美容塑身服装服饰出行旅游交通汽车购房置业家居装修美食烹饪单机电脑游戏网页游戏电视游戏桌游棋牌游戏手机游戏小游戏掌机游戏客户端游戏集体游戏其他游戏体育赛事篮球足球其他运动球类运动赛车健身运动运动用品影视娱乐人物音乐动漫摄影摄像收藏宠物幽默搞笑起名花鸟鱼虫茶艺彩票星座占卜书画美术舞蹈小说图书器乐声乐小品相声戏剧戏曲手工艺品历史话题时事政治就业职场军事国防节日风俗法律法规宗教礼仪礼节自然灾害360维权社会人物升学入学人文社科外语资格考试公务员留学出国家庭教育学习方法语文物理生物工程学农业数学化学健康知识心理健康孕育早教内科外科妇产科儿科皮肤科五官科男科整形中医药品传染科其他疾病医院两性肿瘤科创业投资企业管理财务税务银行股票金融理财基金债券保险贸易商务文书国民经济爱情婚姻家庭烦恼北京上海重庆天津黑龙江吉林辽宁河北内蒙古山西陕西宁夏甘肃青海新疆西藏四川贵州云南河南湖北湖南山东江苏浙江安徽江西福建广东广西海南香港澳门台湾海外地区

hta 实现的五子棋界面

日期:2015/3/23 14:40:00 来源:本网整理

保存为 五子棋.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>

  • 本文相关:
  • 运行程序的hta
  • 原创]个人学习之作 hta" target="_blank">[原创]个人学习之作 hta
  • NCC Tools(never code counter tools) V1.0.1发布代码-代码统计工具
  • XMLHttps
  • 网易手机图片自由下载器(hta)
  • 二进制文件转换为文本工具
  • code collection v0.44 hta
  • 超简陋浏览器
  • MyHTML Player release v1.1
  • ScriptomaticV2.hta学习脚本好工具
  • 免责声明 - 关于我们 - 联系我们 - 广告联系 - 友情链接 - 帮助中心 - 频道导航
    Copyright © 2017 www.zgxue.com All Rights Reserved