VBE decoder

2016年07月27日 44 阅读

This script give you a decoded listing from an encoded file. Supports *,je, ,vbe, .asp, .hta, .htm, .html… If used under cscript, puts the result to stdout. The file can be multi-encoded （many scripts in the file, for ex. in an ht...

VBS 十六进制异或加密实现代码

2016年07月27日 49 阅读

效果图：代码都封装成函数了，方便调用：复制代码 代码如下:Key = "www-enun-net" "不要用数字Wscript.echo now & ", 加密: "MyData = ReadBin（"test.jpg"）EnData = Encoder（MyData）WriteBin "E_test.jpg", EnDataWscript.echo now & ", 加密: "Wscript.echo now & ", 解密: "MyData = Rea...

VBS 提取狗狗影视中的ED2K连接的实现代码

2016年07月27日 55 阅读

打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图：我找到一个 19.75GB 的：点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。打开从本站下载的 VBS 脚本，复制该网址到输入框，然后确定，稍过一会，会出现提示完成的消息框，这个时间的长短由你的网速决定！最后，我们得到最终的 ED2K 连接地址，全部保存在当前目录下的 ed2k.txt 文件中：还等什么？打开你的下载工具，开始下载吧！^_^GetEd2kLi...

VBS 正则判别素数（质数）

2016年07月27日 44 阅读

利用正则判别素数，来源于网络，神人！复制代码 代码如下:Set regex = New RegExpregex.Pattern = "^1？$¦^（11+？）1+$"For i = 1 To 100If Not regex.Test（String（i,"1"）） ThenWScript.Echo iEnd IfNext看到标题你一定会不屑一顾，枚举质数谁不会？复制代码 代码如下:For i = 1 To 100For j = 2 To iIf...

vbs通过WMI修改文件文件夹的NTFS权限

2016年07月27日 41 阅读

使用WMI修改文件文件夹的NTFS权限, 代码：复制代码 代码如下:strUser = "guests"strPath = "D:\abc.txt"RetVal = AddPermission（strUser,strPath,"R",True）"-------------------------------------------------------------------------"用于给文件和文件夹添加一条权限设置.返回值: 0-成功,1-账户不...

VBS 添加右键计算文件MD5的实现代码

2016年07月27日 41 阅读

最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图：使用方法：1.先将GetMD5.reg文件导入注册表以添加右键菜单，GetMD5.reg代码如下：复制代码 代码如下:Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT*shellHASH（&G）command]@="WScript...

VBS监视网络连接与断开的代码

2016年07月27日 58 阅读

监视网络连接：复制代码 代码如下:strComputer = "."Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootwmi"）Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ （"Select * from MSNdis_StatusMediaConnect"） Do While True Set s...

可以修改脚本自身运行次数的vbs（Self modifying script）

2016年07月27日 42 阅读

This script behaves like a virus This script shows you how a script can be self modifying, like viruses. It is a warning about the possibilities of macro viruses. File Name : selfmodify.vbs Requirement : none Author : Jean-Luc Ant...

VBScript之通过对比注册表查找隐藏的服务

2016年07月27日 44 阅读

效果图：代码（checksvr.vbs）：复制代码 代码如下:"On Error Resume NextConst HKEY_LOCAL_MACHINE = &H80000002Set oReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\. ootdefault:StdRegProv"）strKeyPath = "SYSTEMCurrentControlSetServices"oReg.En...

VBScript 监控并结束指定进程的代码

2016年07月27日 48 阅读

运行效果图：代码（monprocess.vbs）：复制代码 代码如下:On Error Resume NextstrComputer = "."arrTargetProcs = Array（"calc.exe", "notepad.exe", "other.exe"）"数组里为要监视的进程名Set SINK = WScript.CreateObject（"WbemScripting.SWbemSink","SINK_"）Set objWMIService ...

VBScript 输出中的对齐实现方法

2016年07月27日 44 阅读

