- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章灵活实用VBS入门教程应用篇由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 选择结构 选择结构,即是对条件进行判断,然后根据判断的结果,选择执行不同的分支的结构。常见的有IF条件语句和Select Case语句。 ●IF条件语句 IF条件语句又有多种具体的形式,如If…Then、If…Then…Else、If…Then…ElseIf。下面分别用例程来说明。用笔记本编写一个如下内容的VBS脚本: dim a,b a=inputbox("输入第一个数字","输入") b=inputbox("输入第二个数字","输入") if a>b then MsgBox("第一个数大于第二个数") End if 运行后,要求用户输入两个数字,第一个数字的值赋给a,第二个数字的值赋给b,然后程序自动判断a和b,如果a的值大于b的值,就弹出信息提示框,显示“第一个数大于第二个数”。注意:then后面的语句不与then在同一行时,判断语句结束后要加一行End if来结束,否则程序会结束。如果是同一行的就不用再加上End if了,如上面的语句可改为: dim a,b a=inputbox("输入第一个数字","输入") b=inputbox("输入第二个数字","输入") if a>b then MsgBox("第一个数大于第二个数") 另外一个程序中可以用多个If语句,我们可以把上面的程序完善一下如下: dim a,b a=inputbox("输入第一个数字","输入") b=inputbox("输入第二个数字","输入") If a>b then MsgBox("第一个数大于第二个数") End if If a=b then MsgBox(“第一个数等于第二个数”) End if If a<b then MsgBox(“第一个数小于第二个数”) End if 我们也可以再换用IF的其它语句If…Then…Else和If…Then….Elseif来实现相同的作用,如下: dim a,b a=inputbox("输入第一个数字","输入") b=inputbox("输入第二个数字","输入") If a>b then MsgBox("第一个数大于第二个数") Else IF a=b then MsgBox(“第一个数等于第二个数”) Else MsgBox(“第一个数小于第二个数”) End if End if ―――――――――――――――――――――――――――――――――――――― dim a,b a=inputbox("输入第一个数字","输入") b=inputbox("输入第二个数字","输入") If a>b then MsgBox("第一个数大于第二个数") Elseif a=b then MsgBox(“第一个数等于第二个数”) Else MsgBox(“第一个数小于第二个数”) End if ●Select Case语句 Select Case语句是多分支结构的另一种表示形式,它具有表示直观的特点,结构简单,不容易导致混乱,它的语法形式如下: Select Case 变量或表达式 Case 表达式1 语句1 Case 表达式2 语句2 End Select 现在我们用Select Case语句来写一个数字转换成英文的程序,体验一下Select Case的优点,Let's go!!! dim a a=inputbox("输入一个数字","输入") Select Case a Case 1 MsgBox("你输入的数英文是One") Case 2 MsgBox("你输入的数英文是Two") Case 3 MsgBox("你输入的数英文是Tree") Case 4 MsgBox("你输入的数英文是Four") End Select 从上面,是不是觉得Select Case语句很直观呢,如果用If语句的话,肯定会很混乱,甚至会把人都给看晕了。还要注意的是无论是条件语句有多少个分支,只要一个分支执行了,其余的分支就不再执行。 循环结构 ●For循环语句 For语句是用来控制循环次数已知的循环结构的,语句如下: For 循环变量=初值 To 终值 [步长] 语句 [Exit for] '退出循环语句 Next 现在我们编写一个计算从1加到100的整数和的程序,深入去了解For的用法,程序内容如下: dim s s=0 for i=1 to 100 s=s+i next msgbox(s) 这段程序也是经典的程序之一,它首先声明了一个变量S,然后给S赋个初始值0,for i=1 to 100语句让i随着每一次循环加1,循环体内的语句s=s+i也随着i的增加进行累加,一直加到i=100时结束循环。Next语句让循环体进入下一次循环。 ●Do…loop循环语句 For循环语句用于控制循环次数已知的循环,而Do…loop则是用于控制次数未知的循环,根据设定的条件控制循环。它有两种形式,一种是先判断后执行,另一形式是先执行后判断。 先判断后执行语法形式: Do [while/until 条件] 语句 [Exit Do] ‘退出循环 Loop 先执行后判断语法形式: Do 语句 [Exit Do] Loop [while/until 条件] 下面我们用Do…Loop语句来改写上面的计算1到100的整数和的程序,如下: 先执行后判断式 dim s s=0 i=0 do i=i+1 s=s+i loop until i>=100 msgbox(s) 先判断后执行式: dim s s=0 i=0 do while s<100 i=i+1 s=s+i loop msgbox(s) 这两段程序很简单,很容易理解,在此就不再赘述了。 至此,VBS重要的语法结构以及语句已经粗略学习完毕,要更加深入细致系统地去研究,最好找相关的书籍看一下。下面将正式进行VBS编程网吧实战阶段。 实战篇 进行“实战”前我们先来理解什么是Shell对象和WSH。Shell对象就是微软对一些常用外壳操作函数的封装。象打开或浏览一个文件夹、查找文件、关闭计算机等等,而且还能浏览整个文件系统,获取文件或文件夹的各种信息。由于这些封装是建立在OLE自动化服务的基础之上,所以我们可以在VB、Web和VBS中方便的使用它们。WSH是Windows Script Host的缩写形式,WSH是Windows平台的脚本指令,它的功能十分强大,并且它利用JS和VBS脚本语言,来实现其卓越的功能的,除了修改注册表之外,它还可以访问Excel文件,也能与网络沟通,当然它最大的优势莫过于它能与操作系统沟通,而修改注册表只是它与操作系统沟通的冰山一角。正是它有如此诸多的优点与实用性,正倍受很多Windows用户的青睐。 上面说了WSH利用VBS可以修改系统注册表,但必须先创建一个能与操作系统沟通的对象,再利用该对象的各种方法对注册表进行操作,创建这个对象的方法和格式如下: Dim OperateReg Set OperateReg=WScript.CreateObject("WScript.Shell") 上面第一行声明了一个变量,而第二行则是利用声明的变量创建一个能与操作系统沟通的Shell对象OperateReg。 下面就来利用Shell对象来关闭一些会给网吧机子带来安全隐患的服务吧。 关闭默认共享 set ds=createobject("wscript.shell") ds.run "net stop server /y" 关闭WMI服务 set swmi=createobject("wscript.shell") swmi.run "net stop wmI /y" 禁用GUEST用户 set sg=createobject("wscript.shell") sg.run "net user guest /active:NO" 关闭telnet服务 set st=createobject("wscript.shell") st.run "net stop telnet" 利用VBS 实现开机BAT延时和无黑屏 如果我们开机要执行名为bar.bat的批处理文件在远程服务器\\server\new\ 中那么就在客户机的C盘根目录下建个批处理,将他命名为run.bat,内容如下: ping 127.0.0.1 -n 10 (10表示你要延时的秒数 自己根据需要进行设置) call \\server\new\bar.bat 保存后再在同目录下建个文本写上 set nb=createobject("wscript.shell") nb.run "run.bat /start",0 保存成VBS文件然后将此文件加入到启动项,重启BAT延时和无黑屏就这样实现了。 以上都是VBS的一些简单的编程而已,如果能把VBS学到精通的话,你会发现它的功能非常的强大,很多复杂的功能都可以通过它来实现。现在很多网管都很乐于采用VBS编程来对网吧的机器进行管理。本系列三篇文章仅仅是对VBS进行了简单的了解和实例应用,大家要想更深入地去学习,还要靠平时的努力和积累,最后,祝大家早日可以把VBS学得炉火纯青.
最后此篇关于灵活实用VBS入门教程应用篇的文章就讲到这里了,如果你想了解更多关于灵活实用VBS入门教程应用篇的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码,使其无法供 vbs 使用。我该如何解决这个问题? 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
核心vbs代码 ? 1
对于vbs中ping的实现可以通过两种方式 : 1、调用系统ping命令; 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
复制指定文件到指定目录下 核心代码 ? 1
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
参考代码一: 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
挺实用的一段代码,用来深入学习vbs,确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
话说还是闲来练手,初步实现了自己认为的“多线程”下载。(至于是不是多线程,可以参考12楼链接) 为避免冗余,省了一些错误检查。我觉得没多大实际用途,有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
效果图: 代码都封装成函数了,方便调用: 复制代码 代码如下: Key = "www-enun-net" '不要用数字
打开狗狗影视,搜索自己需要的资源,资源类型选:电驴,如下图: 我找到一个 19.75gb 的: 点开它,出现如下图的界面,可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址,备用。
最近相关的备份比较频繁,为了校验文件的完整性,老是要打开某文件HASH校验工具,比较麻烦,于是乎写了这个东东,文件较大时计算有点慢,文件的MD5值保存在剪贴板!效果如图: 使用方法: 1.先
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
For Next 语句的基本结构为: 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [st
我是一名优秀的程序员,十分优秀!