个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
25
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章按键精灵 脚本-学习VBS的一个不错的教程由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
今天我就从总体上对VBS进行介绍，希望能给大家一个直观的印象。另外，讲解与按键官网的按键精灵教程（李悦制作）相结合，帮大家看懂这个东东。 1、概述 要让计算机做事情就必须由人给它指令。原来的指令很复杂，都是些0011001之类的东西，后来逐渐简化，指令也更接近于人类的语言。VBS(Microsoft(R) Visual Basic(R) Scripting)也是高级语言的一种，和其他高级语言相比，它有简单易学的特点，是电脑初学者涉足编程领域的良好入口。 如果说从低级语言进化到高级语言是人类控制计算机的战略问题，那么具体的设置变量、循环就是控制计算机的具体战术问题。我们现在学习的也就是用VBS让计算机为我们工作的战术。 2、从最简单的东西入手。 网络叫卖脚本： vbs i vbs i=10 while i>0 SayString 卖XXX，价格面议。 vbs i=i-1 delay 10000 endfor 看到这个脚本很多人就嗤之以鼻了，实现不断叫卖的方法很多，有的比这个脚本简单几倍。但随着讲解的进行，我们会发觉VBS提供给我们的是一个强大的工具。下面先来这几行都是什么意思。 vbs i //告诉计算机有个叫i的变量。 vbs i=10 //这个变量为10 while i>0 //当这个变量大于0的时候就执行下面直到看见第一个endfor的地方。 SayString 卖XXX，价格面议。 //按键语句：输出文字 vbs i=i-1 //这个变量减去1，然后又把减1后的数作为i的值。 delay 10000 //按键语句：暂停10秒（10000毫秒） endfor //回到while处 效果：叫卖10次后就结束。 现在我要花点力气解释一下为什么要折腾出这么多麻烦的东西。 变量的用处和重要性 其实这个程序完全可以写成 SayString 卖XXX，价格面议。 delay 10000 SayString 卖XXX，价格面议。 delay 10000 ……重复N次 SayString 卖XXX，价格面议。 delay 10000 其实再复杂的程序段都能被还原成顺序的程序，用很多复杂的东东不是为了显示编程能力，而是为了给自己方便。 当我们一直卖XXX的时候可能没有什么感觉，但当我们卖YYY的时候呢？要全部改过吗？或者我们要重复1000次，后来只重复500次了，难道要认真地数500下，然后删除后面的吗？当然，我们编这个小程序改起来还比较惬意。但要提高发展就得做大程序，还必须要依靠我们的变量朋友。 变量其实是一个字符代号，象你我的名字一样，为的是把各个变量区别开来，让他们分头工作。为变量取名字的时候可以用数字、字符、和下划线，但不可以用汉字、空格和其它奇奇怪怪的符号，另外数字不能用于第一个字符。 在使用变量之前要先写一个象vbs i这样的语句，意思是现在本人指派一变量，取名为i，参加到这个程序运行中。其实你可以不用履行这样的报名程序，直接在程序的某处使用i，但实践证明这是一个不好的习惯，让你写大程序的时候寸步难行。 然后vbs i=10则告诉程序，这个变量i现在的值为10，以后凡是用到i的地方，就相当于是10在那里。比如vbs j=i+1其实就相当于j=10+1，所以j的值为11。 变量的魅力不仅在于它可以代替数字，而且还可以代替字符，但和数字比起来，字符有其特殊性。 比如： vbs i="字符" vbs j="串接" vbs a=i & j 此时a就是字符串接。注意这里出现的两个新符号："号和&符号。可能有人已经猜出来他们的作用了。"号之间的内容为字符。电脑对vbs i=10和vbs i="10"有着截然不容的理解。&号为字符串接号。如果a=j & i，那么a就是串接字符。 知道了变量的用法后，我们就可以把叫卖程序改得更有趣。比如我们想让程序说不同的话，先说10次卖XXX，再说10次卖YYY。那我们就可以写成： vbs i vbs i=10 while i>0 ifexpression i<=5 SayString 卖XXX，价格面议。 endif ifexpression i>5 SayString 卖YYY，价格面议。 endif vbs i=i-1 delay 10000 endfor 其实我们用了个编程的小技巧，就是用变量i的大小控制程序的走向。可见前5次卖YYY，后5次卖XXX。 或者我们先叫XXX一次，再叫YYY一次，然后重复前面的动作： vbs i vbs i=10 while i>0 ifexpression i mod 2 = 0 SayString 卖XXX，价格面议。 endif ifexpression i mod 2 = 1 SayString 卖YYY，价格面议。 endif vbs i=i-1 delay 10000 endfor 这里也用了一个用i控制程序运行的方法。mod是和+、-、*一样的运算符号，作用是取余数。如10 mod 2 = 0的意思是10除以2，其余数是0。同样9 mod 2 = 1，8 mod 2 = 0，7 mod 2 = 1，6 mod 2 = 0，5 mod 2 = 1…… 哎呀，暂时写到这里。 其实这个脚本是按键精灵下的脚本，没有写清楚，不好意思啊，如果想看vbs教程，建议下载一份 vbscript手册，然后看我的vbs栏目的前期发的文章。开始的时候基础发的多一些.
最后此篇关于按键精灵 脚本-学习VBS的一个不错的教程的文章就讲到这里了,如果你想了解更多关于按键精灵 脚本-学习VBS的一个不错的教程的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
25
4
0
我使用 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
我是一名优秀的程序员,十分优秀！