首先在桌面新建一个txt文本，然后将代码复制进去，里面中文的内容可以根据自己的需求来修改(开启你的脑洞，发挥你的想象，马上你就玩的比小编还6)，而英文和标点符 千万不要修改哦，改了就无法执行了。先来第一个“强行表白大法”，下面是代码
msgbox “做我女朋友好吗”,vbQuestion,”在吗”
msgbox (“房产写你名字”)
msgbox (“保大”)
msgbox (“我妈会游泳”)
dim j
do while j
Select Case msgbox(“做我女朋友好吗”,68,”请郑重的回答我”)
Case 6 j=1
Case 7 msgbox(“再给你一次机会”)
end Select
loop
msgbox(“我就知道你会同意的，哈哈哈哈”)
web前端开发学习Q-q-u-n： 767273102 ，分享开发工具，零基础，进阶视频教程，希望新手少走弯路
修改好之后保存，再右击文件重命名将文件.txt后缀改为 .vbs后缀。(这里补充一点如果没有显示文件后缀的小伙伴，可以在我的电脑里进入文件夹和搜索选项，再去掉隐藏已知文件类型的扩展名的勾再点确定就行了，具体操作看下面，4步搞定)
上面是Win7的修改方式，如果你电脑是Win10的，那就按下面这个方式来修改就可以咯
Win10操作方式
如果上面4步都做了，还是不能显示文件后缀，那可能是你没勾选下面这个选项，只需勾选一下就可以了。
Win10操作方式
还有一些恶搞的代码，比如倒计时60秒威胁关机的程序，必须输入指定文字(比如我是猪，我要帮xxx洗脚，反正放开你的脑洞，嗨起来)才可以解除，用来教育一下不听话的小女朋友，是个不错的选择，哈哈。以及整蛊好友的 页代码(这个只需将.txt的后缀修改为.HTML)，大家可以根据自己的想法进行不同的尝试。
第一个：说我要帮xxx洗脚，不然一分钟关机(后缀改成.vbs)
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell”)
WSHshellA.run “cmd.exe /c shutdown -r -t 60 -c “”说我要帮xxx洗脚，不说就一分钟关你机，不信，试试···”” “,0 ,true
dim a
do while(a “我要帮xxx洗脚”)
a = inputbox (“说我要帮xxx洗脚，就不关机，快撒，说 “”我要帮xxx洗脚”” ”,”说不说”,”不说”,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) + “宝宝是不是又帅啦”
web前端开发学习Q-q-u-n： 767273102 ，分享开发工具，零基础，进阶视频教程，希望新手少走弯路
第二个：说我是猪，不然关机哦(后缀改成.vbs)
set ws=createobject(“wscript.shell”)
call shutdown(1)
do while a“我是猪”
a=inputbox(“快在下面的框框里输入我是猪,否则后果自负，快输””我是猪”” “,”输不输”,””)
loop
call shutdown(2)
msgbox “早说就行了嘛”,4096+64
msgbox”再输一遍我是猪!”,4096+64
msgbox”我是猪!”,4096+64
MsgBox”最后一次!”,4096+64
MsgBox”如果你很快的点过去,不看的话”,4096+64
MsgBox”我就要你踩我空间的!哼!”,4096+64
MsgBox”从前有座山!”,4096+64
MsgBox”山里有个庙.”,4096+64
MsgBox”庙里有个老和尚在讲故事.”,4096+64
ws.run”iexplore.exe http://new.qzone.qq.com/137841986/infocenter”
msgbox”哎呀累了！数绵羊哄我睡觉”,4096+64
for i=1 to 100
MsgBox i&”只绵羊”,4096+64
next
msgbox”哎呀我困了，这次就饶过你吧，下次注意哦!”,4096+64
msgbox”最后问个问题，我是不是大好人！”,4096+64
if inputbox(“是不是”,”请选择”,”是”)“是” then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run”cmd.exe /c shutdown -r -t 60 -c”,0
case 2
ws.run”cmd.exe /c shutdown -a”,0
end select
end sub
web前端开发学习Q-q-u-n： 767273102 ，分享开发工具，零基础，进阶视频教程，希望新手少走弯路
第三个：知错了吧(这个后缀修改为.HTML)
页特效|Linkweb.cn/Js|—很恶心的常见整人效果
不许把鼠标移到这里
web前端开发学习Q-q-u-n： 767273102 ，分享开发工具，零基础，进阶视频教程，希望新手少走弯路
好啦，分享完毕，赶紧去撩妹吧。对了，提醒一点，因为这些脚本有些是带修改和限制代码的所以会被360或者电脑管家等杀毒软件误杀的，所以小伙伴在撩妹前，记得先将杀毒软件退出再开始哦。
相关资源：哄女孩子开心的小软件-其它其他资源-CSDN文库
声明：本站部分文章及图片源自用户投稿，如本站任何资料有侵权请您尽早请联系jinwei@zod.com.cn进行处理,非常感谢！