经典的vbs代码

《经典的vbs代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。VBS脚本用途很多：1.计算2.处理文件和文件夹3.管理Windows4.处理Word,Excel,PowerPoint等Office文档5.嵌入网页，驱动dHTML6.编写HTTP通信7.调用系统功能（COM组件），比如说语音说话8.分析HTML,XML9.调用命令行并分析返回结果10.处理图片11.自动化按键12.调用WindowsMediaPlayer并管理13.调用WindowsLiveMessenger并管理14.服务端技术：ActiveServerPage(ASP)15.脚本病毒16.处理

2、数据库下面是我收集的VBS代码，大部分转自gangzi.org，以后还会更新。VBS获取系统安装路径先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。setWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir%")VBS获取C:ProgramFiles路径msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%Progra

3、mFiles%")VBS获取C:ProgramFilesCommonFiles路径msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%")给桌面添加网址快捷方式setgangzi=WScript.CreateObject("WScript.Shell")strDesktop=gangzi.SpecialFolders("Desktop")setoShellLink=gangzi.CreateShortcut(strDesktop&"InternetExp

4、lorer.lnk")oShellLink.TargetPath="http://www.fendou.info"oShellLink.Description="InternetExplorer"oShellLink.IconLocation="%ProgramFiles%InternetExploreriexplore.exe,0"oShellLink.Save给收藏夹添加网址ConstADMINISTRATIVE_TOOLS=6SetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.N

5、amespace(ADMINISTRATIVE_TOOLS)SetobjFolderItem=objFolder.SelfSetobjShell=WScript.CreateObject("WScript.Shell")strDesktopFld=objFolderItem.PathSetobjURLShortcut=objShell.CreateShortcut(strDesktopFld&"奋斗Blog.url")objURLShortcut.TargetPath="http://www.fendou.info/"objURLShortcut.Save删除指定目录

6、指定后缀文件OnErrorResumeNextSetfso=CreateObject("Scripting.FileSystemObject")fso.DeleteFile"C:*.vbs",TrueSetfso=NothingVBS改主页SetoShell=CreateObject("WScript.Shell")oShell.RegWrite"HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMainStartPage","http://www.fendou.info"VBS加启动项SetoShell=C

7、reateObject("Wscript.Shell")oShell.RegWrite"HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd","cmd.exe"VBS复制自己setcopy1=createobject("scripting.filesystemobject")copy1.getfile(wscript.scriptfullname).copy("c:huan.vbs")复制自己到C盘的huan.vbs(复制本vbs目录下的game.exe文件到c盘的gangzi.