搜索
首页web前端js教程用vbs实现的连连看在线游戏_javascript技巧
用vbs实现的连连看在线游戏_javascript技巧
WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB
WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB
May 16, 2016 pm 07:02 PM
vbs

在线演示
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
相关文章
如何启用Win11的VBS功能如何启用Win11的VBS功能Dec 25, 2023 pm 02:09 PM

要是之前将vbs关闭之后想要开启了，也是可以开启的，我们可以使用命令代码将其开启，下面一起来看看如何开启vbs吧，其实还是很简单的。win11vbs如何开启：1、首先我们点击“开始菜单”。2、然后点击“windows终端”。3、接着输入“bcdedit/sethypervisorlaunchtypeauto”。4、然后重启电脑，打开开始菜单，在搜索栏中搜索“系统信息”。5、然后找打“基于虚拟化的安全性”是否开启即可。

win11系统怎么打开vbs？win11重新开启vbs的方法win11系统怎么打开vbs？win11重新开启vbs的方法Jan 31, 2024 pm 11:24 PM

vbs是Virtual-BasedSecurity的缩写，它是一种基于虚拟化的安全性功能。然而，在Windows11系统中，默认情况下是关闭的。对于需要使用这个功能的用户来说，他们可能不知道如何启用。幸运的是，我们可以通过Windows终端（以管理员身份）来启用它。为了方便广大用户，我们将在今天的Win11教程中分享详细的步骤。如果你需要了解更多信息，请访问我们的网站。win11重新开启vbs教程1、首先我们右键任务栏左边的开始菜单。3、然后输入bcdedit/sethypervisorlaun

Windows11 VBS教程：如何优雅地关闭应用程序？Windows11 VBS教程：如何优雅地关闭应用程序？Mar 08, 2024 am 11:54 AM

Windows11VBS教程：如何优雅地关闭应用程序？在日常使用Windows11操作系统时，我们经常会遇到需要同时关闭多个应用程序的情况。有时候我们可能会习惯性地点击关闭按钮，或者使用任务管理器来逐个结束应用程序进程。然而，使用VBS脚本（VisualBasicScript）可以更加高效地一次性关闭多个应用程序，让操作更加流畅和便捷。1.什么是

Windows 脚本主机错误“系统找不到指定的文件”修复Windows 脚本主机错误“系统找不到指定的文件”修复Apr 13, 2023 pm 12:22 PM

Windows 脚本主机为用户提供了执行脚本的环境。一些脚本会在您登录到计算机后立即执行，其他一些脚本可能会在您触发它们时执行。当您登录到计算机，然后发现错误说“系统找不到指定的文件”错误时，本文将帮助您解决问题。好吧，此问题的原因可能有所不同，例如恶意软件攻击或安装不当，或者某些文件已被删除等。在这里，我们有不同的解决方案，您可以尝试并解决问题，所以让我们开始吧！方法 1 – 下载自动运行实用程序并检查 vbs 条目步骤 1 –转到此网站，然后单击右上角的下载图标并保存步骤 2 –下载文件夹后

vbs整人代码怎么用vbs整人代码怎么用Nov 22, 2023 am 10:05 AM

首先需要明确使用恶作剧或整人代码可能会对他人造成不必要的困扰或伤害。在编写和实施任何形式的整人代码之前，建议三思而后行，这种行为是不负责任和不道德的。vbs整人代码使用方法：1、了解目标：编写代码前，需要了解要整的目标；2、确定目标：确定想要通过脚本实现什么效果；3、编写代码：使用VBScript编写脚本；4、测试代码：先在一个安全的环境中测试它；5、实施：测试没问题即可实施。

vbs是什么文件vbs是什么文件Feb 19, 2021 pm 02:43 PM

vbs是基于Visual Basic的脚本语言，VBS的全称是“Microsoft Visual Basic Script Edition”；因为VBS较为简单可行性强，所以在打开VBS文件之前要确保VBS的安全性和渠道的可信性。

微软在 Windows 11 Dev 频道测试 24H2 版本服务管道情况，开启 VBS 后将收到 26080.1400 更新微软在 Windows 11 Dev 频道测试 24H2 版本服务管道情况，开启 VBS 后将收到 26080.1400 更新Mar 19, 2024 pm 01:25 PM

微软今日在DevChannel推送了两项服务更新，旨在测试Win1124H2版本的服务管道。这些更新并未包含任何新内容，仅为了评估系统功能和稳定性。根据官方说明，大部分在Dev频道的用户将会收到26080.1300累积更新（KB5037139），但是如果启用了基于虚拟化的安全性（VBS）功能，则会收到Build26080.1400（KB5037140）。微软强调，即使Arm64设备启用了VBS，也只会收到KB5037139更新。IT之家注：基于虚拟化的安全功能（VBS）使用硬件虚拟化和Windo

win11vbs怎么关闭win11vbs怎么关闭Jan 07, 2024 am 09:10 AM

win11默认会开启一个vbs系统保护功能，根据测试在关闭该功能之后能够提升接近30%的系统性能，因此非常适合游戏玩家关闭它，那么win11vbs怎么关闭呢。win11vbs怎么关闭1、首先我们点开底部“开始菜单”2、然后在上方搜索“Windowspowershell”并点击“以管理员身份运行”3、打开后输入“bcdedit/sethypervisorlaunchtypeoff”并回车运行。4、运行完成后，重启电脑就可以关闭vbs了。

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脱衣机

AI Hentai Generator

AI Hentai Generator

免费生成ai无尽的。

显示更多

热门文章

R.E.P.O.能量晶体解释及其做什么（黄色晶体）
3 周前By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O.最佳图形设置
3 周前By尊渡假赌尊渡假赌尊渡假赌
刺客信条阴影：贝壳谜语解决方案
1 周前ByDDD
R.E.P.O.如果您听不到任何人，如何修复音频
3 周前By尊渡假赌尊渡假赌尊渡假赌
在哪里可以找到原子中的起重机控制钥匙卡
1 周前ByDDD
显示更多

热工具

SublimeText3 英文版

SublimeText3 英文版

推荐：为Win版本，支持代码提示！

螳螂BT

螳螂BT

Mantis是一个易于部署的基于Web的缺陷跟踪工具，用于帮助产品缺陷跟踪。它需要PHP、MySQL和一个Web服务器。请查看我们的演示和托管服务。

mPDF

mPDF

mPDF是一个PHP库，可以从UTF-8编码的HTML生成PDF文件。原作者Ian Back编写mPDF以从他的网站上“即时”输出PDF文件，并处理不同的语言。与原始脚本如HTML2FPDF相比，它的速度较慢，并且在使用Unicode字体时生成的文件较大，但支持CSS样式等，并进行了大量增强。支持几乎所有语言，包括RTL（阿拉伯语和希伯来语）和CJK（中日韩）。支持嵌套的块级元素（如P、DIV），

SublimeText3 Mac版

SublimeText3 Mac版

神级代码编辑软件(SublimeText3)

SublimeText3 Linux新版

SublimeText3 Linux新版

SublimeText3 Linux最新版

显示更多

热门话题

gmail邮箱登陆入口在哪里
7439
15
CakePHP 教程
1369
52
steam的账户名称是什么格式
76
11
win11激活密钥永久
31
19
显示更多