恶搞代码——vbs进程

全栈程序员站长

发布于 2022-07-25 08:08:36

1.9K0

发布于 2022-07-25 08:08:36

文章被收录于专栏：全栈程序员必看全栈程序员必看

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

今天跟大家分享一下娱乐的恶搞代码，想必很多人也知道，那么针对电脑小白来说可能就不是非常清楚了，其实过程也很简单，那么下面就是其中比较常见的恶搞源码： 一.电脑语音恶搞： 首先我们先新建一个后缀为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

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

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

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/126940.html原文链接：https://javaforall.cn

本文参与?腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2022年4月8，如有侵权请联系 cloudcommunity@tencent.com 删除

https