经典的vbs代码

经典的vbs代码

ID:37484808

大小:121.00 KB

页数:17页

时间:2019-05-24

经典的vbs代码_第1页
经典的vbs代码_第2页
经典的vbs代码_第3页
经典的vbs代码_第4页
经典的vbs代码_第5页
资源描述:

《经典的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.

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。