vbs代码教程

2024年2月7日发(作者：)

dim name

name=inputbox("对话框内容","标题")

msgbox name,,"标题"

name="2222222"

msgbox name,,""

Cbool函数将变量转化成布尔值

Cbyte函数将变量转换成整数0-255

Ccur函数、Cdbl、Csing均转化为浮点

Cdate日期

Cint、Clong整数

**************

数组：

0开始

dimarrray (9)代表0-8

array(4)代表第五个

redim来改变数组的个数、维数

改变数组的大小时会破坏数组的数据应用preserve来保护数据:

redim preser array(个数,维数)

^乘方，mod取模，<>不等

Is 来比较对象，对象为同一类型则为真

**********************

1、

If 条件 then

语句;

…….

Endif

Else 也可以用

2、

For i=1 to 10

语句

Next

对数组内的每个都编辑的方法：

For each I in 要查看的对象或数组

语句

Next

可以用exist for来退出循环

Do while 条件

循环体

Loop

Do until 条件

循环体

Loop

While 条件

循环体

Wend

********************************

过程：

函数、子程序

Function 函数名称(参数列表)

函数代码

函数名称=某值 ‘用来返回值

若直接用call调用函数，则返回值自动取消

**************************************

CreatObject可以访问windows安装的com对象

Wsh包括的对象：

1、 stemObject 提供一整套的文件系统操作函数

2、 nary 用来返回存放键值对的字典对象

3、 提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取dos环境变量，读取连接中的设置

4、 k网络连接

Scripting存放在

Wscript 存放在

例子：

1、

Set objshell=CreateObject("")

"notepad"

打开了一个记事本

objshell被set成了一个对象，调用里面的run

calc是计算器的

winword是word

等等

当软件路径有空格时，应如下：

"""E:Program """

三个”

启动多个程序时：

Set objshell=CreateObject("")

"notepad"

"calc"

则两个同时启动

若先后启动则：

Set objshell=CreateObject("")

"notepad",,true

"calc"

则关闭txt后才启动计算器

*.run参数三个：路径、窗口形式（0后台，1正常，2最小化，3最大化……）、true表示程序退出后脚本再继续进行

2、

注册表略

*******************************

文件系统进行访问管理的对象FSO：FileSystemObject

包括：

Drive对象 包含存储设备的信息

Drives集合 提供物理和逻辑驱动的列表

File对象 检查处理文件

Files集合 提供一个文件夹中的文件列表

Folder对象 提供文件夹中的子文件夹列表

Textstream对象 读写文本文件

FSO常见方法：

BuildPath：把文件路径信息添加到现有的文件路径上

CopyFile：复制文件

CopyFolder：复制文件夹

CreatFolder

CreatTextFile：创建文本并返回一个textstream对象

DeleteFile

DeleteFolder

DriveExists：确定驱动器是否存在

FileExists：文件是否存在

FolderExists

GetAbsolutePathName返回文件或文件夹的路径

GetDrive：返回一个drive对象

GetDriveName返回一个驱动器的名字

GetExtensionName返回扩展名

GetFile返回一个file对象

GetFileName返回文件夹中文件名称

GetFolde：返回文件夹对象

GetParentFolderName返回父文件夹

GetTempName返回一个可以被createtextfile使用的文件夹名称

MoveFile移动文件

MoveFolder

OpenTextFile打开一个存在的文件并返回一个TextStream对象

FSO使用：

Fso 模型建立

Set fs=object(“stemobject”)

Fso模型释放

Set fs=nothing

使用文件夹

Dim fs,s

Set fs=object("stemobject")

If(fs. FolderExists("c:temp")) Then

S="cun zai"

Else

S="bu cun zai"

Set foldr=folder("c:temp")

End if

msgbox S,,""

删除文件夹

Set fs=object("stemobject")

folder(“---路径—“)

拷贝

lder “源路径c:data“ “目的路径d:data”

若c:data与d:data同时存在会 出错，此时应强制覆盖:

lder “源路径c:data“ “目的路径d:data”,true

移动：

lder “c:data“ “d:data”

用folder属性删除文件夹：

Set fs=object("stemobject")

Set f=der(“c:data”)

特殊文件夹操作略

***************************

Sendkeys模拟键盘输入

ys string

Object为Wshshell，例：

Set objshell=CreateObject("")

"notepad"

2000

Set Wshshell=Object("")

ys "cfan"

打开记事本两秒后输入cfan

组合键：

Shift对应+

Ctrl对应^

Alt对应%

Ctrl+E则为：

ys "^e"

Ctrl+E+C则为：

ys "^(ce)"

注意与ys "^ce"的区别……自己想

+号对应”{+}

Enter对应”{ENTER}

发送十个字母x则为：ys "{x 10}”

ys "^{esc}u”意思是：ctrl+esc打开开始菜单，然后按U键打开关机选项

Set objshell=CreateObject("")

"notepad"

2000

Set Wshshell=Object("")

ys "hello hahah"

ys "{enter}"

ys "hahah hello"

ys "%{f4}"

ys "{enter}"

2000

ys "e:"

ys "{enter}"打开记事本，输入东西后保存为e盘"

记事本定时存H盘的程序：

Dim wshshell,autosavetime,txtfilename

autosavetime=3000

set wshshell=object("")

txtfilename=inputbox("名称")

"notepad"

200

ivate "无标题记事本"

ys "^s"

300

ys "h:"

ys txtfilename

300

ys "%s"

autosavetime

while ivate(txtfilename)=true//当记事本打开时循环，如果退出记事本则退出wscript

ys "^s"

autosavetime

wend

msgbox "vbs结束",,"结束"

msgbox "再见",,"结束"

注意：不能输入e:等待路径的，为什么啊？？？？

VBS自动上网登录博客略

**************************************

文件操作及其属性：

1只读文件

2隐藏文件

4系统文件

16文件夹或目录

32存档文件

1024连接或者快捷方式

例：

set fs =wscript(“stemobject”)

set f=e(“e:”)

msgbox utes

创建文件textfile创建前一定要检查文件是否存在

Set fso=object(“stemobject”)

If ists(“e:”) then

Msgbox “已经存在”

Else

Set f=textfile(“e:”)

End if

若强制覆盖则加上true属性

文件的读写：

1、 打开文件：

Set ts=xtfile(“c:”,1,true)

1为只读，2为写入，8为追加

True代表文件不存在则新建

2、 读取文件

Read(x) 读x个字符；readline读一行；readall全部读入

Set ffile=xtfile(“c:kktxt”,1,true)

Value=(20)

Line=ne

Contents=l

3、 指针变量：

Atendofstream属性处于文件结尾时返回true

例：

Do while fstream<>true

(10)

Loop

Column属性当前字符位置的列号

Line属性当前位置的行号

4、 在文件中跳行

skip(x)跳过X个字符

Skipline跳过一行

5、 文件中写入字符

2写入，8追加

write(x)写入x字符串

Writeline(x)写入x代表的一行

Writeblanklines(n)写入n个空行

写完后一定要用close方法关闭

读文件后一定要关闭才能以写的形式打开

******************************************************************

Vbs内部函数：

Abs返回绝对值

Array返回含有数组的变体

Asc返回字符串首字母的ascii码