多语言展示
当前在线:1237今日阅读:84今日分享:32

vbs恶搞代码,整人代码,非常简单

本篇给大家介绍vbs的一些恶搞代码,可以坑一下你的朋友,想必他(她)一定会很气的。仅为娱乐!后面有百度网盘的下载地址哦!给大家体验一下程序!
工具/原料

windows电脑一台

前言

网上流行有一个不断弹出消息框和人对话的恶搞网站,现在我要实现弹出这种窗口等其他代码,大家可以拿去装逼哦!

恶搞不断弹出消息对话
1

set ws=createobject('wscript.shell') call shutdown(1) do while a<>'陈独秀' a=inputbox('快在下面的框框里输入陈独秀喜欢谁,否则后果自负'' ','一个问题','') loop call shutdown(2) msgbox'好吧,不过好自恋啊',4096+64 msgbox'但是你关不掉我',4096+64 msgbox'真的',4096+64 MsgBox'你不信?',4096+64 MsgBox'打开任务管理器也没有什么软用的',4096+64 MsgBox'给你讲个故事',4096+64 MsgBox'从前有座山!',4096+64 MsgBox'山里有个庙.',4096+64 MsgBox'庙里有个老和尚在讲故事.',4096+64 msgbox'哎呀累了!数绵羊哄我睡觉',4096+64 for i=1 to 60---------我是分割线,不要复制我----------------------上面的“for i=1 to 60”中的“60”是次数的数量,可以更改的---------我是分割线,不要复制我----------------------MsgBox i&'只绵羊',4096+64 next msgbox'哎呀我困了,这次就饶过你吧,下次注意哦!',4096+64 msgbox'最后问个问题,我是不是大好人!',4096+64 if inputbox('是不是','请选择','是')<>'是' then call shutdown(1) end if sub shutdown(s) select case s case 1 ws.run'cmd.exe /c shutdown -r -t 60 -c',0 case 2 ws.run'cmd.exe /c shutdown -a',0 end select end sub---------我是分割线,不要复制我----------------------接下来就是那样了

2

do:msgbox'不作死就不会死':loopset us=createobject('wscript.shell')call shutdown(1)

3

就给大家提供这两个代码了---------我是分割线,不要复制我----------------------链接: https://pan.baidu.com/s/1ww2hqJvGdRL13F2iixgIyw 密码: cyswEND

注意事项
1

适当娱乐哦,不要过头哦!

2

谢谢大家的支持!

推荐信息