vbs脚本常用经典代码收集

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

1、VBS脚本常用经典代码收集标签：转载未验证转载自：http://www.suntw.com/webcode/vbs-chang-yong-dai-ma-shou-ji.html在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。VBS脚本用途很多：1.计算2.处理文件和文件夹3.管理Windows4.处理Word,Excel,PowerPoint等Office文档5.嵌入网页，驱动dHTML6.编写HTTP通信7.调用系统功能（COM组件），比如说语音说话8.分析HTML,XML9.调用命令行并分析

2、返回结果10.处理图片11.自动化按键12.调用WindowsMediaPlayer并管理13.调用WindowsLiveMessenger并管理14.服务端技术：ActiveServerPage(ASP)15.脚本病毒16.处理数据库下面是我收集的VBS代码，大部分转自gangzi.org，以后还会更新。VBS获取系统安装路径先定义这个变量是获取系统安装路径的，然后我们用”&strWinDir&”调用这个变量。setWshShell=WScript.CreateObject("WScript.Shell")strW

3、inDir=WshShell.ExpandEnvironmentStrings("%WinDir%")VBS获取C:ProgramFiles路径msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")VBS获取C:ProgramFilesCommonFiles路径msgboxCreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgram

4、Files%")给桌面添加网址快捷方式setgangzi=WScript.CreateObject("WScript.Shell")strDesktop=gangzi.SpecialFolders("Desktop")setoShellLink=gangzi.CreateShortcut(strDesktop&"InternetExplorer.lnk")oShellLink.TargetPath="http://www.fendou.info"oShellLink.Description="InternetExp

5、lorer"oShellLink.IconLocation="%ProgramFiles%InternetExploreriexplore.exe,0"oShellLink.Save给收藏夹添加网址ConstADMINISTRATIVE_TOOLS=6SetobjShell=CreateObject("Shell.Application")SetobjFolder=objShell.Namespace(ADMINISTRATIVE_TOOLS)SetobjFolderItem=objFolder.SelfSeto

6、bjShell=WScript.CreateObject("WScript.Shell")strDesktopFld=objFolderItem.PathSetobjURLShortcut=objShell.CreateShortcut(strDesktopFld&"奋斗Blog.url")objURLShortcut.TargetPath="http://www.fendou.info/"objURLShortcut.Save删除指定目录指定后缀文件OnErrorResumeNextSetfso=CreateOb

7、ject("Scripting.FileSystemObject")fso.DeleteFile"C:*.vbs",TrueSetfso=NothingVBS改主页SetoShell=CreateObject("WScript.Shell")oShell.RegWrite"HKEY_CURRENT_USERSoftwareMicrosoftInternetExplorerMainStartPage","http://www.fendou.info"VBS加启动项SetoShell=CreateObject

8、("Wscript.Shell")oShell.RegWrite"HKLMSoftwareMicrosoftWindowsCurrentVersionRuncmd","cmd.exe"VBS复制自己setcopy1=createobject("scripting.filesystemobject")copy1.getfile(wsc