当前位置: 首页 > 图文教程 > 网络编程 > Javascript > 用vbs实现的连连看在线游戏

Javascript
jQuery中isFunction方法的BUG修复
将函数的实际参数转换成数组的方法
javascript 删除数组中重复项（uniq）
js 巧妙去除数组中的重复项
javascript下一种表单元素获取方法存在的问题
javascript 三种数组复制方法的性能对比
js 多层叠的TAB选项卡
javascript 自动标记来自搜索结果页的关键字
起点页面传值js,有空研究学习下
javascript 的Document属性和方法集合
JavaScript 使用简略语法创建对象的代码
使用JQuery进行跨域请求
jquery 经典动画菜单效果代码
jquery 常用操作方法
js提示信息jtip封装代码，可以是图片或文章
javascript面向对象的方式实现的弹出层效果代码
jquery中的sortable排序之后的保存状态的解决方法
js或css实现滚动广告的几种方案
使用JavaScript库还是自己写代码？
js 右键菜单，支持不同对象不同菜单(兼容IE、Firefox)

No. « 281 282 283 284 »

技术文章搜索

关键字

Javascript 中的 用vbs实现的连连看在线游戏

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-12   浏览: 102 ::
收藏到网摘: n/a

大家可以参考下代码，发现这个真个不错的思路

