vbs代码教程,vbs代码教程手机版

('dimnamename=inputbox("对话框内容","标题")msgboxname,,"标题"name="2222222"msgboxname,,""Cbool函数将变量转化成布尔值Cbyte函数将变量转换成整数0-255Ccur函数、Cdbl、Csing均转化为浮点Cdate日期Cint、Clong整数数组：0开始dimarrray(9)代表0-8array(4)代表第五个redim来改变数组的个数、维数改变数组的大小时会破坏数组的数据应用preserve来保护数据:redimpreserarray(个数,维数)^乘方，mod取模，<>不等Is来比较对象，对象为同一类型则为真1、If条件then语句;…….EndifElse也可以用2、Fori=1to10语句Next对数组内的每个都编辑的方法：ForeachIin要查看的对象或数组语句Next可以用existfor来退出循环Dowhile条件循环体LoopDountil条件循环体LoopWhile条件循环体Wend过程：函数、子程序Function函数名称(参数列表)函数代码函数名称=某值‘用来返回值若直接用call调用函数，则返回值自动取消CreatObject可以访问windows安装的com对象Wsh包括的对象：1、Scripting.FileSystemObject提供一整套的文件系统操作函数2、Scripting.Dictionary用来返回存放键值对的字典对象3、Wscript.shell提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取dos环境变量，读取连接中的设置4、Wscript.Network网络连接Scripting存放在SCRRUN.DLLWscript存放在WSHOM.ocx例子：1、Setobjshell=CreateObject("Wscript.Shell")Objshell.run"notepad"打开了一个记事本objshell被set成了一个对象，调用里面的runcalc是计算器的winword是word等等当软件路径有空格时，应如下：Objshell.run"""E:\\ProgramFiles\\Tencent\\QQ\\Bin\\QQ.exe"""三个”启动多个程序时：Setobjshell=CreateObject("Wscript.Shell")Objshell.run"notepad"Objshell.run"calc"则两个同时启动若先后启动则：Setobjshell=CreateObject("Wscript.Shell")Objshell.run"notepad",,trueObjshell.run"calc"则关闭txt后才启动计算器.run参数三个：路径、窗口形式（0后台，1正常，2最小化，3最大化……）、true表示程序退出后脚本再继续进行2、注册表略文件系统进行访问管理的对象FSO：FileSystemObject包括：Drive对象包含存储设备的信息Drives集合提供物理和逻辑驱动的列表File对象检查处理文件Files集合提供一个文件夹中的文件列表Folder对象提供文件夹中的子文件夹列表Textstream对象读写文本文件FSO常见方法：BuildPath：把文件路径信息添加到现有的文件路径上CopyFile：复制文件CopyFolder：复制文件夹CreatFolderCreatTextFile：创建文本并返回一个textstream对象DeleteFileDeleteFolderDriveExists：确定驱动器是否存在FileExists：文件是否存在FolderExistsGetAbsolutePathName返回文件或文件夹的路径GetDrive：返回一个drive对象GetDriveName返回一个驱动器的名字GetExtensionName返回扩展名GetFile返回一个file对象GetFileName返回文件夹中文件名称GetFolde：返回文件夹对象GetParentFolderName返回父文件夹GetTempName返回一个可以被createtextfile使用的文件夹名称MoveFile移动文件MoveFolderOpenTextFile打开一个存在的文件并返回一个TextStream对象FSO使用：Fso模型建立Setfs=wscript.createobject(“scripting.filesystemobject”)Fso模型释放Setfs=nothing使用文件夹Dimfs,sSetfs=wscript.createobject("scripting.filesystemobject")If(fs.FolderExists("c:\\temp"))ThenS="cunzai"ElseS="bucunzai"Setfoldr=fs.createfolder("c:\\temp")EndifmsgboxS,,""删除文件夹Setfs=wscript.createobject("scripting.filesystemobject")Fs.deletefolder(“---路径—“)拷贝Fs.copyfolder“源路径c:\\data““目的路径d:\\data”若c:\\data与d:\\data同时存在会出错，此时应强制覆盖:Fs.copyfolder“源路径c:\\data““目的路径d:\\data”,true移动：Fs.movefolder“c:\\data““d:\\data”用folder属性删除文件夹：Setfs=wscript.createobject("scripting.filesystemobject")Setf=fs.getfolder(“c:\\data”)f.delete特殊文件夹操作略Sendkeys模拟键盘输入Object.sendkeysstringObject为Wshshell，例：Setobjshell=CreateObject("Wscript.Shell")Objshell.run"notepad"Wscript.sleep2000SetWshshell=Wscript.createObject("Wscript.shell")Wshshell.sendkeys"cfan"打开记事本两秒后输入cfan组合键：Shift对应+Ctrl对应^Alt对应%Ctrl+E则为：Wshshell.sendkeys"^e"Ctrl+E+C则为：Wshshell.sendkeys"^(ce)"注意与Wshshell.sendkeys"^ce"的区别……自己想+号对应”{+}Enter对应”{ENTER}发送十个字母x则为：Wshshell.sendkeys"{x10}”Wshshell.sendkeys"^{esc}u”意思是：ctrl+esc打开开始菜单，然后按U键打开关机选项Setobjshell=CreateObject("Wscript.Shell")Objshell.run"notepad"Wscript.sleep2000SetWshshell=Wscript.createObject("Wscript.shell")Wshshell.sendkeys"hellohahah"Wshshell.sendkeys"{enter}"Wshshell.sendkeys"hahahhello"Wshshell.sendkeys"%{f4}"Wshshell.sendkeys"{enter}"Wscript.sleep2000Wshshell.sendkeys"e:\\my.txt"Wshshell.sendkeys"{enter}"打开记事本，输入东西后保存为e盘"my.txt记事本定时存H盘的程序：Dimwshshell,autosavetime,txtfilenameautosavetime=3000setwshshell=Wscript.createobject("Wscript.shell")txtfilename=inputbox("名称")wshshell.run"notepad"Wscript.sleep200wshshell.appactivate"无标题记事本"wshshell.sendkeys"^s"Wscript.sleep300wshshell.sendkeys"h:\\"wshshell.sendkeystxtfilenameWscript.sleep300wshshell.sendkeys"%s"Wscript.sleepautosavetimewhilewshshell.appactivate(txtfilename)=true//当记事本打开时循环，如果退出记事本则退出wscriptwshshell.sendkeys"^s"wscript.sleepautosavetimewendmsgbox"vbs结束",,"结束"msgbox"再见",,"结束"wscript.quit注意：不能输入e:\\a.txt等待路径的，为什么啊？？？？VBS自动上网登录博客略文件操作及其属性：1只读文件2隐藏文件4系统文件16文件夹或目录32存档文件1024连接或者快捷方式例：setfs=wscript(“scripting.filesystemobject”)setf=fs.getfile(“e:\\index.txt”)msgboxf.attributes创建文件object.createtextfile创建前一定要检查文件是否存在Setfso=wscript.createobject(“scripting.filesystemobject”)Iffso.fileexists(“e:\\kk.txt”)thenMsgbox“已经存在”ElseSetf=fso.createtextfile(“e:\\kk.txt”)Endif若强制覆盖则加上true属性文件的读写：1、打开文件：Setts=fso.opentextfile(“c:\\kk.txt”,1,true)1为只读，2为写入，8为追加True代表文件不存在则新建2、读取文件Read(x)读x个字符；readline读一行；readall全部读入Setffile=fso.opentextfile(“c:\\kktxt”,1,true)Value=ffile.read(20)Line=ffile.readlineContents=ffile.readall3、指针变量：Atendofstream属性处于文件结尾时返回true例：Dowhileffile.atendofstream<>trueFfile.read(10)LoopColumn属性当前字符位置的列号Line属性当前位置的行号4、在文件中跳行skip(x)跳过X个字符Skipline跳过一行5、文件中写入字符2写入，8追加write(x)写入x字符串Writeline(x)写入x代表的一行Writeblanklines(n)写入n个空行写完后一定要用close方法关闭读文件后一定要关闭才能以写的形式打开Vbs内部函数：Abs返回绝对值Array返回含有数组的变体Asc返回字符串首字母的ascii码',)