VBS代码–很恶心的整人效果

2022-08-11 13:15:13 浏览数 (2)

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

—-我们会经常遇到一些无聊的文件,一旦我们打开它就会出现各种烦人的新窗口,今天来看的是VBS脚本—-

一:VBS简介

VBS是基于Visual Basic的脚本语言。VBS的全称是:Microsoft Visual Basic Script Editon。(微软公司可视化BASIC脚本版)。其语言类似Visual Basic(VB),VBS是微软的WSH脚本的一种,WSH是是Windows脚本宿主,是一个脚本解释器,支持vbs,js,wsh三种格式的脚本。

简单了解一下,计算机语言分为编译语言和解释语言,脚本语言属于解释语言。VBS脚本是有ASCII码组成。编写VBS脚本没有什么特定要求,只要有系统带了WSH环境就可以,从WIN98就开始支持了。

二:程序实现的预览效果

由于这个脚本涉及到关机操作,所以安全管家会提醒操作,另外这个脚本还可以打开一个网址,后面的操作没有继续操作,大家可以尝试一下完全进行的过程,那就继续看如何实现吧。。。

三:程序的编辑

我知道菜鸟现在最关心的就是用什么工具来开发VBS程序了, 答案是:记事本(Notepad),我不是开玩笑, 其实任何一种文本编辑器都可以用来开发VBS, 只不过记事本是由系统自带的, 比较好找而已. 尽管如此, 我还是建议你去下载一个专业的文本编辑器, 因为这些工具可以提供 “语法高亮”等功能, 更加方便开发, OK, 我们先来写一个VBScript程序来实现上述的效果图;

1.首先我们需要一个文本编辑程序,我们就直接使用系统自带的记事本程序。点击开始菜单,在运行对话框下输入notepad,打开记事本程序。

2.

我们来开始编写第一个程序,我们就以上述程序为例来学习vbs编程。

在记事本下面输入以下代码:

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

如图所示:

(其中的URL地址可以随意写入)

3.然后点击文件菜单,在另存为对话框下面输入后缀为.vbs的文件名就可以。这样你的第一个程序就完成了。

4.之后只要双击图标就会出现我们想要的效果,小伙伴们赶紧试一试吧!!

注:在有点win7电脑上有的记事本保存后不能更改后缀为.vbs的文件(如图)

,这个时候我们需要在记事本里选择另存为,输入文件名为”***.vbs”(一定要加双引号),才能够保存为vbs文件。

经验内容仅供参考,如果您需解决具体问题(尤其法律、医学等领域),建议您详细咨询相关领域专业人士

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

0 人点赞