搜索
首页web前端js教程用vbs实现的连连看在线游戏_javascript技巧

在线演示
nbsp;HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">


连连看_www.jb51.net_脚本之家








  
  
    
连连看游戏:将两个相同格子连接起来就会消失,看谁连的快,限时10分钟!


align=center border=1>
  
  
    
    


  
  
    
    
    
用时:  

border=1>
  
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
      
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
      
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>
    height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>     height=40>




<script> <BR><!-- <br><br>dim x,y <BR>dim clickId <BR>dim obj1,obj2,Flag1 <BR>dim Num1,Num2 <BR>dim mytime <BR>dim Myrnd <BR>dim x1,y1,x2,y2 <BR>Flag1=0 <BR>dim NumArray(10,17) <BR>dim QuanArray(10,17) <BR>dim LuJArray(10,17) <BR>dim RTN,RTN1,RTN2 <BR>dim totalNum,lastNum <BR>lastNum=0 <br><br> '初始化数字数组开始 <BR> for x=0 to 10 <BR> for y=0 to 17 <BR> numArray(x,y)=0 <BR> QuanArray(x,y)=0 <BR> next <BR> next <BR> '初始化数字数组结束 <br><br> for x=1 to 9 <BR> for y=1 to 16 <BR> window.execScript "td_" & X & "_" & y & ".innerText =" & chr(34) & "0" & chr(34),"vbs" <BR> next <BR> next <br><br>'随便放些数字开始 <BR> do <BR> randomize <BR> RndX=cint(rnd*9)+1 <BR> randomize <BR> Rndy=cint(rnd*16)+1 <BR> randomize <BR> Myrnd=cint(rnd*30)+1 <BR> window.execScript "lastNum=td_" & RndX & "_" & Rndy & ".innerText","vbs" <br><br> if lastNum="0" then <BR> window.execScript "td_" & RndX & "_" & Rndy & ".innerText =" & Myrnd,"vbs" <BR> NumArray(RndX,Rndy)=Myrnd <BR> totalNum=totalNum+1 <BR> do <BR> randomize <BR> RndX=cint(rnd*9)+1 <BR> randomize <BR> Rndy=cint(rnd*16)+1 <BR> window.execScript "lastNum=td_" & RndX & "_" & Rndy & ".innerText" <BR> if lastNum="0" then <BR> window.execScript "td_" & RndX & "_" & Rndy & ".innerText =" & Myrnd,"vbs" <BR> NumArray(RndX,Rndy)=Myrnd <BR> totalNum=totalNum+1 <BR> exit do <BR> end if <BR> loop <BR> end if <BR> if totalNum=16*9 then exit do'如果生成了全部数字,那么退出 <BR> loop <BR>'随便放些数字结束 <br><br>sub aaa(obj) <BR> for x=0 to 10 <BR> for y=0 to 17 <BR> QuanArray(x,y)=0 <BR> next <BR> next <BR> if obj1=obj.id then exit sub '如果选择还是相同那么认为没选,跳出本过程 <br><br> Flag1=Flag1+1 <BR> Flag1=Flag1 mod 3 <BR> RTN=fase <BR> select case Flag1 <BR> case 0'什么也没选 <br><br> case 1 <BR> obj1=obj.id <BR> Num1=obj.innerText <BR> obj.bordercolor="#ff0000" <BR> temarray=split(obj1,"_") <BR> x1=cint(temarray(1)) <BR> y1=cint(temarray(2)) <BR> case 2 <BR> obj2=obj.id <BR> Num2=obj.innerText <BR> obj.bordercolor="#ff0000" <BR> temarray=split(obj2,"_") <BR> x2=cint(temarray(1)) <BR> y2=cint(temarray(2)) <BR> if Num1=Num2 then <BR> RTN1=CheckLink(x1,y1,x2,y2) <br><br> if RTN1=true then <BR> Dispear x1,y1,x2,y2 <BR> Flag1=0 <BR> else <BR> '恢复 <BR> Flag1=0 <BR> window.execScript "td_" & x1 & "_" & y1 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs" <BR> window.execScript "td_" & x2 & "_" & y2 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs" <BR> end if <BR> else <BR> '恢复 <BR> Flag1=0 <br><br> window.execScript "td_" & x1 & "_" & y1 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs" <BR> window.execScript "td_" & x2 & "_" & y2 & ".bordercolor =" & chr(34) & "#00FF66" & chr(34),"vbs" <br><br> <BR> end if <BR> end select <br><br> <BR>end sub <br><br><BR>function CheckLink(xx1,yy1,xx2,yy2) <BR>RTN=false <BR> for x=0 to 10 <BR> for y=0 to 17 <BR> QuanArray(x,y)=0 <BR> next <BR> next <BR> QuanArray(xx1,yy1)=1 <BR> RTN2=gogogogo(xx1,yy1) <BR> CheckLink= RTN <br><br>end function <br><br>function gogogogo(xx,yy) <BR>'vartype(xx) & "!"& xx & "-" & yy & "*" & vartype(x2) & " !" & x2 & "-" & y2 <BR>'msgbox xx & "-" & yy <BR>'if xx<=10 and xx>=0 and yy<=17 and yy>=0 then <BR> 'window.execScript "td_" & xx & "_" & yy & ".innertext =" & chr(34) & "#" & chr(34),"vbs" <BR> 'window.execScript "td_" & xx & "_" & yy & ".bordercolor =" & chr(34) & "#0000ff" & chr(34),"vbs" <BR>'end if <BR>if vartype(xx)<>2 then xx=cint(xx) <BR>if vartype(yy)<>2 then yy=cint(yy) <BR>if vartype(x2)<>2 then x2=cint(x2) <BR>if vartype(y2)<>2 then y2=cint(y2) <br><br>if RTN=true then <BR> gogogogo=true <BR> exit function <BR>end if <BR>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'先判断四周是不是 <BR> '连到了的选项 <BR> gogogogo=true <BR> RTN=true <BR> exit function <BR>else'这里是已经判断了四周不是 <br><br> '向下开始 <BR> if xx+1<=10 then'是否碰壁 <BR> if not(xx+1=x2 and yy =y2) then'是否连到了 <BR> if numArray(xx+1,yy)=0 then '是否碰到了别的图片 <BR> '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok! <BR> if (xx+2 =x2 and yy=y2) or (xx+1 =x2 and yy+1=y2) or (xx+1 =x2 and yy-1=y2) then <BR> '连到了的选项 <br><br> gogogogo=true <BR> RTN=true <br><br> exit function <BR> else <BR> '这里是空地但是还没连上目标mm <BR> if QuanArray(xx+1,yy)=0 then'是否已经来过此地 <BR> '连通空地,继续走继续朝前走的选项 <BR> QuanArray(xx+1,yy)=1'撒尿标记:老孙从这个方向到此一游! <BR> RTN2=gogogogo(xx+1,yy)'继续去取经 <BR> else <BR> '来过了 <BR> end if <BR> end if <BR> else <BR> '碰到了别的图片,和碰壁查不多 <BR> end if <BR> else <BR> '连到了的选项 <BR> gogogogo=true <BR> RTN=true <BR> exit function <BR> end if <BR> else <BR> '碰壁了 <BR> end if <BR> '向下结束 <BR> '向上开始 <BR> if xx-1>=0 then'是否碰壁 <BR> if not(xx-1=x2 and yy=y2) then '是否连到了 <BR> if numArray(xx-1,yy)=0 then '是否碰到了别的图片 <BR> '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok! <BR> if (xx-2 =x2 and yy=y2) or (xx-1 =x2 and yy+1=y2) or (xx-1 =x2 and yy-1=y2) then <BR> '连到了的选项 <br><br> gogogogo=true <BR> RTN=true <br><br> exit function <BR> else <BR> '这里是空地但是还没连上目标mm <BR> if QuanArray(xx-1,yy)=0 then'是否已经来过此地 <BR> '连通空地,继续走继续朝前走的选项 <BR> QuanArray(xx-1,yy)=2'撒尿标记:老孙从这个方向到此一游! <BR> RTN2=gogogogo(xx-1,yy)'继续去取经 <BR> else <BR> '来过了 <BR> end if <BR> end if <BR> else <BR> '碰到了别的图片,和碰壁查不多 <BR> end if <BR> else <BR> '连到了的选项 <BR> gogogogo=true <BR> RTN=true <BR> exit function <BR> end if <BR> else <BR> '碰壁了 <BR> end if <BR> '向上结束 <BR> '向左开始 <BR> if yy-1>=0 then'是否碰壁 <BR> if not(yy-1=y2 and xx=x2) then '是否连到了 <BR> if numArray(xx,yy-1)=0 then '是否碰到了别的图片 <BR> '这里是空地,如果空地的其余三面连接目标图片,那么就结束了,ok! <BR> </script>
声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
Python vs. JavaScript:开发人员的比较分析Python vs. JavaScript:开发人员的比较分析May 09, 2025 am 12:22 AM

