关于VBS编程初步

2022/1/29 14:04:16

本文主要是介绍关于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.cnblogs.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

 



这篇关于关于VBS编程初步的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!


扫一扫关注最新编程教程