关于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
标签:初步,MsgBox,编程,VBS,ws,shutdown,inputbox,msgbox 来源: https://www.cnblogs.com/pygisxss/p/13469267.html