用vbs實現的連連看在線游戲

2024-05-06 14:17:32

字體：大中小

來源：轉載

供稿：網友

在線演示
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>連連看_m.survivalescaperooms.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>