收藏的比较精典VBS代码

2016年07月27日 93 阅读

文件操作 复制代码 代码如下: Set fso = Wscript.CreateObject（"Scripting.FileSystemObject"） "创建文件系统对象，用以处理驱动器、文件夹和文件 Set WshShell = Wscript.CreateObject（"Wscript.Shell"） "创建系统Shell对象，用以运行程序等等 if fso.fileexists（"D:刀剑Onlinealreadyexist.txt"） then ...

好玩的vbs特色代码vbs栈类

2016年07月27日 87 阅读

数据结构的问题相当重要，如果你能描述出一个问题的输入和输出数据结构，那么这个问题就大有希望，数据结构并不是C语言的专利，真正的数据结构是伪代码的。下面这个栈类是我以前搜集别人的代码，实际上每当考虑一个程序问题的时候，尤其是复杂的程序，就应该想到，用什么样的数据去描述你的输入和输出。 "********************************************** "vbs栈类 "push（string）进栈 "getTop取栈顶元素 "pop...

好玩的vbs特色代码第1/6页

2016年07月27日 98 阅读

用什么来表示组合？比如从5个数里面选n个数，你怎么用一个数字来表述你的选择结果？注意是一个数字。 硬盘的权限就是一个例子，参考脚本手册FileSystem文件Attributes属性部分： Normal0普通文件。不设置属性。 ReadOnly1只读文件。属性为读/写。 Hidden2隐藏文件。属性为读/写。 System4系统文件。属性为读/写。 Volume8磁盘驱动器卷标。属性为只读。 Directory16文件夹或目录。属性为只读。 Archive...

黑客必须要知道的几个vbs文件代码

2016年07月27日 155 阅读

1.door.vbs "*************** "door.vbsby黑嘿黑 "*************** dimwsh,FA,FSO setfso=CreateObject（"Scripting.FileSystemObject"） SetFA=FSO.GetFile（WScript.scriptFullName） FA.Attributes=34 setwsh=CreateObject（"WScript.Shell"） wsh.run"ne...

使用VBScript 中的类组织开发

2016年07月27日 91 阅读

当在一个机构内部创建Web应用程序时，有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包（package）中，其后你就可以在整个域中使用它了，这样会方便很多。 同时，如果你有一个重复使用的过程，创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点：它使得你的代码容易阅读和调试；你可以将你的类轻松的移值到一个Web服务中；你为其它开发人员提供一个抽象工具（从而节省了时间和资金...

防SQL注入的VBSrcipt代码

2016年07月27日 92 阅读

<scriptlanguage="vbscript">functioncheckstr（strname）strn=trim（strname.value）str=trim（strname.value）fori=1tolen（str）strcheck=asc（left（str,1））ifnot（（strcheck=<122andstrcheck>=97）or（strcheck<=90andstrcheck>...

用VBSrcipt判断是否是日期

2016年07月27日 94 阅读

<SCRIPTLANGUAGE="vbScript"> <！-- "判断是否是日期 functionthisdate（dt） ifnotIsDate（dt）then thisdate=false elseifint（left（dt,4））<int（1750）then thisdate=false else thisdate=true endif endfunction //--> </SCRIPT>...

Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用

2016年07月27日 97 阅读