Python和JavaScript的主要区别在于类型系统和应用场景。1.Python使用动态类型,适合科学计算和数据分析。2.JavaScript采用弱类型,广泛用于前端和全栈开发。两者在异步编程和性能优化上各有优势,选择时应根据项目需求决定。

Python vs. JavaScript:选择合适的工具Python vs. JavaScript:选择合适的工具May 08, 2025 am 12:10 AM

选择Python还是JavaScript取决于项目类型:1)数据科学和自动化任务选择Python;2)前端和全栈开发选择JavaScript。Python因其在数据处理和自动化方面的强大库而备受青睐,而JavaScript则因其在网页交互和全栈开发中的优势而不可或缺。

Python和JavaScript:了解每个的优势Python和JavaScript:了解每个的优势May 06, 2025 am 12:15 AM

Python和JavaScript各有优势,选择取决于项目需求和个人偏好。1.Python易学,语法简洁,适用于数据科学和后端开发,但执行速度较慢。2.JavaScript在前端开发中无处不在,异步编程能力强,Node.js使其适用于全栈开发,但语法可能复杂且易出错。

JavaScript的核心:它是在C还是C上构建的?JavaScript的核心:它是在C还是C上构建的?May 05, 2025 am 12:07 AM

javascriptisnotbuiltoncorc; saninterpretedlanguagethatrunsonenginesoftenwritteninc.1)javascriptwasdesignedAsalightweight,解释edganguageforwebbrowsers.2)Enginesevolvedfromsimpleterterterpretpreterterterpretertestojitcompilerers,典型地提示。

