用vbs实现的连连看在线游戏_javascript技巧
vbs
在线演示
nbsp;HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
| 连连看游戏：将两个相同格子连接起来就会消失，看谁连的快，限时10分钟！ |
| 用时： | 秒 |
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | height=40> | ||
| height=40> | height=40> | height=40> | height=40> | 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
熱AI工具
Undresser.AI Undress
人工智慧驅動的應用程序，用於創建逼真的裸體照片
AI Clothes Remover
用於從照片中去除衣服的線上人工智慧工具。
Undress AI Tool
免費脫衣圖片
Clothoff.io
AI脫衣器
Video Face Swap
使用我們完全免費的人工智慧換臉工具，輕鬆在任何影片中換臉！
熱門文章
如何修復KB5055523無法在Windows 11中安裝？
4 週前
By DDD
如何修復KB5055518無法在Windows 10中安裝？
4 週前
By DDD
<🎜>：種植花園 - 完整的突變指南
3 週前
By DDD
<🎜>：泡泡膠模擬器無窮大 - 如何獲取和使用皇家鑰匙
3 週前
By 尊渡假赌尊渡假赌尊渡假赌
如何修復KB5055612無法在Windows 10中安裝？
3 週前
By DDD
熱工具
記事本++7.3.1
好用且免費的程式碼編輯器
SublimeText3漢化版
中文版，非常好用
禪工作室 13.0.1
強大的PHP整合開發環境
Dreamweaver CS6
視覺化網頁開發工具
SublimeText3 Mac版
神級程式碼編輯軟體(SublimeText3)
win11系統怎麼開啟vbs？ win11重新開啟vbs的方法
Jan 31, 2024 pm 11:24 PM
vbs是Virtual-BasedSecurity的縮寫，它是一種基於虛擬化的安全性功能。然而，在Windows11系統中，預設情況下是關閉的。對於需要使用這個功能的使用者來說，他們可能不知道如何啟用。幸運的是，我們可以透過Windows終端機（以管理員身份）來啟用它。為了方便廣大用戶，我們將在今天的Win11教學中分享詳細的步驟。如果你需要了解更多信息，請訪問我們的網站。 win11重新開啟vbs教學1、首先我們右鍵工作列左邊的開始功能表。 3.然後輸入bcdedit/sethypervisorlaun
如何啟用Win11的VBS功能
Dec 25, 2023 pm 02:09 PM
要是之前將vbs關閉之後想要開啟了，也是可以開啟的，我們可以使用命令代碼將其開啟，下面一起來看看如何開啟vbs吧，其實還是很簡單的。 win11vbs如何開啟：1、首先我們點選「開始功能表」。 2、然後點選「windows終端」。 3.接著輸入「bcdedit/sethypervisorlaunchtypeauto」。 4、然後重新啟動電腦，打開開始選單，在搜尋欄中搜尋「系統資訊」。 5.然後找打「基於虛擬化的安全性」是否開啟即可。
Windows11 VBS教學：如何優雅地關閉應用程式？
Mar 08, 2024 am 11:54 AM
Windows11VBS教學：如何優雅地關閉應用程式？在日常使用Windows11作業系統時，我們經常會遇到需要同時關閉多個應用程式的情況。有時候我們可能會習慣性地點擊關閉按鈕，或是使用任務管理器來逐一結束應用程式進程。然而，使用VBS腳本（VisualBasicScript）可以更有效率地一次關閉多個應用程序，讓操作更加流暢和方便。 1.什麼是
Windows 腳本主機錯誤「系統找不到指定的檔案」修復
Apr 13, 2023 pm 12:22 PM
Windows 腳本主機為使用者提供了執行腳本的環境。有些腳本會在您登入電腦後立即執行，其他一些腳本可能會在您觸發它們時執行。當您登入計算機，然後發現錯誤說「系統找不到指定的文件」錯誤時，本文將幫助您解決問題。好吧，此問題的原因可能有所不同，例如惡意軟體攻擊或安裝不當，或者某些檔案已被刪除等。在這裡，我們有不同的解決方案，您可以嘗試並解決問題，所以讓我們開始吧！方法 1 – 下載自動執行公用程式並檢查 vbs 條目步驟 1 –前往此網站，然後點擊右上角的下載圖示並儲存步驟 2 –下載資料夾後
微軟在 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
vbs整人程式碼怎麼用
Nov 22, 2023 am 10:05 AM
首先需要明確使用惡作劇或整人代碼可能會對他人造成不必要的困擾或傷害。在編寫和實施任何形式的整人程式碼之前，建議三思而後行，這種行為是不負責任和不道德的。 vbs整人程式碼使用方法：1、了解目標：編寫程式碼前，需要了解要整的目標；2、確定目標：確定想要透過腳本實現什麼效果；3、編寫程式碼：使用VBScript編寫腳本；4、測試程式碼：先在安全的環境下測試它；5、實作：測試沒問題即可實作。
vbs是什麼文件
Feb 19, 2021 pm 02:43 PM
vbs是基於Visual Basic的腳本語言，VBS的全名為「Microsoft Visual Basic Script Edition」；因為VBS較為簡單可行性強，所以在開啟VBS檔案之前要確保VBS的安全性和管道的可信任性。
如何關閉Win11中的vbs腳本
Jan 02, 2024 pm 11:23 PM
vbs是win11預設開啟的功能，這項功能開啟之後會降低我們電腦30%左右的效能，我們只有將其關閉才可以獲得更好的遊戲體驗感，那麼應該如何關閉呢，一起來看看吧。 win11vbs如何關閉：1、先點選「開始」選單。 2、接著在上方搜尋「windowspowershell」然後以管理員身分執行。 3.打開之後輸入「bcdedit/sethypervisorlaunchtypeoff」並按下回車。 4.最後運轉完成重啟就可以關閉了。
