先是旧闻一则：日本一名 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~

这就是今天的分享了，快去试试吧！

近一直在学习网络爬虫， 从最开始的用urllib2 bs4模块一行一行写爬虫， 到现在掌握scrapy爬虫框架， 再到学习如何破解反爬虫， 对网络爬虫有了基本的了解。今天看糗百段子，突然想起以前想看段子而手机流量又不够的时候想着有一天能在家里把段子下载到手机上离线看就好了。现在学了爬虫，感觉愿望可以实现了。 于是今天就以爬取糗事百科搞笑段子为例， 对之前的学习做个总结。

这个例子还是基于python， 用的scrapy框架。 爬取搞笑段子原理其实很简单： 打开糗事百科， 找到入口url（每一页为一个入口）， 然后遍历所有网页， 获取搞笑段子信息保存到本地文件中。

首先打开糗事百科页面， 我准备爬取纯文字和热图两个分类。 观察两个分类每一页url有如下特征：

如此可以通过第一个url和一个for循环构建出剩下的所有url。

知道如何构建入口url后， 观察下页面的html源码， 每个段子的作者、内容等信息可以用xpath很容易的提取出来。 如：作者=‘//div[@class="article"]//h2/text()’; 内容='//div[@class="article"//span/text()]'

经过以上分析后， 剩下的就是写代码实现了。 为了快速爬取又不被反爬虫机制发现， 这里使用了代理ip机制， 主要代码贴上来

这段代码是用python重写scrapy中间件， 主要实现下面两个功能：

1. 改写user-agent, 破解基于user-agent原理的反爬虫机制

2. 每次请求都从代理ip池中随机拿一个来用， 这样请求间隔就可以设置的非常短， 爬取速度变快而不用担心ip被封禁了。 说明下alive.txt中的内容是上篇文章中爬取到的代理ip并被验证为有效的代理ip
   

这段代码是pipelines.py， 用来把爬取到的段子信息保存到本地的txt文档里， 其中图片会下载到IMG目录下

下面代码是爬虫的实现， 主要是通过url获取到网页html， 然后通过xpath提取出搞笑段子

主要的实现就是这样的， 写出来供大家参考， 我最终爬取出来的结果是这样的：

这格式纯文字的爬取结果：

这个是热图的爬取结果， 图片都保存在同级目录下的IMG目录下

写这篇文章的目的是对前端时间学习有个总结， 同时期望自己的些许经验能让正在学习爬虫的朋友有个参考

欢迎转载！