恶搞代码——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)


相关推荐

  • 涨见识| 字节PHP/Golang社招面经[通俗易懂]

    涨见识| 字节PHP/Golang社招面经

  • python库之selectors

    在之前的博客中已经总结过分别在windows和linux操作系统下实现socket高并发(I/O异步)的方法,可以参考基于epoll的TP传输层实现和Windows之IOCP下面对Python中实现

    2021年12月29日
  • pycharm安装教程CSDN_java遇到解决不了的问题

    pycharm安装教程CSDN_java遇到解决不了的问题第三周开始接触python了,结果第一步装pycharm时就遇到了坑,正常安装完成后点运行时出现错误——NoJVMinstallationfound。助教说这是缺少jdk(java程序支持包),需要在网上找个最新的安装并配置下path路径。唉,编程小白,完全不知道这都是些啥o(╥﹏╥)o,于是开始了百度解决问题之路……运行pycharm错误——NoJVMinstallationfoun…

  • awk从放弃到入门(9):awk数组详解

    awk从放弃到入门(9):awk数组详解 这篇文章中的知识点是建立在前文的基础上的,如果你还没有掌握前文中的知识,请先参考之前的文章。注:在阅读这篇文章之前,最好已经了解了一些开发的基本语法,比如,for循环、数组的基本使用等,否则在阅读时有可能遇到障碍。 前文中提及过,awk其实可以算作一门脚本语言,因为它包含了一个脚本语言的各种语法结构,比如条件判断语句,比如循环语句,那么,awk中能否使用"数组"呢?必须能啊,今天我们就来聊聊…

  • dns服务器地址为空,dns服务器地址为空

    dns服务器地址为空,dns服务器地址为空dns服务器地址为空内容精选换一换在执行基本配置操作前,以root用户登录云服务器。在配置内网DNS后,弹性云服务器可以通过虚拟私有云的内网访问相关云服务,能够为用户提供更稳定、可靠的网络环境。配置DNS需要配置“/etc”目录下的resolv.conf文件,指定DNS服务器的IP地址。内网DNS服务器的IP地址与用户所处的区域相关,用户可通过表1获取内网DNS服务器的I内网下载镜像失败基本上都…

  • vue的render函数用法[通俗易懂]

    vue的render函数用法[通俗易懂]1.render简介前面我们的组件的模板都是在模板里写的(template),模板最后都会被vue编译成virtualdom(虚拟dom),在某些情况下模板可能不好用,例如需要实现一个动态的文章标题,根据父组件的level属性,动态的渲染成h1~hx标签,用模板写部分代码如下。<article-header:level=”1″>Helloworld</article-h…

    2022年10月31日

发表回复

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

评论列表(1条)

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

    微笑

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