用vbs实现的连连看在线游戏_javascript技巧
在线演示
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>
Alat AI Hot
Undresser.AI Undress
Apl berkuasa AI untuk mencipta foto bogel yang realistik
AI Clothes Remover
Alat AI dalam talian untuk mengeluarkan pakaian daripada foto.
Undress AI Tool
Gambar buka pakaian secara percuma
Clothoff.io
Penyingkiran pakaian AI
AI Hentai Generator
Menjana ai hentai secara percuma.
Artikel Panas
Alat panas
Notepad++7.3.1
Editor kod yang mudah digunakan dan percuma
SublimeText3 versi Cina
Versi Cina, sangat mudah digunakan
Hantar Studio 13.0.1
Persekitaran pembangunan bersepadu PHP yang berkuasa
Dreamweaver CS6
Alat pembangunan web visual
SublimeText3 versi Mac
Perisian penyuntingan kod peringkat Tuhan (SublimeText3)
Topik panas
Bagaimana untuk mendayakan fungsi VBS Win11
Dec 25, 2023 pm 02:09 PM
Jika anda ingin membuka vbs selepas menutupnya sebelum ini, anda juga boleh membukanya. Kita boleh menggunakan kod arahan untuk membukanya. Cara membuka win11vbs: 1. Pertama, kita klik pada “Start Menu”. 2. Kemudian klik "Windows Terminal". 3. Kemudian masukkan "bcdedit/sethypervisorlaunchtypeauto". 4. Kemudian mulakan semula komputer, buka menu mula, dan cari "maklumat sistem" dalam bar carian. 5. Kemudian semak sama ada "keselamatan berasaskan virtualisasi" dihidupkan.
Bagaimana untuk membuka vbs dalam sistem win11? Bagaimana untuk memulakan semula vbs dalam win11
Jan 31, 2024 pm 11:24 PM
vbs ialah singkatan dari Virtual-BasedSecurity, yang merupakan fungsi keselamatan berdasarkan virtualisasi. Walau bagaimanapun, dalam sistem Windows 11, ia dimatikan secara lalai. Bagi pengguna yang perlu menggunakan ciri ini, mereka mungkin tidak tahu cara mendayakannya. Nasib baik, kami boleh mendayakannya melalui Windows Terminal (sebagai pentadbir). Untuk kemudahan pengguna, kami akan berkongsi langkah terperinci dalam tutorial Win11 hari ini. Jika anda memerlukan maklumat lanjut, sila layari laman web kami. Tutorial untuk memulakan semula vbs dalam win11 1. Mula-mula, kita klik kanan menu mula di sebelah kiri bar tugas. 3. Kemudian masukkan bcdedit/sethypervisorlaun
Tutorial VBS Windows11: Bagaimana untuk menutup aplikasi dengan anggun?
Mar 08, 2024 am 11:54 AM
Tutorial VBS Windows 11: Bagaimana untuk menutup aplikasi dengan anggun? Apabila menggunakan sistem pengendalian Windows 11 setiap hari, kita sering menghadapi situasi di mana kita perlu menutup berbilang aplikasi pada masa yang sama. Kadangkala kita lazimnya mengklik butang tutup, atau menggunakan pengurus tugas untuk menamatkan proses aplikasi satu demi satu. Walau bagaimanapun, menggunakan skrip VBS (VisualBasicScript) boleh menutup berbilang aplikasi serentak dengan lebih cekap, menjadikan operasi lebih lancar dan lebih mudah. 1.Apa itu
Ralat Windows Script Host 'Sistem tidak dapat mencari fail yang ditentukan' betulkan
Apr 13, 2023 pm 12:22 PM
Windows Script Host menyediakan pengguna dengan persekitaran untuk melaksanakan skrip. Sesetengah skrip dilaksanakan sebaik sahaja anda log masuk ke komputer anda, dan yang lain mungkin dilaksanakan apabila anda mencetuskannya. Apabila anda log masuk ke komputer anda dan kemudian menemui ralat mengatakan ralat "Sistem tidak dapat mencari fail yang ditentukan", artikel ini akan membantu anda menyelesaikan masalah tersebut. Nah, sebab untuk masalah ini boleh berbeza seperti serangan malware atau pemasangan yang tidak betul atau beberapa fail telah dipadamkan dsb. Di sini kami mempunyai penyelesaian berbeza yang boleh anda cuba dan selesaikan masalah anda, jadi mari mulakan! Kaedah 1 – Muat turun utiliti autorun dan semak entri vbs Langkah 1 – Pergi ke laman web ini dan klik pada ikon muat turun di sudut kanan atas dan simpan Langkah 2 – Selepas memuat turun folder
Bagaimana untuk menggunakan kod seluruh orang vbs
Nov 22, 2023 am 10:05 AM
Pertama sekali, perlu jelas bahawa menggunakan gurauan atau kod buli boleh menyebabkan kesusahan atau bahaya yang tidak perlu kepada orang lain. Adalah disyorkan untuk berfikir dua kali sebelum menulis dan melaksanakan sebarang bentuk kod jahat adalah tidak bertanggungjawab dan tidak beretika. Cara menggunakan kod penyuntingan vbs: 1. Fahami matlamat: sebelum menulis kod, anda perlu memahami matlamat yang hendak diintegrasikan 2. Tentukan matlamat: tentukan kesan yang ingin anda capai melalui skrip; : gunakan VBScript untuk menulis skrip; 4. Kod Ujian: Uji dahulu dalam persekitaran yang selamat 5. Pelaksanaan: Jika tiada masalah dengan ujian, ia boleh dilaksanakan.
vbs是什么文件
Feb 19, 2021 pm 02:43 PM
vbs是基于Visual Basic的脚本语言，VBS的全称是“Microsoft Visual Basic Script Edition”；因为VBS较为简单可行性强，所以在打开VBS文件之前要确保VBS的安全性和渠道的可信性。
Microsoft sedang menguji saluran perkhidmatan versi 24H2 dalam saluran Windows 11 Dev Selepas menghidupkan VBS, anda akan menerima kemas kini 26080.1400
Mar 19, 2024 pm 01:25 PM
Microsoft menolak dua kemas kini perkhidmatan pada DevChannel hari ini, bertujuan untuk menguji versi Win1124H2 saluran paip perkhidmatan. Kemas kini ini tidak mengandungi sebarang kandungan baharu dan disediakan semata-mata untuk menilai kefungsian dan kestabilan sistem. Menurut arahan rasmi, kebanyakan pengguna dalam saluran Dev akan menerima kemas kini terkumpul 26080.1300 (KB5037139), tetapi jika ciri keselamatan berasaskan virtualisasi (VBS) didayakan, mereka akan menerima Build 26080.1400 (KB5037140). Microsoft menekankan bahawa peranti Arm64 hanya akan menerima kemas kini KB5037139, walaupun ia telah mendayakan VBS. Nota Laman Utama IT: Keselamatan berasaskan maya (VBS) menggunakan virtualisasi perkakasan dan Windo
Bagaimana untuk menutup win11vbs
Jan 07, 2024 am 09:10 AM
Win11 akan mendayakan fungsi perlindungan sistem vbs secara lalai Menurut ujian, mematikan fungsi ini boleh meningkatkan prestasi sistem hampir 30%, jadi sangat sesuai untuk pemain mematikannya. Cara menutup win11vbs 1. Pertama, kita klik pada "Start Menu" di bahagian bawah 2. Kemudian cari "Windows PowerShell" di bahagian atas dan klik "Run as Administrator". " dan tekan Enter untuk menjalankan. 4. Selepas operasi selesai, mulakan semula komputer untuk menutup vbs.
