- 资源介绍
- 更新记录
- 安装教程
小伙伴们大家好啊~
今天要给大家分享一个好玩的东东
话不多说
看图
实现这个只需要简单的几步:新建一个文本,将代码复制到文本保存,将txt后缀修改为vbs即可。
下面是收集的一些代码,直接复制就可以用,可以修改为自己想要显示的文字。
1、最简单的显示一段文字
msgbox “一大波正在靠近…”
2、分别显示多个信息
msgbox “电脑受到攻击”msgbox “系统出现致命错误”msgbox “请重启电脑”
3、无限循环显示“系统错误”
domsgbox “系统错误”loop
4、无限语音从1数到无限大
Set s = CreateObject(“sapi.spvoice”) i=0 do s.speak i i=i+1 loop
5、慎用,如此刷新打开任务管理器都难,只能拔掉电源
set ws=createobject(“wscript.shell”) do ws.sendkeys “{f5}” loop
6、直接关机
dim WSHshell set WSHshell = wscript.createobject(“wscript.shell”) WSHshell.run “shutdown -f -s -t 00”,0 ,true
7、不断按下alt+f4 :打开任何程序都关掉
dim WSHshell set WSHshell = wscript.createobject(“wscript.shell”) dowscript.sleep 2500 WSHshell.SendKeys “%{F4}” loop
8、需要输入正确名字才能关闭
const title = “爱情测试”const yourname = “大大”const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。”const info = “你在说谎!不要逃避,实话实说。”const scend = “你说出了你的心扉,那就向他(她)表白吧。”dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title
9、素质4连
msgbox(“做我女朋友好吗?”)msgbox(“房产证上写你名字”)msgbox(“保大”)msgbox(“我妈会游泳”)
10、表白
msgbox “我有一件事想跟你说”,vbQuestion,”在吗”msgbox”自从第一天遇见你,我便对你难以忘怀了!”CreateObject(“SAPI.SpVoice”).Speak”能够遇见你,对我来说是最大的幸福。有了你,我的生活变的绚丽多彩,有了你,世界变得如此迷人。你是我的世界,我的世界是你。我愿意用自己的一生,好好的陪着你,爱着你。陪你到你想去的地方,用心走完我们人生的余下的旅程。在未来的日子里,也许什么都无法确定,但唯一可以确定的是,我爱的人是你,无论现在还是将来,我想我这里都会是你最温暖的港湾,都是为你遮风避雨的城墙。无论狂风,无论暴雨。我都会陪在你的身旁,让你不会感到丝毫的担心和惶恐。”msgbox”亲爱的,我喜欢你”dim ido while i<1Select Case msgbox(“做我女朋友好吗?”,68,”请郑重的回答我!”)Case 6 i=1Case 7 msgbox”你再考虑一下呗”end Selectloopmsgbox”爱你一万年!”
11、打开无数个计算器,直到死机
set wsh=createobject(“wscript.shell”) do wsh.run “calc” loop
12、按500次回车
dim s do until s=500 s=s+1 msgbox “哥们,给我按500次回车吧”,64 loop
13、不说我是猪就关机
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) msgbox chr(13) + chr(13) + chr(13) + a,0,”MsgBox” loop msgbox chr(13) + chr(13) + chr(13) + “早说就行了嘛” dim WSHshell set WSHshell = wscript.createobject(“wscript.shell”) WSHshell.run “cmd.exe /c shutdown -a”,0 ,true msgbox chr(13) + chr(13) + chr(13) + “哈哈哈哈,好乖”
想要强制关闭的话打开任务管理器找到“wscript.exe”进程结束即可。
猜你喜欢
-
流氓哨怎么吹(一文快速学会流氓哨的吹法)
2024-01-06 -
苹果4s怎么下载软件(图解Iphone下载应用全流程)
2023-09-23 -
电摩车女1(了解浪琴电动摩托车女款1号的相关信息)
2023-11-14 -
MP3截取工具的推荐(有哪些好用的MP3截取工具)
2023-12-04 -
1米是多少毫米(二年级数学厘米口诀表)
2023-10-02 -
u盘驱动程序错误怎么解决(解决USB无法识别难题)
2023-10-23 -
苹果x发热卡顿怎么解决(手机发烫关闭三个功能)
2023-10-25 -
免费学术资源网站大全(珍藏多年的6个免费资源网站分享)
2021-11-27 -
王者荣耀界面设置(如何调整游戏界面设置以优化游戏体验)
2023-11-16 -
推特注册收不到手机验证码(Twitter收不到验证码解决方法)
2023-09-15
-
苹果中间的home键按不动怎么办(解决苹果手机home键无法使用的方法)
2023-12-09 -
伊戈罗纳克怎么召唤(18种召唤方式大盘点)
2023-09-23 -
苹果7多少厘米长度(一览iphone7详细参数配置)
2023-09-18 -
农村能吃的野菜100种图片(农村常见的二十五种野菜大全)
2023-09-13 -
二尺八的腰围是多少厘米(史上最全裤子尺码对照表)
2023-10-02 -
电脑硬盘序列号查询方法(10秒详细查看序列号的方法)
2023-10-27 -
ppstream现在还好用吗(一文揭晓pps的现状)
2023-10-28 -
问道手游宠物进化详解(附:宠物进化规则详细流程)
2023-09-28 -
不思议迷宫俯瞰大厅攻略(伊甸俯瞰之厅过关攻略)
2023-09-21 -
手机录音杂音消除app(推荐可以消除手机录音杂音的应用程序)
2023-11-20
猜你在找
2、分享目的仅供大家学习和交流,请不要用于商业用途!
3、本站提供的源码、模板、插件等等其他资源,都不包含技术服务请大家谅解!
4、如有链接无法下载、失效或广告,请联系管理员处理!
5、本站资源售价只是赞助,收取费用仅维持本站的日常运营所需!
蜀山号 » 简单的恶搞代码(一些整人简单编程代码)
常见问题FAQ
- 免费下载或者VIP会员专享资源能否直接商用?
- 本站所有资源版权均属于原作者所有,这里所提供资源均只能用于参考学习用,请勿直接商用。若由于商用引起版权纠纷,一切责任均由使用者承担。更多说明请参考 VIP介绍。
- 提示下载完但解压或打开不了?
- 找不到素材资源介绍文章里的示例图片?
- 蜀山号
- 2023-11-01Hi,初次和大家见面了,请多关照!