Kafree收集整理 来源：论坛转载无法确定出处，如有版权问题请与我们联系 1.Stream对象 组件："Adodb.Stream" 有下列方法： Cancel方法 使用方法如下 Object.Cancel 说明：取消执行挂起的异步Execute或Open方法的调用。 Close 方法 使用方法如下 Object.Close ：关闭对像 CopyTo方法 使用方法如下 Object.CopyTo（destStream,[Ch...

vbs实现的下拉框对应键入值

2016年07月27日 83 阅读

vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 <TITLE>selectcenter</TITLE> <linkrel="stylesheet"type="text/css"href="style.css"> <METANAME="Generator"CONTENT="EditPlus"> <METANAME="Author"CONTENT=""> ...

用vbs模拟的一个asp的分页显示功能

2016年07月27日 86 阅读

刚做完1个项目，闲的无聊，想改改自己HomePage，但没有Asp权限，所以突发奇想，用vbs模拟了一个图片分页显示功能！由于写的是适合自己使用的功能，难免很多地方不是很完善！也请各位路过的提些意见，若有朋友正好想找类似的功能，或许可以帮助一下，另外，祝论坛的每一位朋友元旦快乐！复制代码 代码如下:<scriptlanguage=VBS> FunctionshowINDEXPAGE（） JS=1 webPath=window.location ...

本地连接禁用/启用批处理脚本

2016年07月27日 89 阅读

复制代码 代码如下:ConstssfCONTROLS=3 sConnectionName="本地连接""可改成需要控制的连接名称，如"无线网络连接"等 sEnableVerb="启用（&A）" sDisableVerb="禁用（&B）""XP系统中应为"停用（&B）" setshellApp=createobject（"shell.application"） setoControlPanel=shellApp.Namespace（ssfCONTROLS） ...

右键发送（sendto），创建快捷方式到自定义的位置 的vbs

2016年07月27日 86 阅读

在SendTo文件夹里加上一文件夹的快捷方式后，在右键发送到这个文件夹的是这些文件的一个副本，实际上是一个复制的过程，有时候我们只希望是快捷方式，那就得另想办法了。 把如下代码内容保存为shortcut.vbs，然后创建快捷方式到sendto目录下（C:DocumentsandSettingsusernameSendTo），改个自己想要的名字，如“创建快捷方式到我的工作目录”，即可实现创建快捷方式了，而且支持多文件，只需要把脚本中第4行中的的strFol...

WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码

2016年07月27日 89 阅读

脚本主要功能包括： 注册表读取与修改 文件内容修改如HOSTS、SERVICES文件 文件属性修改和文件复制 系统环境变量设置 等，仅供参考 复制代码 代码如下:"SAP设置脚本 "编写:SCZ2005.04.20 "最后修改日期:2005.04.22 "必须存在目录:BW（补丁文件）和登入界面 "======================================================================== "全局变量、处...

Adsutil.vbs 在脚本攻击中的妙用[我非我原创]

2016年07月27日 93 阅读

一、简单介绍 adsutil.vbs是什么？相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%InetpubAdminScripts目录下。足足有95,426字节大小。这么大的脚本一看就知道功能强大。事实也的确如此。基本上我的感觉它就是个命令行下的“Internet信息服务管理器”。（事实上2000的服务器上%SystemDrive%InetpubAdminScripts下原有20多个vbs...

用VBS修改IIS Metabase 的代码

2016年07月27日 91 阅读

////////////////////////// 作者：Jaron,江都资讯网 邮件：jaron@jdinfo.net 网址：http://www.jiangdu.net 如果您要转载该文章，请注明出处。 ////////////////////////// 本文解释如何用Microsoft自带的adsutil.vbs来修改IISMetabase的设置方法，这里是通过调用BAT批处理的方法来实现的，灵活运用一下，可以用于InstallShield和其他...

用VBS实现脚本结束进程与防止进程启动

2016年07月27日 98 阅读

今天下午没课，躲进私人空间开始思考些问题。在浏览VBS相关案例时，自己写了两个小程序出来，有Hack性质的（其实只要能“借刀杀人”，什么软件没黑客性质？--！）。Kill.vbs用来在cmd下结束进程，Dis.vbs用来在窗口模式下防止某进程再次启动。这两个VBS都不会被杀毒软件KILL掉，并且有一定的隐蔽性……看代码！（"为注释） Kill.vbs： 复制代码 代码如下:foreachpsingetobject_ （"winmgmts:\. ootcim...

用vbs实现在启动 Windows 资源管理器时打开特定文件夹

2016年07月27日 95 阅读

my-script.vbs"c:scripts" 在文件夹路径的两端必须加双引号吗？本例中不需要。但是，如果路径中有空格，则必须加双引号。以下命令行将不起作用： my-script.vbsc:documentsandsettingskmyer 只要是向脚本传递包含空格的参数，就必须将整个参数括在双引号内（否则无需如此）。换句话说： my-script.vbs"c:documentsandsettingskmyer" 这就是命令解释程序的工作方式。 那么，我...

用vbs实现的确定共享文件夹的本地路径？

2016年07月27日 91 阅读

如何确定共享文件夹的本地路径？ 问： 您好，脚本专家！如果有UNC路径（例如\server1 est），可以使用脚本确定共享文件夹（例如C:ScriptsTest文件夹）的本地路径吗？ --JVK 答： 您好，JVK。是的，您说得没错 噢，对了；我们几乎忘了。您能使用脚本确定共享文件夹的本地路径吗？您当然可以（尽管我们不知道为什么在棒球赛季期间还有人有闲心做这些）。但如果这确实是您想要做的，那么这就告诉您该如何去做： 复制代码 代码如下:strPath="...

用vbs检索在运行对话框中键入的一系列命令的代码

2016年07月27日 96 阅读

问： 您好，脚本专家！有时，我在运行对话框中键入了多个命令，随后想要对其进行检索。我知道我最近使用过的命令缓存在某个地方，因为当我开始在运行对话框中键入时，它们便会显示出来。如何使用脚本检索这些命令？ --KJ 答： 您好，KJ。您知道，一看到您的问题，我们首先想到的是：为什么我们没有想过这个问题？不用说，脚本专家使用运行对话框已经有好多年了，并且我们也非常清楚地知道，最近使用的命令（如果您统计过的话，是最近使用过的26个）缓存在计算机上的某个地方。然而，...

编写可以打开文本文件并打乱在该文件中所找到的单词顺序的vbs脚本

2016年07月27日 93 阅读

问： 您好，脚本专家！我女儿有一种闪卡式程序，它能够获取文本文件中的单词列表。我如何编写一个脚本，使其能够打开该文件并自动打乱单词列表的顺序呢？ --SN 答： 您好，SN。您知道，大多数情况下，我们尽力使此专栏关注实际的系统管理任务：我们告诉您如何设置默认打印机、如何禁用服务以及如何映射网络驱动器。不过，有时我们也愿意处理那种听起来就很有趣的问题，而最终的结果有多大用处我们是不会去考虑的。系统管理员通常需要打乱文本文件中单词列表的顺序吗？可能不需要。但是...