在线演示
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>连连看_www.ruanchen.com_软晨学习网</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=VBScript name=VI60_defaultClientScript>
<META content=charset=gb2312>
<STYLE type=text/css>.mytb {
FONT-WEIGHT: bolder; VERTICAL-ALIGN: middle; CURSOR: hand; COLOR: #FF6600; FONT-FAMILY: "Wingdings"; TEXT-ALIGN: center
}
</STYLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
</HEAD>
<BODY>
<TABLE cellSpacing=0 cellPadding=0 width=800 align=center border=0>
<TBODY>
<TR>
<TD>连连看游戏：将两个相同格子连接起来就会消失，看谁连的快，限时10分钟！</TD></TR></TBODY></TABLE><BR>
<TABLE borderColor=#000066 height=20 cellSpacing=0 cellPadding=0 width=600
align=center border=1>
<TBODY>
<TR>
<TD id=myproc1 borderColor=#0099cc width=0 bgColor=#000066></TD>
<TD id=myproc2 borderColor=#0099cc width=600></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=400 align=center border=0>
<TBODY>
<TR>
<TD align=middle width="30%">用时：</TD>
<TD id=Showmytime align=middle width="30%"> </TD>
<TD align=middle width="30%">秒</TD></TR></TBODY></TABLE>
<TABLE class=mytb borderColor=#0066CC cellSpacing=0 cellPadding=0 align=center
border=1>
<TBODY>
<TR>
<TD id=td_0_0 width=40 height=40></TD>
<TD id=td_0_1 width=40 height=40></TD>
<TD id=td_0_2 width=40 height=40></TD>
<TD id=td_0_3 width=40 height=40></TD>
<TD id=td_0_4 width=40 height=40></TD>
<TD id=td_0_5 width=40 height=40></TD>
<TD id=td_0_6 width=40 height=40></TD>
<TD id=td_0_7 width=40 height=40></TD>
<TD id=td_0_8 width=40 height=40></TD>
<TD id=td_0_9 width=40 height=40></TD>
<TD id=td_0_10 width=40 height=40></TD>
<TD id=td_0_11 width=40 height=40></TD>
<TD id=td_0_12 width=40 height=40></TD>
<TD id=td_0_13 width=40 height=40></TD>
<TD id=td_0_14 width=40 height=40></TD>
<TD id=td_0_15 width=40 height=40></TD>
<TD id=td_0_16 width=40 height=40></TD>
<TD id=td_0_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_1_0 width=40 height=40></TD>
<TD id=td_1_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_1_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_2_0 width=40 height=40></TD>
<TD id=td_2_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_2_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_3_0 width=40 height=40></TD>
<TD id=td_3_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_3_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_4_0 width=40 height=40></TD>
<TD id=td_4_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_4_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_5_0 width=40 height=40></TD>
<TD id=td_5_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_5_17 onclick=vbs:aaa(me) width=40 height=40></TD></TR>
<TR>
<TD id=td_6_0 width=40 height=40></TD>
<TD id=td_6_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_6_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_7_0 width=40 height=40></TD>
<TD id=td_7_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_7_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_8_0 width=40 height=40></TD>
<TD id=td_8_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_8_17 width=40 height=40 ></TD></TR>
<TR>
<TD id=td_9_0 width=40 height=40></TD>
<TD id=td_9_1 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_2 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_3 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_4 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_5 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_6 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_7 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_8 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_9 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_10 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_11 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_12 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_13 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_14 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_15 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_16 onclick=vbs:aaa(me) borderColor=#0066CC width=40
height=40></TD>
<TD id=td_9_17 width=40 height=40></TD></TR>
<TR>
<TD id=td_10_0 width=40 height=40></TD>
<TD id=td_10_1 width=40 height=40></TD>
<TD id=td_10_2 width=40 height=40></TD>
<TD id=td_10_3 width=40 height=40></TD>
<TD id=td_10_4 width=40 height=40></TD>
<TD id=td_10_5 width=40 height=40></TD>
<TD id=td_10_6 width=40 height=40></TD>
<TD id=td_10_7 width=40 height=40></TD>
<TD id=td_10_8 width=40 height=40></TD>
<TD id=td_10_9 width=40 height=40></TD>
<TD id=td_10_10 width=40 height=40></TD>
<TD id=td_10_11 width=40 height=40></TD>
<TD id=td_10_12 width=40 height=40></TD>
<TD id=td_10_13 width=40 height=40></TD>
<TD id=td_10_14 width=40 height=40></TD>
<TD id=td_10_15 width=40 height=40></TD>
<TD id=td_10_16 width=40 height=40></TD>
<TD id=td_10_17 width=40 height=40></TD></TR></TBODY></TABLE><BR>
<BR>
<SCRIPT language=vbscript>
<!--
dim x,y
dim clickId
dim obj1,obj2,Flag1
dim Num1,Num2
dim mytime
dim Myrnd
dim x1,y1,x2,y2
Flag1=0
dim NumArray(10,17)
dim QuanArray(10,17)
dim LuJArray(10,17)
dim RTN,RTN1,RTN2
dim totalNum,lastNum
lastNum=0
'初始化数字数组开始
for x=0 to 10
for y=0 to 17
numArray(x,y)=0
QuanArray(x,y)=0
next
next
'初始化数字数组结束
for x=1 to 9
for y=1 to 16
window.execScript "td_" & X & "_" & y & ".innerText =" & chr(34) & "0" & chr(34),"vbs"
next
next
'随便放些数字开始
do
randomize
RndX=cint(rnd*9)+1
randomize
Rndy=cint(rnd*16)+1
randomize
Myrnd=cint(rnd*30)+1
window.execScript "lastNum=td_" & RndX & "_" & Rndy & ".innerText","vbs"
if lastNum="0" then
window.execScript "td_" & RndX & "_" & Rndy & ".innerText =" & Myrnd,"vbs"
NumArray(RndX,Rndy)=Myrnd
totalNum=totalNum+1
do
randomize
RndX=cint(rnd*9)+1
randomize
Rndy=cint(rnd*16)+1
window.execScript "lastNum=td_" & RndX & "_" & Rndy & ".innerText"
if lastNum="0" then
window.execScript "td_" & RndX & "_" & Rndy & ".innerText =" & Myrnd,"vbs"
NumArray(RndX,Rndy)=Myrnd
totalNum=totalNum+1
exit do
end if
loop
end if
if totalNum=16*9 then exit do'如果生成了全部数字，那么退出
loop
'随便放些数字结束
sub aaa(obj)
for x=0 to 10
for y=0 to 17
QuanArray(x,y)=0
next
next
if obj1=obj.id then exit sub '如果选择还是相同那么认为没选，跳出本过程
Flag1=Flag1+1
Flag1=Flag1 mod 3
RTN=fase
select case Flag1
case 0'什么也没选
case 1
obj1=obj.id
Num1=obj.innerText
obj.bordercolor="#ff0000"
temarray=split(obj1,"_")
x1=cint(temarray(1))
y1=cint(temarray(2))
case 2
obj2=obj.id
Num2=obj.innerText
obj.bordercolor="#ff0000"
temarray=split(obj2,"_")
x2=cint(temarray(1))
y2=cint(temarray(2))
if Num1=Num2 then
RTN1=CheckLink(x1,y1,x2,y2)
if RTN1=true then
Dispear x1,y1,x2,y2
Flag1=0
else
'恢复
Flag1=0
window.execScript "td_" & x1 & "_" & y1 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
window.execScript "td_" & x2 & "_" & y2 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
end if
else
'恢复
Flag1=0
window.execScript "td_" & x1 & "_" & y1 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
window.execScript "td_" & x2 & "_" & y2 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"

