先是舊聞一則：日本一名 13 歲女孩在網上遭遇 Javascript 無限彈窗，然后覺得好玩而將代碼在論壇上進行分享，結果遭到了刈谷警方的詢問和指控（果然讓熊孩子碰電腦容易出事……）。此事引發了廣泛爭議，以至于日本程序員 Kimikazu Kato 在 GitHub 上發起了快來逮捕我的抗議活動，呼吁大家一起分享 JS 無限彈窗代碼，讓日本警方來逮捕他們或者去警局自首。

這段無限循環代碼主要影響桌面版 Chrome 和移動瀏覽器，而 Edge 和 Firefox 瀏覽器則不受影響，可以正常關閉窗口。代碼是在 2014 年寫的，已經被很多人分享過，而這名女孩不是唯一一位受到調查的，還有另外兩人受到調查。

我們且不說程序員 Kimikazu Kato的做法正確與否，我們今天就在技術無罪的前提下，來討論這段代碼，咳咳，敲黑板，接下來便是重點.

以上便是代碼的全部內容，下載下來重命名為index.html，然后上傳到任意服務器，再打開你的鏈接/index.html。嘿嘿嘿，之后便會無限彈出：“你是豬嗎？”，并且關都關不掉……那場面，嘖嘖，難以想象。這里建議用電腦，修改文件名后直接雙擊打開就可以在瀏覽器預覽了。

注：小庫僅進行技術分析，不承擔任何責任，聽說出了事是要扣雞腿的。??

BS是基于Visual Basic的腳本語言，簡單方便，不需要下載編譯器，更不需要配置環境，只用windows自帶的記事本就可以進行開發，簡單粗暴。

右鍵新建“文本文檔”->粘貼代碼->另存為“xxx.vbs”->保存->雙擊運行。

接下來就是代碼了：

1.最簡單的一行代碼

msgbox "你個豬頭！"

當然你還可以多寫幾行其他有趣的文字，程序將會一行一行運行。

2.死循環惡搞

上個代碼點完“確定”就運行結束了，想要整人還是不夠，那我們可以加一個死循環，點擊確定和關閉按鈕之后，會再一次彈出窗口，如此循環，無法正常關閉。

do
msgbox "你個豬頭！"
loop

那怎么才能關閉呢？只有打開任務管理器（快捷鍵Ctrl+Alt+Delete）找到wscript.exe進程冰右鍵結束任務。windows7系統wscript.exe在”進程“中，windows10系統wscript.exe在”詳細信息“中。

3.無限英文報數從1到無窮大，關閉方法同上

Set s = CreateObject("sapi.spvoice")
i=0
do
 s.speak i
 i=i+1
loop

4.無限刷新（慎用！！！）刷新難以打開任務管理器，只能強行關機

set ws=createobject("wscript.shell")
do
 ws.sendkeys "{f5}"
loop

5.QQ連續發送信息騷擾好友

打開QQ，準確記下好友的備注，代碼里的”菜雞“替換為你的好友備注，數字”30“替換為你想要發送的次數，復制好你準備發送的消息，雙擊運行vbs。

On Error Goto 0 
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100 
wsh.AppActivate("菜雞") 
wsh.sendKeys "^v"
wsh.sendKeys "%s" 
next 
wscript.quit

6.表白代碼

其中用到了定時關機，但是后面會取消的。

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop") 
set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url") 
oShellLink.Save
se_key = (MsgBox("我喜歡你很久了，你可以做我女朋友嗎 是=同意 否=拒絕 ",4,"我沒有開玩笑！！！"))
If se_key=6 Then
MsgBox "謝謝你給了我這次機會，I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜歡你！求你了，別拒絕我，好嗎？ 是=同意 否=拒絕",4,"別拒絕我，好嗎？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "謝謝你給了我這次機會，I Love You",,"Love you"
WScript.Sleep 500
Else 
MsgBox "唉，那 祝你能找到自己喜歡的人，若可回頭 記住 我在你身后一直等你！ --愛你的人",64,"祝你幸福！！"
seven.Run "shutdown.exe -a"
MsgBox "其實你拒絕了我，我也不會關你電腦的！因為你是我最重要的人，我不會捉弄你的！",64,"我愿意等你！"
End If
End If

7.撩妹代碼

只有再回答出設定好的名字是，循環才會結束

const title = "愛情測試"
const yourname = "小Y"
const question = "你最喜歡的人是誰？請在下面的方框中輸入他（她）的名字。"
const info = "你在說謊！不要逃避，實話實說。"
const scend = "你說出了你的心扉，那就向他（她）表白吧。"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

這些都是編程的入門級小程序，是不是很有趣？發給那個TA，給生活加點料~

以后將會更新界面更漂亮更有趣的HTML代碼，歡迎關注小Y~

這就是今天的分享了，快去試試吧！