运行效果：代码（fOutput.vbs）：复制代码 代码如下:strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootCIMV2"） Set colItems = objWMIService.ExecQuery（ _ "SELECT * FROM Win32_NetworkAdapterConfiguration",,48） For Each obj...

vbs 获取当前目录的实现代码

2016年07月27日 44 阅读

CMD当前路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.PathWscript.echo test 当前VBS路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.PathWscript.ec...

vbs 获取当前目录文件数量的代码（不包括子文件夹中的）

2016年07月27日 42 阅读

复制代码 代码如下:i=0set fso=CreateObject（"Scripting.FileSystemObject"）set fs=fso.getfolder（"."）.filesfor each f in fsi=i+1nextmsgbox "文件总数:"&i...

VBS获取当前目录下所有文件夹名字的代码

2016年07月27日 43 阅读

VBS获取当前目录下所有文件夹名字，不包括子文件夹。我要给每个文件夹进行操作，所以最好用循环输出。测试的时候要保证当前目录下有文件夹才可以，否则输出为空。复制代码 代码如下:Set ws=WScript.CreateObject（"wscript.shell"）w=ws.CurrentDirectorySet fso=WScript.CreateObject（"scripting.filesystemobject"）Set fs=fso.GetFolder...

VBS读取注册表的两种方法

2016年07月27日 42 阅读

第一种 通过wshshell对象的regread复制代码 代码如下:RegValue = CreateObject（"Wscript.Shell"）.RegRead（"XXXX_XXXXXXXX_XXXXXXXXXX"）Msgbox（RegValue）更多的操作可以参考这篇文章 http://www.jb51.net/article/18125.htm第二种方法： 通过wmi复制代码 代码如下:Const HKLM = &H80000002strPath ...

查看系统C盘剩余空间的VBS脚本

2016年07月27日 42 阅读

复制代码 代码如下: "说明 : 通过VBS脚本查看 系统C盘 剩下的空间 "Creator : Eric1991 "Date ： 2013-11-4 Set objWMIService = GetObject（"winmgmts:"） Set objLogicalDisk = objWMIService.Get（"Win32_LogicalDisk.DeviceID="c:""） Wscript.Echo cint（objLogicalDisk.Free...

利用VBS实现显示系统服务列表

2016年07月27日 45 阅读

复制代码 代码如下: "执行方法：直接双击vbs文件 或者 通过cmd.exe 下 cscript.exe "指定脚本的路径" "利用Vbs脚本实现 显示系统服务里表 "Creator ： Eric1991 Date: 2013-11-1 0:25 strComputer = "." Set objWMIService = GetObject（"winmgmts:" & "\" & strComputer & " ootcimv2"） Set colSer...

VBS获取文件MD5值（无组件）

2016年07月27日 45 阅读

下面这个代码不需要组件一样可以获取MD5值。复制代码 代码如下:Option ExplicitDim wiDim fileDim file_sizeDim file_attributesDim file_versionDim file_hashSet wi = CreateObject（"WindowsInstaller.Installer"）file = "111.exe"file_size = wi.FileSize（file）file_attribu...

VBS调用Photoshop批量生成缩略图的代码

2016年07月27日 41 阅读

模仿腾讯新闻页，给KingCms添加了新闻页图片点播的代码，代码要求的图片点播格式如下：0###http://www.website.org/UploadFile/123.jpg@@@/small/123.gif@@@8标题一***http://www.website.org/UploadFile/456.jpg@@@/small/456.gif@@@标题二***http://www.website.org/UploadFile/789.jpg@@@/sm...

使用vbs获得外网ip并发送到邮箱里

2016年07月27日 42 阅读

获得本地外网地址并发送到指定邮箱，还可以参考这个文章http://www.jb51.net/article/40064.htm复制代码 代码如下:"* **************************************** * "* 程序名称：GetIP.vbs "* 程序说明：获得本地外网地址并发送到指定邮箱 "* 编码：lyserver "* **************************************** * Option ...