关于.vbs文件恶搞,小伙伴电脑的

Posted luyidamowang

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了关于.vbs文件恶搞,小伙伴电脑的相关的知识,希望对你有一定的参考价值。

这是,VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版)。
其语言类似Visual Basic(VB)

这个是一个可以通过微信qq,发送的一个恶搞文件.编写十分方便,用记事本就可以.

下面先来一段代码:

 

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://www.baidu.com"
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

这段是一段恶搞代码,大家可以自己电脑上试一试.

给大家一个解决方案,以免弹窗弹个不停,

打开任务管理器,进程,把wscript的进程结束掉就好了

技术分享图片

 

在给大家一份代码,很有意思的:

do
intanswer=msgbox("小姐姐我注意你很久了,做我女朋友吧,好不好?",vbYesNo+vbInformation,"小姐姐我有话对你说")
if intanswer=vbNo then
intanswer=msgbox("不要急着拒绝,再考虑考虑吧?",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("房产证写你名字",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("我会爱你一生一世",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("永远对你好,永远不惹你生气",vbYesNo+vbInformation,"小姐姐我有话对你说")
if intanswer=vbYes then
end if
else
msgbox"爱你么么哒",vbInformation,"小姐姐我有话对你说"
exit do
end if
loop

大家可以试一下,

另外有些安全软件可以避免这类的文件,例如360杀毒等,

网上的代码还是谨慎为好,可以下一个影子系统,再去测试代码,

当然了,这篇文章的代码,都是亲测的,没事的,大家可以拿去试试.

 

 

 














































以上是关于关于.vbs文件恶搞,小伙伴电脑的的主要内容,如果未能解决你的问题,请参考以下文章

c语言实现关机小程序,学会了快去恶搞你的小伙伴吧

vbs脚本恶搞

vbs脚本恶搞

如何用VBS编写一个简单的恶搞脚本

VBS小程序-弹窗整人(代码+解析)

曾被网友疯狂恶搞的「蚂蚁呀嘿」项目开源上过GitHub热榜