初识vbs脚本（简单的逗女孩的记事本炸弹及解除）

刚开始接触vbs脚本，发现一个很有意思的记事本炸弹代码，可以用这个去逗女孩然后帮她解除哟，嘿嘿

不多说，先把代码附上。（只要在记事本里写这个代码就可以了，然后把txt的后缀改成vbs就好了）

dim a'定义变量a
set wshshell=createobject ("wscript.shell")'创建一个脚本命令窗口
a=0'a的初始值为0
do'开始执行do loop循环程序
wshshell.run"notepad"' 执行脚本命令，打开记事本
a=a+1' a的值逐次加1每次打开一次记事本
if a>50then
exit do'如果a的值大于50，则退出程序
end if '退出if判断语句
loop

代码已经完了，当然要想逗女孩是没那么容易的，还要接下来的动作。

先打开她的QQ右键点击属性（也可以是其他的不一定要QQ)复制目标（蓝色字体）

然后再把我们已经写好的vbs脚本右键创建快捷方式

完了之后右键快捷方式打开属性，点击更改图标

然后将其中的蓝色字体用刚刚复制的QQ的目标粘贴

变成这样后重命名为腾讯QQ，将原来QQ的快捷方式删除并且将记事本炸弹的原文件随便放到一个盘里就完成啦！

当然要是缺了解除方法就不是逗了，怕是要关系终结

taskkill /f /im notepad.exe

解除代码很短，只有一行，不过这不是vbs代码了，要将后缀改成bat

初学者个人所见，欢迎各位大佬前来指点

https://mp.csdn.net/postedit