JavaScript应用程序:从前端到后端JavaScript应用程序:从前端到后端May 04, 2025 am 12:12 AM

JavaScript可用于前端和后端开发。前端通过DOM操作增强用户体验,后端通过Node.js处理服务器任务。1.前端示例:改变网页文本内容。2.后端示例:创建Node.js服务器。

Python vs. JavaScript:您应该学到哪种语言?Python vs. JavaScript:您应该学到哪种语言?May 03, 2025 am 12:10 AM

选择Python还是JavaScript应基于职业发展、学习曲线和生态系统:1)职业发展:Python适合数据科学和后端开发,JavaScript适合前端和全栈开发。2)学习曲线:Python语法简洁,适合初学者;JavaScript语法灵活。3)生态系统:Python有丰富的科学计算库,JavaScript有强大的前端框架。

JavaScript框架:为现代网络开发提供动力JavaScript框架:为现代网络开发提供动力May 02, 2025 am 12:04 AM

JavaScript框架的强大之处在于简化开发、提升用户体验和应用性能。选择框架时应考虑:1.项目规模和复杂度,2.团队经验,3.生态系统和社区支持。

JavaScript,C和浏览器之间的关系JavaScript,C和浏览器之间的关系May 01, 2025 am 12:06 AM

引言我知道你可能会觉得奇怪,JavaScript、C 和浏览器之间到底有什么关系?它们之间看似毫无关联,但实际上,它们在现代网络开发中扮演着非常重要的角色。今天我们就来深入探讨一下这三者之间的紧密联系。通过这篇文章,你将了解到JavaScript如何在浏览器中运行,C 在浏览器引擎中的作用,以及它们如何共同推动网页的渲染和交互。JavaScript与浏览器的关系我们都知道,JavaScript是前端开发的核心语言,它直接在浏览器中运行,让网页变得生动有趣。你是否曾经想过,为什么JavaScr

See all articles

热AI工具

Undresser.AI Undress

Undresser.AI Undress

人工智能驱动的应用程序,用于创建逼真的裸体照片

AI Clothes Remover

AI Clothes Remover

用于从照片中去除衣服的在线人工智能工具。

Undress AI Tool

Undress AI Tool

免费脱衣服图片

Clothoff.io

Clothoff.io

AI脱衣机

Video Face Swap

Video Face Swap

使用我们完全免费的人工智能换脸工具轻松在任何视频中换脸!

热门文章

热工具

SecLists

SecLists

SecLists是最终安全测试人员的伙伴。它是一个包含各种类型列表的集合,这些列表在安全评估过程中经常使用,都在一个地方。SecLists通过方便地提供安全测试人员可能需要的所有列表,帮助提高安全测试的效率和生产力。列表类型包括用户名、密码、URL、模糊测试有效载荷、敏感数据模式、Web shell等等。测试人员只需将此存储库拉到新的测试机上,他就可以访问到所需的每种类型的列表。

Dreamweaver Mac版

Dreamweaver Mac版

视觉化网页开发工具

MinGW - 适用于 Windows 的极简 GNU

MinGW - 适用于 Windows 的极简 GNU

这个项目正在迁移到osdn.net/projects/mingw的过程中,你可以继续在那里关注我们。MinGW:GNU编译器集合(GCC)的本地Windows移植版本,可自由分发的导入库和用于构建本地Windows应用程序的头文件;包括对MSVC运行时的扩展,以支持C99功能。MinGW的所有软件都可以在64位Windows平台上运行。

SublimeText3 英文版

SublimeText3 英文版

推荐:为Win版本,支持代码提示!

WebStorm Mac版

WebStorm Mac版

好用的JavaScript开发工具