整合營銷服務(wù)商
電腦端+手機(jī)端+微信端=數(shù)據(jù)同步管理
免費(fèi)咨詢熱線：
電腦端+手機(jī)端+微信端=數(shù)據(jù)同步管理
免費(fèi)咨詢熱線：
先是舊聞一則：日本一名 13 歲女孩在網(wǎng)上遭遇 Javascript 無限彈窗，然后覺得好玩而將代碼在論壇上進(jìn)行分享，結(jié)果遭到了刈谷警方的詢問和指控（果然讓熊孩子碰電腦容易出事……）。此事引發(fā)了廣泛爭議，以至于日本程序員 Kimikazu Kato 在 GitHub 上發(fā)起了快來逮捕我的抗議活動(dòng)，呼吁大家一起分享 JS 無限彈窗代碼，讓日本警方來逮捕他們或者去警局自首。
這段無限循環(huán)代碼主要影響桌面版 Chrome 和移動(dòng)瀏覽器，而 Edge 和 Firefox 瀏覽器則不受影響，可以正常關(guān)閉窗口。代碼是在 2014 年寫的，已經(jīng)被很多人分享過，而這名女孩不是唯一一位受到調(diào)查的，還有另外兩人受到調(diào)查。
我們且不說程序員 Kimikazu Kato的做法正確與否，我們今天就在技術(shù)無罪的前提下，來討論這段代碼，咳咳，敲黑板，接下來便是重點(diǎn).
以上便是代碼的全部內(nèi)容，下載下來重命名為index.html，然后上傳到任意服務(wù)器，再打開你的鏈接/index.html。嘿嘿嘿，之后便會(huì)無限彈出：“你是豬嗎？”，并且關(guān)都關(guān)不掉……那場面，嘖嘖，難以想象。這里建議用電腦，修改文件名后直接雙擊打開就可以在瀏覽器預(yù)覽了。
注：小庫僅進(jìn)行技術(shù)分析，不承擔(dān)任何責(zé)任，聽說出了事是要扣雞腿的。??
BS是基于Visual Basic的腳本語言，簡單方便，不需要下載編譯器，更不需要配置環(huán)境，只用windows自帶的記事本就可以進(jìn)行開發(fā)，簡單粗暴。
右鍵新建“文本文檔”->粘貼代碼->另存為“xxx.vbs”->保存->雙擊運(yùn)行。
接下來就是代碼了：
1.最簡單的一行代碼
msgbox "你個(gè)豬頭！"
當(dāng)然你還可以多寫幾行其他有趣的文字，程序?qū)?huì)一行一行運(yùn)行。
2.死循環(huán)惡搞
上個(gè)代碼點(diǎn)完“確定”就運(yùn)行結(jié)束了，想要整人還是不夠，那我們可以加一個(gè)死循環(huán)，點(diǎn)擊確定和關(guān)閉按鈕之后，會(huì)再一次彈出窗口，如此循環(huán)，無法正常關(guān)閉。
do msgbox "你個(gè)豬頭！" loop
那怎么才能關(guān)閉呢？只有打開任務(wù)管理器（快捷鍵Ctrl+Alt+Delete）找到wscript.exe進(jìn)程冰右鍵結(jié)束任務(wù)。windows7系統(tǒng)wscript.exe在”進(jìn)程“中，windows10系統(tǒng)wscript.exe在”詳細(xì)信息“中。
結(jié)束wscript.exe進(jìn)程
3.無限英文報(bào)數(shù)從1到無窮大，關(guān)閉方法同上
Set s=CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
4.無限刷新（慎用?。。。┧⑿码y以打開任務(wù)管理器，只能強(qiáng)行關(guān)機(jī)
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
5.QQ連續(xù)發(fā)送信息騷擾好友
打開QQ，準(zhǔn)確記下好友的備注，代碼里的”菜雞“替換為你的好友備注，數(shù)字”30“替換為你想要發(fā)送的次數(shù)，復(fù)制好你準(zhǔn)備發(fā)送的消息，雙擊運(yùn)行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
QQ騷擾好友
6.表白代碼
其中用到了定時(shí)關(guān)機(jī)，但是后面會(huì)取消的。
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 "謝謝你給了我這次機(jī)會(huì)，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 "謝謝你給了我這次機(jī)會(huì)，I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉，那 祝你能找到自己喜歡的人，若可回頭 記住 我在你身后一直等你！ --愛你的人",64,"祝你幸福?。?
seven.Run "shutdown.exe -a"
MsgBox "其實(shí)你拒絕了我，我也不會(huì)關(guān)你電腦的！因?yàn)槟闶俏易钪匾娜耍也粫?huì)捉弄你的！",64,"我愿意等你！"
End If
End If
延時(shí)關(guān)機(jī)
7.撩妹代碼
只有再回答出設(shè)定好的名字是，循環(huán)才會(huì)結(jié)束
const title="愛情測試" const yourname="小Y" const question="你最喜歡的人是誰？請?jiān)谙旅娴姆娇蛑休斎胨ㄋ┑拿帧? const info="你在說謊！不要逃避，實(shí)話實(shí)說。" 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
這些都是編程的入門級小程序，是不是很有趣？發(fā)給那個(gè)TA，給生活加點(diǎn)料~
以后將會(huì)更新界面更漂亮更有趣的HTML代碼，歡迎關(guān)注小Y~
這就是今天的分享了，快去試試吧！
近一直在學(xué)習(xí)網(wǎng)絡(luò)爬蟲， 從最開始的用urllib2 bs4模塊一行一行寫爬蟲， 到現(xiàn)在掌握scrapy爬蟲框架， 再到學(xué)習(xí)如何破解反爬蟲， 對網(wǎng)絡(luò)爬蟲有了基本的了解。今天看糗百段子，突然想起以前想看段子而手機(jī)流量又不夠的時(shí)候想著有一天能在家里把段子下載到手機(jī)上離線看就好了?，F(xiàn)在學(xué)了爬蟲，感覺愿望可以實(shí)現(xiàn)了。 于是今天就以爬取糗事百科搞笑段子為例， 對之前的學(xué)習(xí)做個(gè)總結(jié)。
這個(gè)例子還是基于python， 用的scrapy框架。 爬取搞笑段子原理其實(shí)很簡單： 打開糗事百科， 找到入口url（每一頁為一個(gè)入口）， 然后遍歷所有網(wǎng)頁， 獲取搞笑段子信息保存到本地文件中。
首先打開糗事百科頁面， 我準(zhǔn)備爬取純文字和熱圖兩個(gè)分類。 觀察兩個(gè)分類每一頁url有如下特征：
如此可以通過第一個(gè)url和一個(gè)for循環(huán)構(gòu)建出剩下的所有url。
知道如何構(gòu)建入口url后， 觀察下頁面的html源碼， 每個(gè)段子的作者、內(nèi)容等信息可以用xpath很容易的提取出來。 如：作者=‘//div[@class="article"]//h2/text()’; 內(nèi)容='//div[@class="article"http://span/text()]'
經(jīng)過以上分析后， 剩下的就是寫代碼實(shí)現(xiàn)了。 為了快速爬取又不被反爬蟲機(jī)制發(fā)現(xiàn)， 這里使用了代理ip機(jī)制， 主要代碼貼上來
這段代碼是用python重寫scrapy中間件， 主要實(shí)現(xiàn)下面兩個(gè)功能：
改寫user-agent, 破解基于user-agent原理的反爬蟲機(jī)制
每次請求都從代理ip池中隨機(jī)拿一個(gè)來用， 這樣請求間隔就可以設(shè)置的非常短， 爬取速度變快而不用擔(dān)心ip被封禁了。 說明下alive.txt中的內(nèi)容是上篇文章中爬取到的代理ip并被驗(yàn)證為有效的代理ip
這段代碼是pipelines.py， 用來把爬取到的段子信息保存到本地的txt文檔里， 其中圖片會(huì)下載到IMG目錄下
下面代碼是爬蟲的實(shí)現(xiàn)， 主要是通過url獲取到網(wǎng)頁html， 然后通過xpath提取出搞笑段子
主要的實(shí)現(xiàn)就是這樣的， 寫出來供大家參考， 我最終爬取出來的結(jié)果是這樣的：
這格式純文字的爬取結(jié)果：
這個(gè)是熱圖的爬取結(jié)果， 圖片都保存在同級目錄下的IMG目錄下
寫這篇文章的目的是對前端時(shí)間學(xué)習(xí)有個(gè)總結(jié)， 同時(shí)期望自己的些許經(jīng)驗(yàn)?zāi)茏屨趯W(xué)習(xí)爬蟲的朋友有個(gè)參考
歡迎轉(zhuǎn)載！
*請認(rèn)真填寫需求信息，我們會(huì)在24小時(shí)內(nèi)與您取得聯(lián)系。
