灵活实用VBS入门教程应用篇
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 加到100的整数和的程序，深入去了解For的用法，程序内容如下： dims s=0 fori=1to100 s=s+i next msgbox(s) 这段程序也是经典的程序之一，它首先声明了一个变量S，然后给S赋个初始值0，fori=1to100语句让i随着每一次循环加1，循环体内的语句s=s+i也随着i的增加进行累加，一直加到i=100时结束循环。Next语句让循环体进入下一次循环。 ●Do…loop循环语句 For循环语句用于控制循环次数已知的循环，而Do…loop则是用于控制次数未知的循环，根据设定的条件控制循环。它有两种形式，一种是先判断后执行，另一形式是先执行后判断。 先判断后执行语法形式： Do[while/until条件] 语句 [ExitDo]‘退出循环 Loop 先执行后判断语法形式： Do 语句 [ExitDo] Loop[while/until条件] 下面我们用Do…Loop语句来改写上面的计算1到100的整数和的程序，如下： 先执行后判断式 dims s=0 i=0 do i=i+1 s=s+i loopuntili>=100 msgbox(s) 先判断后执行式： dims s=0 i=0 dowhiles<100 i=i+1 s=s+i loop msgbox(s) 这两段程序很简单，很容易理解，在此就不再赘述了。 至此，VBS重要的语法结构以及语句已经粗略学习完毕，要更加深入细致系统地去研究，最好找相关的书籍看一下。下面将正式进行VBS编程网吧实战阶段。 实战篇 进行“实战”前我们先来理解什么是Shell对象和WSH。Shell对象就是微软对一些常用外壳操作函数的封装。象打开或浏览一个文件夹、查找文件、关闭计算机等等，而且还能浏览整个文件系统，获取文件或文件夹的各种信息。由于这些封装是建立在OLE自动化服务的基础之上，所以我们可以在VB、Web和VBS中方便的使用它们。WSH是WindowsScriptHost的缩写形式，WSH是Windows平台的脚本指令，它的功能十分强大，并且它利用JS和VBS脚本语言，来实现其卓越的功能的，除了修改注册表之外，它还可以访问Excel文件，也能与网络沟通，当然它最大的优势莫过于它能与操作系统沟通，而修改注册表只是它与操作系统沟通的冰山一角。正是它有如此诸多的优点与实用性，正倍受很多Windows用户的青睐。 上面说了WSH利用VBS可以修改系统注册表，但必须先创建一个能与操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作,创建这个对象的方法和格式如下： DimOperateReg SetOperateReg=WScript.CreateObject("WScript.Shell") 上面第一行声明了一个变量，而第二行则是利用声明的变量创建一个能与操作系统沟通的Shell对象OperateReg。 下面就来利用Shell对象来关闭一些会给网吧机子带来安全隐患的服务吧。 关闭默认共享 setds=createobject("wscript.shell") ds.run"netstopserver/y" 关闭WMI服务 setswmi=createobject("wscript.shell") swmi.run"netstopwmI/y" 禁用GUEST用户 setsg=createobject("wscript.shell") sg.run"netuserguest/active:NO" 关闭telnet服务 setst=createobject("wscript.shell") st.run"netstoptelnet" 利用VBS实现开机BAT延时和无黑屏 如果我们开机要执行名为bar.bat的批处理文件在远程服务器\\server\new\中那么就在客户机的C盘根目录下建个批处理,将他命名为run.bat，内容如下： ping127.0.0.1-n10 (10表示你要延时的秒数自己根据需要进行设置) call\\server\new\bar.bat 保存后再在同目录下建个文本写上 setnb=createobject("wscript.shell") nb.run"run.bat/start",0 保存成VBS文件然后将此文件加入到启动项 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于灵活实用VBS入门教程应用篇的所有评论
