什么微信小程序恶搞好友假装拉黑

一、 伪装屁声

这个小程序能把屁声伪造成礼物的样子让被整蛊人当场社死。

第一眼看下去，大多数人会本能认为是一个礼物，会下意识地点开。

只要点开这个“礼物”，就会出现放屁的声音，让人当场社死。

当然啦，如果我们有需要，也可以调整屁屁声的节奏，有“一气呵成”、“慢慢悠悠”、“地动山摇”，多种声音任君挑选，让朋友在多种屁体验中社死。

噗噗~这酸爽属实是比老坛酸菜还带劲了。

除了伪装屁声和表白情书，小雷还打包了其他整蛊工具，感兴趣的小伙伴快点击小雷头像私信回复“789”获取~

二、表白情书

除了情人节，愚人节也是个不错的表白日。

在愚人节这天，即使表白被拒也不会过于尴尬。

小雷推荐的这款表白情书能自动生成情书，生成后点击发送给对方即可。

点开后我们能看到情书内容，配上BGM，一个表白的氛围就出来了。

如果我们对自动生成的内容不满意，我们可以在后台对情书内容进行修改。

话不多说，明天小雷就去跟心里的那个TA试试。

除了这两个整蛊神器，小雷还准备了其他的整蛊工具，感兴趣的小伙伴不要错过了！

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a <>"我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"

这是网上流行的一种让别人关机的代码

---