关于VBS编程初步

2022-01-29 14:02:35 阅读：290 来源： 互联网

标签：初步 MsgBox 编程 VBS ws shutdown inputbox msgbox

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

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

关于VBS编程初步