end if
end select

end sub

function CheckLink(xx1,yy1,xx2,yy2)
RTN=false
for x=0 to 10
for y=0 to 17
QuanArray(x,y)=0
next
next
QuanArray(xx1,yy1)=1
RTN2=gogogogo(xx1,yy1)
CheckLink= RTN
end function
function gogogogo(xx,yy)
'vartype(xx) & "!"& xx & "-" & yy & "*" & vartype(x2) & " !" & x2 & "-" & y2
'msgbox xx & "-" & yy
'if xx<=10 and xx>=0 and yy<=17 and yy>=0 then
'window.execScript "td_" & xx & "_" & yy & ".innertext =" & chr(34) & "#" & chr(34),"vbs"
'window.execScript "td_" & xx & "_" & yy & ".bordercolor =" & chr(34) & "#0000ff" & chr(34),"vbs"
'end if
if vartype(xx)<>2 then xx=cint(xx)
if vartype(yy)<>2 then yy=cint(yy)
if vartype(x2)<>2 then x2=cint(x2)
if vartype(y2)<>2 then y2=cint(y2)
if RTN=true then
gogogogo=true
exit function
end if
if (xx+1=x2 and yy =y2) or (xx-1=x2 and yy=y2) or (yy+1=y2 and xx=x2) or (yy-1=y2 and xx=x2) then'先判断四周是不是
'连到了的选项
gogogogo=true
RTN=true
exit function
else'这里是已经判断了四周不是
'向下开始
if xx+1<=10 then'是否碰壁
if not(xx+1=x2 and yy =y2) then'是否连到了
if numArray(xx+1,yy)=0 then '是否碰到了别的图片
'这里是空地，如果空地的其余三面连接目标图片，那么就结束了，ok!
if (xx+2 =x2 and yy=y2) or (xx+1 =x2 and yy+1=y2) or (xx+1 =x2 and yy-1=y2) then
'连到了的选项
gogogogo=true
RTN=true
exit function
else
'这里是空地但是还没连上目标mm
if QuanArray(xx+1,yy)=0 then'是否已经来过此地
'连通空地，继续走继续朝前走的选项
QuanArray(xx+1,yy)=1'撒尿标记：老孙从这个方向到此一游！
RTN2=gogogogo(xx+1,yy)'继续去取经
else
'来过了
end if
end if
else
'碰到了别的图片,和碰壁查不多
end if
else
'连到了的选项
gogogogo=true
RTN=true
exit function
end if
else
'碰壁了
end if
'向下结束
'向上开始
if xx-1>=0 then'是否碰壁
if not(xx-1=x2 and yy=y2) then '是否连到了
if numArray(xx-1,yy)=0 then '是否碰到了别的图片
'这里是空地，如果空地的其余三面连接目标图片，那么就结束了，ok!
if (xx-2 =x2 and yy=y2) or (xx-1 =x2 and yy+1=y2) or (xx-1 =x2 and yy-1=y2) then
'连到了的选项
gogogogo=true
RTN=true
exit function
else
'这里是空地但是还没连上目标mm
if QuanArray(xx-1,yy)=0 then'是否已经来过此地
'连通空地，继续走继续朝前走的选项
QuanArray(xx-1,yy)=2'撒尿标记：老孙从这个方向到此一游！
RTN2=gogogogo(xx-1,yy)'继续去取经
else
'来过了
end if
end if
else
'碰到了别的图片,和碰壁查不多
end if
else
'连到了的选项
gogogogo=true
RTN=true
exit function
end if
else
'碰壁了
end if
'向上结束
'向左开始
if yy-1>=0 then'是否碰壁
if not(yy-1=y2 and xx=x2) then '是否连到了
if numArray(xx,yy-1)=0 then '是否碰到了别的图片
'这里是空地，如果空地的其余三面连接目标图片，那么就结束了，ok!
if (xx =x2 and yy-2=y2) or (xx+1 =x2 and yy-1=y2) or (xx-1 =x2 and yy-1=y2) then
'连到了的选项
gogogogo=true
RTN=true
exit function
else
'这里是空地但是还没连上目标mm
if QuanArray(xx,yy-1)=0 then'是否已经来过此地
'连通空地，继续走继续朝前走的选项
QuanArray(xx,yy-1)=4'撒尿标记：老孙从这个方向到此一游！
RTN2=gogogogo(xx,yy-1)'继续去取经
else
'来过了
end if
end if
else
'碰到了别的图片,和碰壁查不多
end if
else
'连到了的选项
gogogogo=true
RTN=true
exit function
end if
else
'碰壁了
end if
'向左结束
'向右开始
if yy+1<=17 then'是否碰壁
if not(yy+1=y2 and xx=x2) then '是否连到了
if numArray(xx,yy+1)=0 then '是否碰到了别的图片
'这里是空地，如果空地的其余三面连接目标图片，那么就结束了，ok!
if (xx =x2 and yy+2=y2) or (xx+1 =x2 and yy+1=y2) or (xx-1 =x2 and yy+1=y2) then
'连到了的选项
gogogogo=true
RTN=true
exit function
else
'这里是空地但是还没连上目标mm
if QuanArray(xx,yy+1)=0 then'是否已经来过此地
'连通空地，继续走继续朝前走的选项
QuanArray(xx,yy+1)=3'撒尿标记：老孙从这个方向到此一游！
RTN2=gogogogo(xx,yy+1)'继续去取经
else
'来过了
end if
end if
else
'碰到了别的图片,和碰壁查不多
end if
else
'连到了的选项
gogogogo=true
RTN=true
exit function
end if
else
'碰壁了
end if
'向右结束
end if
end function


