vbs脚本.ppt

VBS脚本编程?VBS是Visual Basic的的一个抽象子集,是系统内置的?用它编写的脚本代码直接由Windows Script Host解释执行?对象的简便支持(特定功能程序模块)例一?打开你的“记事本”程序,在编辑窗口填写?msgbox "Hello World!“?然后保存为vbs文件例二?打开你的“记事本”程序,在编辑窗口填写?Option Explicit ?Dim Question ?Question = InputBox(“请输入您的帐号","密码查询")?if Question ="" Then?MsgBox"请输入帐号",vbinformation,"密码查询"??End If?If Question=60537 Then ?MsgBox "您的密码是ABCDEFG" ?End If?然后保存为vbs文件?提供了一条极为方便、功能相当强的命令——CreateObject?对象,并且可以调用这些部件中存放的命令?通过CreateObject可以创建的对象:?1、—>提供一整套文件系统操作函数?2、—>用来返回存放键值对的字典对象?3、—>提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS环境变量,读取链接中的设置?4、Work—>提供网络连接和远程打印机管理的函数。(其中,,。)Work搜索网络共享的例子?e_msg = "网络连接搜索测试" Set work = ("work") ’创建一个网络对象?Set colDrives = ’创建一个网络共享连接列表If = 0 Then MsgBox "没有可列出的驱动器。", vbInformation + vbOkOnly,e_msg Else strMsg = "当前网络驱动器连接: " &CRLF For i=0To - 1 Step 2 strMsg = strMsg & Chr(13)&Chr(10)&colDrives(i) & Chr(9)&colDrives(i+1) Next MsgBox strMsg, vbInformation + vbOkOnly, e_msg’显示当前网络驱动器连接End If 例三?打开你的“记事本”程序,在编辑窗口填写?Set objShell = reateObject("")? "notepad",,true? "calc“?保存为vbs,然后运行Vbs脚本编程—修改注册表?读注册表的关键词和值?可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如:?set ws=("") ?v=("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz") ? v Vbs脚本编程—修改注册表?写注册表?使用wshshell对象的regwrite方法。?例子?path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" ?set ws=("") ?t=(path & “hz","hello")?这样就把HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\hz这个键值改成了hello