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

—-我们会经常遇到一些无聊的文件，一旦我们打开它就会出现各种烦人的新窗口，今天来看的是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就开始支持了。 二：程序实现的预览效果
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 

如图所示：

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

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

来源：running boy