用vbs实现的连连看在线游戏
在线演示
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>连连看_www.jb51.net_我们</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>
您可能感兴趣的文章
- 01-10下载文件到本地运行的vbs
- 01-10VBS中的正则表达式的用法大全 <font color=red>原创&
- 01-10VBS中SendKeys的基本应用
- 01-10VBScript教程 第十一课深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript语法速查及实例说明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七课使用条件语句
- 01-10vbscript 可以按引用传递参数吗？
- 01-10VBScript教程 第二课在HTML页面中添加VBscript代码
阅读排行
本栏相关
- 01-10下载文件到本地运行的vbs
- 01-10飘叶千夫指源代码，又称qq刷屏器
- 01-10SendKeys参考文档
- 01-10什么是一个高效的软件
- 01-10VBS中的正则表达式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本应用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一课深入VBScript
- 01-10VBScript语法速查及实例说明
随机阅读
- 08-05织梦dedecms什么时候用栏目交叉功能？
- 04-02jquery与jsp,用jquery
- 08-05dedecms(织梦)副栏目数量限制代码修改
- 01-11Mac OSX 打开原生自带读写NTFS功能(图文
- 01-11ajax实现页面的局部加载
- 08-05DEDE织梦data目录下的sessions文件夹有什
- 01-10使用C语言求解扑克牌的顺子及n个骰子
- 01-10C#中split用法实例总结
- 01-10delphi制作wav文件的方法
- 01-10SublimeText编译C开发环境设置