恶搞代码——vbs进程

今天跟大家分享一下娱乐的恶搞代码,想必很多人也知道,那么针对电脑小白来说可能就不是非常清楚了,其实过程也很简单,那么下面就是其中比较常见的恶搞源码:一.电脑语音恶搞:首先我们先新建一个后缀为txt的记事本文档,如下图:然后将下面的代码复制到新建的文本文档中:CreateObject(“SAPI.SpVoice”).Speak”你的电脑接收到了一个自爆程序,电脑即将爆炸,请您在15秒时间内…

大家好,又见面了,我是你们的朋友全栈君。

今天跟大家分享一下娱乐的恶搞代码,想必很多人也知道,那么针对电脑小白来说可能就不是非常清楚了,其实过程也很简单,那么下面就是其中比较常见的恶搞源码:
一.电脑语音恶搞:
首先我们先新建一个后缀为txt的记事本文档,如下图:
在这里插入图片描述
然后将下面的代码复制到新建的文本文档中:
CreateObject(“SAPI.SpVoice”).Speak”你的电脑接收到了一个自爆程序,电脑即将爆炸,请您在15秒时间内离开座位,跑到安全区位置,否则将伤害你的身体健康,我们一概不负责
其中这段冒号括起来的加粗字体是大家可以随便更改的,然后保存,将后缀txt改为vbs,如果出现下面提示点击是

在这里插入图片描述
最后的应用程序应该是这样的
在这里插入图片描述
最后双击打开就行了,电脑就会读出你刚刚输入的内容!
二.表白恶搞:
前面的步骤和上面一样新建文件,然后将下面的代码复制在文档中,后缀改为vbs就行,具体代码如下:

msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop
msgbox("我就知道你会同意的,哈哈哈哈")

三.整人恶搞:
基本过程也是一样的,只是代码略有不同,具体如下:

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
ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"
msgbox"哎呀累了!数绵羊哄我睡觉",4096+64
for i=1 to 100
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

其实代码里面的中文大多数都是可以自己更改的,改成你想要的效果!

最后,恶搞代码更多的是娱乐,是希望大家在学习、工作的过程中能够放松一下心情。如需要更多的恶搞代码,可以留言我哦,其实基本形式都是这样,大家也可以去摸索着去学习代码,也会有一定的提升哦!

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/126940.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(12)
blank

相关推荐

  • webpack版本不兼容_怎么安装webpack在其他盘

    webpack版本不兼容_怎么安装webpack在其他盘运行webpack时报错:Cannotfindmodule’webpack/bin/config-yargs’Thisisprobablynotaproblemwithnpm.Thereislikelyadditionalloggingoutputabove.可能是版本兼容问题,更正后的版本:”devDependencies”:{“webpack”:”^4.39.2″,”webpack-cli”:”^3.3.12″,”webp

  • Pytest(17)运行未提交的git(pytest-picked)

    Pytest(17)运行未提交的git(pytest-picked)前言我们每天写完自动化用例后都会提交到git仓库,随着用例的增多,为了保证仓库代码的干净,当有用例新增的时候,我们希望只运行新增的未提交git仓库的用例。pytest-picked插件可以

  • 我个人中意的VS2017/VS2019插件,推荐给大家(#^.^#)

    我个人中意的VS2017/VS2019插件,推荐给大家(#^.^#)1、VS插件,微软官网https://marketplace.visualstudio.com/https://visualstudio.microsoft.com/zh-hans/vs/features/extend/–扩展VisualStudioIDE,入门教程https://marketplace.visualstudio.com/publishers/Microso…

  • dubbo常见面试题整理(dubbo原理面试题)

    1.dubbo:rpc底层调用原理和过程、负载均衡规则、如何进行版本控制dubbo核心组件Remoting: 网络通信框架,实现了sync-over-async和request-response消息机制.RPC: 一个远程过程调用的抽象,支持负载均衡、容灾和集群功能Registry: 服务目录框架用于服务的注册和服务事件发布和订阅 dubbo1)远程通…

  • 自定义事务注解[通俗易懂]

    用过spring的,应该都知道@transactional这个注解。这个注解给我们日常开发带来了很大便利,让我们无需为了数据的提交和回滚操心,只需要关注自己的业务逻辑即可。这里我模拟一下spring的注解是如何执行的。这个是项目结构首先我们需要一个数据库的连接为了保证事务的完整性,这里我们用ThreadLocal保存当前线程的数据库连接/***Createdbyzh…

  • linux 新建文件的命令

    图形界面下就不用说了,终端下键入:touchtest.java就创建了一个新文件test.javahttp://hovertree.com/menu/linux/http://www.cnbl

    2021年12月24日

发表回复

您的电子邮箱地址不会被公开。

评论列表(1条)

  • 匿名
    匿名 2022年5月16日 下午1:29

    微笑

关注全栈程序员社区公众号