您现在的位置是：网站首页> 编程资料编程资料
vbscript，jscript脚本编程教学（1）_vbs_
2023-05-25
214人已围观
简介 vbscript，jscript脚本编程教学（1）_vbs_
by sssa2000
7/4/2004
论坛上好多朋友都问关于脚本的问题，正好最近对脚本比较有兴趣，就写点东西吧。首先说明一下，我的所有代码都是vbscript，jscript我没有研究过，不过我想也差不多。
关于最基础的语法比如变量的申明，分支，循环，函数的调用，等等这些我就不讲了，不懂得自己看一下。
1、我们的第一个vbs程序：还是那个老得掉牙的冬冬。
************************hello.vbs**************************
dim hello
hello=”hello world!”
wscript.echo hello
wscript echo “ this is my first vbs”
可以看出wscript.echo有两种用法，这个不难。
可以直接双击运行，可以在当前目录的命令行输入：
cscript hello.vbs
2、在脚本中调用其他的程序：
使用run()方法，在使用前必须先建立shell的实例
********************shell.vbs******************************************
set ws=wscript.createobject("wscript.shell")
ret=ws.run ("notepad" ,3,true)
if ret=0 then
wscript.echo “succeed!”
else
wscript.echo “there is a error,the error number is:”
wscript.echo cstr(ret)
end if
***************************************************************************
这里run 有三个参数，第一个参数是你要执行的程序的路径
第二个程序是窗口的形式，0是在后台运行；
1表示正常运行
2表示激活程序并且显示为最小化
3表示激活程序并且显示为最大化
一共有10个这样的参数我只列出了4个最常用的。
第三个参数是表示这个脚本是等待还是继续执行，如果设为了true,脚本就会等待调用的程序退出后再向后执行。
注意到没有，我在run的前面还有一个接受返回值的变量，一般来说如果返回为0，表示成功执行，如果不为0，则这个返回值就是错误代码，可以通过这个代码找出相应的错误。
3、inputbox 和msgbox
会vb的人对着两个东西应该很熟悉，用法也没什么差别
input=inputbox(“please enter you password”,”passwd”)
if input<>”1234”
then
msgbox “you enter a wrong passwd”
end if
当然你也可以给msgbox添加按钮,用一个变量接受用户的选择
例如：ret=msgbox “continue?”,vbyesnocancel
返回值和常量对照如下：
vbok 1
vbcancel 2
vbabort 3
vbretry 4
vbignore 5
vbyes 6
vbno 7
4、错误处理
何vb一样用on error resume next
这个没什么好说的，如果遇到了错误就跳过继续执行下一句
当然这个方法很弱智，还需要有一个方法，vbscript提供了一个对象err对象
他有两个方法clear,raise
5个属性：description,helpcontext ,helpfile,number,source
我们可以利用err.number获得错误号例如
***********************err.vbs*****************************
on error resume next
a=11
b=0
c=a/b
if err.number<>0 then
wscript.echo err.number & err.description & err.source
end if
我们可以用err.raisel来手工抛出错误
比如我们要产生一个path not found的错误 告诉用户，他填写的路径不对
on error resume next
err.raise 76
msgbox "error :" & err.description
err.clear
以上都是基础，今天就写到这里吧，好累哦，呵呵呵 如有转载注明出处。明天给大家讲文件系统吧。
vbscript脚本编程教程2
by sssa2000
7/7/2004
我们来看一看怎么利用fso来进行文件操作。Fso时vbs里进行文件操作的核心。作为黑客，不管学习什么语言，对文件的操作都应该是要了如指掌的，所以请大家仔细学习。
不说废话，先看fso由哪几个对象组成：
drive对象：包含储存设备的信息，包括硬盘，光驱，ram盘，网络驱动器
drives集合：提供一个物理和逻辑驱动器的列表
file 对象：检查和处理文件
files 集合：提供一个文件夹中的文件列表
folder对象：检查和处理文件夹
folders集合：提供文件夹中子文件夹的列表
textstream对象：读写文本文件
看看fso的方法：由于很多，所以我不会把每个的作用写出来，如果有不懂的，自己查一下msdn。不要说没有哦
bulidpath:把文件路径信息添加到现有的文件路径上
copyfile
copyfolder
createfolder
createtextfile
deletefile
deletefolder
dreveexits
fileexits
folderexists
getabsolutepathname：返回一个文件夹或文件的绝对路径
getbasename:返回一个文件或文件夹的基本路径
getdrive：返回一个dreve对象
getdrivename：返回一个驱动器的名字
getextensionname:返回扩展名
getfile:返回一个file对象
getfilename:返回文件夹中文件名称
getfolder
getparentfoldername：返回一个文件夹的父文件夹
getspecialfolder:返回指向一个特殊文件夹的对象指针
gettempname:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称
movefile
movefolder
opentextfile
好了，看到这里我想大家也明白了一大半，可能后面都不用我多说了，脚本就是这么简单，呵呵呵，还是继续把。
1、使用fso
由于fso不是wsh的一部分，所以我们需要建立他的模型
例如set fs=wscript.createobject(“scripting.filesystemobject”)
这样就建立了fso的模型。如果要释放的话也很简单，set fs=nothing
2、使用文件夹
创建：
在创建前我们需要检查是否存在，看一下程序
***************************createfolder.vbs*****************************
dim fs,s
set fs=wscript.createobject(“scripting.filesystemobject”)
if (fs.folderexists(“c:\temp”)) then
s=”is available”
else
s=”not exist”
set foldr=fs.createfolder(“c:\temp”)
end if
删除、拷贝、移动
删除：
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.deletefolder(“c:\windows”)
拷贝：
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfolder “c:\data” “d:\data”
注意，如果这个时候c:\data 和d:\data都存在，会出错，复制也就会停止，如果要强制覆盖，使用fs.copyfolder “c:\data” “d:\data”，true
移动
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.movefolder “c:\data” “d:\data”
关于通配符：
我们可以使用统配符，来方便操作：
例如， fs.movefolder :c:\data\te*” , “d:\working”
注意到没有，我在目的路径最后没有使用“\” 也就是说我没有这样写：
fs.movefolder :c:\data\te*” , “d:\working\”
这样写的话，如果d:\working 目录不存在，windows就不会为我们自动创建这个目录。
还有一点，大家注意到没有 上面说的都没有涉及到folder对象，我们都是在利用fso提供的方法，当然利用folder一样可以的：
set fs= wscript.createobject(“scripting.filesystemobject”)
set f=fs.getfolder(“c:\data”)
f.delete ‘删除。如果有子目录，也会被删除
f.copy “d:\working”,true ‘拷贝到d:\working
f.move :”d:\temp” ‘移动到d:\temp
特殊文件夹
一般指的就是系统文件夹：\windows\system32， 临时文件夹，windows文件夹
看下面，我们使用环境变量来获得windows目录，关于环境变量我们会在后面详细讲道，如果我忘记了 请大家提醒我
set fs=wscript.createobject(“scripting.filesystemobject”)
set wshshell=wscript.createobject(“wscript.shell”)
osdir=wshshell.expandenvironmentstrings(“%systemroot%”)
set f =fs.getfolder(osdir)
wscript.echo f
当然，还有简单的方法 那就是使用getspecialfolder()
这个方法使用3种值：
0 表示windows文件夹，相关常量是windowsfolder
1 系统文件夹，相关常量是systemfolder
2 临时目录，相关常量temporaryfolder
看下面的例子：
***********************************getspecialfolder***************************
set fs=wscript.createobject(“scripting.filesystemobject”)
set wfolder=fs.getspecialfolder(0) ‘返回windows目录
set wfolder=fs.getspecialfolder(1) ‘返回system32\
set wfolder=fs.getspecialfolder(2)'返回临时目录
3、使用文件
使用文件属性：
文件夹的属性我没有说，大家可以从文件属性里举一反三
文件属性常用的就是：
normal 0
readonly 1
hideen 2
system 4
set fs=wscript.createobject(“scripting.filesystemobject”)
set f=fs.gerfile(“d:\index.txt”)
f.attributes=f.attributes+1
这里由于不知道d:\index.txt的文件属性，所以会发生不可预测的结果，如果文件的属性是0，那么就会变成1。所以最好在改变属性前查询
创建
创建前需要检查文件是否存在，方法和前面说的文件夹的方法一样
*****************************file.vbs**********************************
set fs=wscript.createobject(“scripting.filesystemobject”)
if fs.fileexists(“c:\asd.txt”) then
s=” available”
else
s=not exist”
set f=fs.createtextfile(“c:\asd.txt”)
end if
当然 我们也可以使用set f=fs.createtextfile(“c:\asd.txt”，true)
来强制覆盖已存在的文件。
复制移动删除文件
和文件夹一样 我们既可以使用fso提供的方法也可以用file对象
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfile “c:\asd.txt”,”d:\1\asd.txt”,true ‘复制文件,如果已存在就强制覆盖
fs.movefile “c:\asd.txt”, “d:\” ‘移动
fs.deletefile “c:\asd.txt” ‘删除
好了，下一章我们就要学习文件的读写了，文件的读写是文件系统，尤其是黑客编程里面十分重要的一部分，今天打字可能有很多错误，大家看的时候仔细一点，不懂得多看看msdn, 要提高水平只有靠自己，别人是帮不了你的
Vbscript 脚本编程3 关于文件的读写
By sssa2000
7/9/2004
使用vbscript来读写文件，十分的方便，废话少说，切入正题。
1、打开文件
使用opentextfile方法
set fs =createobject(“scripting.filesystemobject”)
set ts=fs.opentextfile(“c:\1.txt”,1,true)
注意这里需要填入文件的完整路径，后面一个参数为访问模式
1为forreading
2为forwriting
8为appending
第三个参数指定如果指定文件不存在，是否创建。
2、读取文件
读取文件的方法有三个
read(x)读取x个字符
readline读取一行
readall全部读取
例如：
set fs =createobject(“scripting.filesystemobject”)
set ts=fs.opentextfile(“c:\1.txt”,1,true)
value=ts.read(20)
line=ts.readline
contents=ts.readall
这里还要介绍几个指针变量：
textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如：
set fs =createobject(“scripting.filesystemobject”)
set f=fs.getfile(“c:\1.txt”,1,false)
set ts=f.openastextstream(1,0)
do while ts.atendofstream<>true
f.read(1)
loop
还有一个属性，atendofline,如果已经到了行末尾，这个属性返回true.
Textstream对象还有两个有用的属性，column和line.
在打开一个文件后，行和列指针都被设置为1。
看一个综合的例子吧：
*******************************read.vbs******************************
set fs =createobject(“scripting.filesystemobject”)
set f=fs.opentextfile(“c:\1.txt”,1,true)
do while f.atendofstream<>true
data=””
for a=1 to 5
if f.atendofstream<>true then
data=data+f.readline
end if
next
dataset=dataset+1
wscript.echo “data set” ＆dataset & ”:” & data
loop
最后说一下在文件中跳行
skip(x) 跳过x个字符
skipline 跳过一行
用法也很简单 和前面一样，就不说了。
3、写文件
可以用forwriting和forappending方式来写
写有3各方法：
write(x)
writeline
writeblanklines(n) 写入n个空行
来看一个例子：
*****************************************************************
data=”hello, I like script programing”
set fs =createobject(“scripting.filesystemobject”)
if (fs.fileexists(“c:\2.txt”)) then
set f =fs.opentextfile(“c:\2.txt”,8)
f.write data
f.writeline data
f.close
else
set f=fs.opentextfile(“c:\2.txt”,2, true)
f.writeblanklines 2
提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！
7/4/2004
论坛上好多朋友都问关于脚本的问题，正好最近对脚本比较有兴趣，就写点东西吧。首先说明一下，我的所有代码都是vbscript，jscript我没有研究过，不过我想也差不多。
关于最基础的语法比如变量的申明，分支，循环，函数的调用，等等这些我就不讲了，不懂得自己看一下。
1、我们的第一个vbs程序：还是那个老得掉牙的冬冬。
************************hello.vbs**************************
dim hello
hello=”hello world!”
wscript.echo hello
wscript echo “ this is my first vbs”
可以看出wscript.echo有两种用法，这个不难。
可以直接双击运行，可以在当前目录的命令行输入：
cscript hello.vbs
2、在脚本中调用其他的程序：
使用run()方法，在使用前必须先建立shell的实例
********************shell.vbs******************************************
set ws=wscript.createobject("wscript.shell")
ret=ws.run ("notepad" ,3,true)
if ret=0 then
wscript.echo “succeed!”
else
wscript.echo “there is a error,the error number is:”
wscript.echo cstr(ret)
end if
***************************************************************************
这里run 有三个参数，第一个参数是你要执行的程序的路径
第二个程序是窗口的形式，0是在后台运行；
1表示正常运行
2表示激活程序并且显示为最小化
3表示激活程序并且显示为最大化
一共有10个这样的参数我只列出了4个最常用的。
第三个参数是表示这个脚本是等待还是继续执行，如果设为了true,脚本就会等待调用的程序退出后再向后执行。
注意到没有，我在run的前面还有一个接受返回值的变量，一般来说如果返回为0，表示成功执行，如果不为0，则这个返回值就是错误代码，可以通过这个代码找出相应的错误。
3、inputbox 和msgbox
会vb的人对着两个东西应该很熟悉，用法也没什么差别
input=inputbox(“please enter you password”,”passwd”)
if input<>”1234”
then
msgbox “you enter a wrong passwd”
end if
当然你也可以给msgbox添加按钮,用一个变量接受用户的选择
例如：ret=msgbox “continue?”,vbyesnocancel
返回值和常量对照如下：
vbok 1
vbcancel 2
vbabort 3
vbretry 4
vbignore 5
vbyes 6
vbno 7
4、错误处理
何vb一样用on error resume next
这个没什么好说的，如果遇到了错误就跳过继续执行下一句
当然这个方法很弱智，还需要有一个方法，vbscript提供了一个对象err对象
他有两个方法clear,raise
5个属性：description,helpcontext ,helpfile,number,source
我们可以利用err.number获得错误号例如
***********************err.vbs*****************************
on error resume next
a=11
b=0
c=a/b
if err.number<>0 then
wscript.echo err.number & err.description & err.source
end if
我们可以用err.raisel来手工抛出错误
比如我们要产生一个path not found的错误 告诉用户，他填写的路径不对
on error resume next
err.raise 76
msgbox "error :" & err.description
err.clear
以上都是基础，今天就写到这里吧，好累哦，呵呵呵 如有转载注明出处。明天给大家讲文件系统吧。
vbscript脚本编程教程2
by sssa2000
7/7/2004
我们来看一看怎么利用fso来进行文件操作。Fso时vbs里进行文件操作的核心。作为黑客，不管学习什么语言，对文件的操作都应该是要了如指掌的，所以请大家仔细学习。
不说废话，先看fso由哪几个对象组成：
drive对象：包含储存设备的信息，包括硬盘，光驱，ram盘，网络驱动器
drives集合：提供一个物理和逻辑驱动器的列表
file 对象：检查和处理文件
files 集合：提供一个文件夹中的文件列表
folder对象：检查和处理文件夹
folders集合：提供文件夹中子文件夹的列表
textstream对象：读写文本文件
看看fso的方法：由于很多，所以我不会把每个的作用写出来，如果有不懂的，自己查一下msdn。不要说没有哦
bulidpath:把文件路径信息添加到现有的文件路径上
copyfile
copyfolder
createfolder
createtextfile
deletefile
deletefolder
dreveexits
fileexits
folderexists
getabsolutepathname：返回一个文件夹或文件的绝对路径
getbasename:返回一个文件或文件夹的基本路径
getdrive：返回一个dreve对象
getdrivename：返回一个驱动器的名字
getextensionname:返回扩展名
getfile:返回一个file对象
getfilename:返回文件夹中文件名称
getfolder
getparentfoldername：返回一个文件夹的父文件夹
getspecialfolder:返回指向一个特殊文件夹的对象指针
gettempname:返回一个可以被createtextfile使用的随机产生的文件或文件夹的名称
movefile
movefolder
opentextfile
好了，看到这里我想大家也明白了一大半，可能后面都不用我多说了，脚本就是这么简单，呵呵呵，还是继续把。
1、使用fso
由于fso不是wsh的一部分，所以我们需要建立他的模型
例如set fs=wscript.createobject(“scripting.filesystemobject”)
这样就建立了fso的模型。如果要释放的话也很简单，set fs=nothing
2、使用文件夹
创建：
在创建前我们需要检查是否存在，看一下程序
***************************createfolder.vbs*****************************
dim fs,s
set fs=wscript.createobject(“scripting.filesystemobject”)
if (fs.folderexists(“c:\temp”)) then
s=”is available”
else
s=”not exist”
set foldr=fs.createfolder(“c:\temp”)
end if
删除、拷贝、移动
删除：
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.deletefolder(“c:\windows”)
拷贝：
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfolder “c:\data” “d:\data”
注意，如果这个时候c:\data 和d:\data都存在，会出错，复制也就会停止，如果要强制覆盖，使用fs.copyfolder “c:\data” “d:\data”，true
移动
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.movefolder “c:\data” “d:\data”
关于通配符：
我们可以使用统配符，来方便操作：
例如， fs.movefolder :c:\data\te*” , “d:\working”
注意到没有，我在目的路径最后没有使用“\” 也就是说我没有这样写：
fs.movefolder :c:\data\te*” , “d:\working\”
这样写的话，如果d:\working 目录不存在，windows就不会为我们自动创建这个目录。
还有一点，大家注意到没有 上面说的都没有涉及到folder对象，我们都是在利用fso提供的方法，当然利用folder一样可以的：
set fs= wscript.createobject(“scripting.filesystemobject”)
set f=fs.getfolder(“c:\data”)
f.delete ‘删除。如果有子目录，也会被删除
f.copy “d:\working”,true ‘拷贝到d:\working
f.move :”d:\temp” ‘移动到d:\temp
特殊文件夹
一般指的就是系统文件夹：\windows\system32， 临时文件夹，windows文件夹
看下面，我们使用环境变量来获得windows目录，关于环境变量我们会在后面详细讲道，如果我忘记了 请大家提醒我
set fs=wscript.createobject(“scripting.filesystemobject”)
set wshshell=wscript.createobject(“wscript.shell”)
osdir=wshshell.expandenvironmentstrings(“%systemroot%”)
set f =fs.getfolder(osdir)
wscript.echo f
当然，还有简单的方法 那就是使用getspecialfolder()
这个方法使用3种值：
0 表示windows文件夹，相关常量是windowsfolder
1 系统文件夹，相关常量是systemfolder
2 临时目录，相关常量temporaryfolder
看下面的例子：
***********************************getspecialfolder***************************
set fs=wscript.createobject(“scripting.filesystemobject”)
set wfolder=fs.getspecialfolder(0) ‘返回windows目录
set wfolder=fs.getspecialfolder(1) ‘返回system32\
set wfolder=fs.getspecialfolder(2)'返回临时目录
3、使用文件
使用文件属性：
文件夹的属性我没有说，大家可以从文件属性里举一反三
文件属性常用的就是：
normal 0
readonly 1
hideen 2
system 4
set fs=wscript.createobject(“scripting.filesystemobject”)
set f=fs.gerfile(“d:\index.txt”)
f.attributes=f.attributes+1
这里由于不知道d:\index.txt的文件属性，所以会发生不可预测的结果，如果文件的属性是0，那么就会变成1。所以最好在改变属性前查询
创建
创建前需要检查文件是否存在，方法和前面说的文件夹的方法一样
*****************************file.vbs**********************************
set fs=wscript.createobject(“scripting.filesystemobject”)
if fs.fileexists(“c:\asd.txt”) then
s=” available”
else
s=not exist”
set f=fs.createtextfile(“c:\asd.txt”)
end if
当然 我们也可以使用set f=fs.createtextfile(“c:\asd.txt”，true)
来强制覆盖已存在的文件。
复制移动删除文件
和文件夹一样 我们既可以使用fso提供的方法也可以用file对象
set fs=wscript.createobject(“scripting.filesystemobject”)
fs.copyfile “c:\asd.txt”,”d:\1\asd.txt”,true ‘复制文件,如果已存在就强制覆盖
fs.movefile “c:\asd.txt”, “d:\” ‘移动
fs.deletefile “c:\asd.txt” ‘删除
好了，下一章我们就要学习文件的读写了，文件的读写是文件系统，尤其是黑客编程里面十分重要的一部分，今天打字可能有很多错误，大家看的时候仔细一点，不懂得多看看msdn, 要提高水平只有靠自己，别人是帮不了你的
Vbscript 脚本编程3 关于文件的读写
By sssa2000
7/9/2004
使用vbscript来读写文件，十分的方便，废话少说，切入正题。
1、打开文件
使用opentextfile方法
set fs =createobject(“scripting.filesystemobject”)
set ts=fs.opentextfile(“c:\1.txt”,1,true)
注意这里需要填入文件的完整路径，后面一个参数为访问模式
1为forreading
2为forwriting
8为appending
第三个参数指定如果指定文件不存在，是否创建。
2、读取文件
读取文件的方法有三个
read(x)读取x个字符
readline读取一行
readall全部读取
例如：
set fs =createobject(“scripting.filesystemobject”)
set ts=fs.opentextfile(“c:\1.txt”,1,true)
value=ts.read(20)
line=ts.readline
contents=ts.readall
这里还要介绍几个指针变量：
textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如：
set fs =createobject(“scripting.filesystemobject”)
set f=fs.getfile(“c:\1.txt”,1,false)
set ts=f.openastextstream(1,0)
do while ts.atendofstream<>true
f.read(1)
loop
还有一个属性，atendofline,如果已经到了行末尾，这个属性返回true.
Textstream对象还有两个有用的属性，column和line.
在打开一个文件后，行和列指针都被设置为1。
看一个综合的例子吧：
*******************************read.vbs******************************
set fs =createobject(“scripting.filesystemobject”)
set f=fs.opentextfile(“c:\1.txt”,1,true)
do while f.atendofstream<>true
data=””
for a=1 to 5
if f.atendofstream<>true then
data=data+f.readline
end if
next
dataset=dataset+1
wscript.echo “data set” ＆dataset & ”:” & data
loop
最后说一下在文件中跳行
skip(x) 跳过x个字符
skipline 跳过一行
用法也很简单 和前面一样，就不说了。
3、写文件
可以用forwriting和forappending方式来写
写有3各方法：
write(x)
writeline
writeblanklines(n) 写入n个空行
来看一个例子：
*****************************************************************
data=”hello, I like script programing”
set fs =createobject(“scripting.filesystemobject”)
if (fs.fileexists(“c:\2.txt”)) then
set f =fs.opentextfile(“c:\2.txt”,8)
f.write data
f.writeline data
f.close
else
set f=fs.opentextfile(“c:\2.txt”,2, true)
f.writeblanklines 2
提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！