sub Dispear(xx1,yy1,xx2,yy2)'处理消失的模块
window.execScript "td_" & xx1 & "_" & yy1 & ".innerText =" & chr(34) & chr(34),"vbs"
window.execScript "td_" & xx2 & "_" & yy2 & ".innerText =" & chr(34) & chr(34),"vbs"
window.execScript "td_" & xx1 & "_" & yy1 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
window.execScript "td_" & xx2 & "_" & yy2 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs"
NumArray(xx1,yy1)=0
NumArray(xx2,yy2)=0
end sub
'5分钟
eee
dim Succed
sub eee()
Succed=true
window.setTimeout "eee","1000"
mytime=mytime+1
Showmytime.innerText=mytime

if mytime>=10 * 60 then
msgbox "抱歉，10分钟时间已经到了！重来"
window.location.href ="link.htm"
else
myproc1.width =mytime
myproc2.width =600-mytime
end if
for x=1 to 9
for y=1 to 16
if NumArray(x,y)<>0 then
Succed=false
exit for
end if
next
if NumArray(x,y)<>0 then
Succed=false
exit for
end if
next
if Succed=true then
Succed=false
msgbox "恭喜你，辛苦了！，你用了" & mytime & "秒时间，继续！"
window.location.href ="addlink.asp?time=" & mytime
exit sub
end if
end sub
Sub document_onselectstart
document.selection.clear
End Sub
-->
</SCRIPT>
<P id=ppp></P></BODY></HTML>

"