vb能写bs架构 编写vbs

VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。用记事本就可以看到源代码。在没有语法错误的前提下，直接双击左键就可以运行。

但是要注意，因为VBS较为简单可行性强，所以很多人都喜欢利用VBS去写病毒或者整人的代码，所以在打开VBS之前要确保VBS的安全性和渠道的可信性。任何一种文本编辑器都可以用来开发VBS， 记事本是windows系统自带的，无需专门下载安装，更方便快捷。

 

现在Windows10 可用的不会出现中文乱码编码方式，有ANSI和UTF16 LE两种，UTF-8往往会出现中文乱码。

改文件编码方式：【文件】→【另存为】，改编码。

 

让我们来看几个例子，感受一下。

编码方式建议用ANSI

1、计算面积（以三角形为例）

 

dim a,b,s
a=inputbox("请输入底边长")
b=inputbox("请输入高")
s=a*b/2
'msgbox  "嘿"

WScript.Echo"该三角形的面积为   ",s

 

 

2、打开是惊喜

 

set ws=createobject("wscript.shell") 
call shutdown(1) 
do while a<>"我是猪" 
a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","不输") 
loop 
call shutdown(2) 
msgbox "早说就行了嘛"
msgbox"再输一遍我是猪!"
msgbox"我是猪!"
MsgBox"最后一次!"
MsgBox"如果你很快的点过去,不看的话"
MsgBox"我就要你看C#代码!"
MsgBox"人生苦短!"
MsgBox"我用Python！"
MsgBox"那接下来我们来看看C#吧."
ws.run"iexplore.exe https://www.blogs.com/pygisxss/p/13175389.html" 
msgbox"哎呀累了！数绵羊哄我睡觉"
for i=1 to 100 
MsgBox i&"只绵羊"
next 
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!"
msgbox"最后问个问题，我是不是大好人！"
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