vbs 自动复制U盘的内容

2017年02月06日 206 阅读

思路很简单，高层的东西没什么技术含量，引用几个函数或方法就行了。开始我用的是批处理（如果你插入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刷投票的代码

2017年02月06日 159 阅读

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

VBS 断网后自动关机30秒后

2017年02月06日 139 阅读

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

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

2017年02月06日 202 阅读

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

屏蔽端口的vbs脚本

2017年02月06日 159 阅读

复制代码 代码如下:"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编码转换工具

2017年02月06日 146 阅读

演示 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 文本文件编码查询工具

2017年02月06日 181 阅读

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

2017年02月06日 173 阅读

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

利用vbs写的延时关闭ie进程的脚本代码

2017年02月06日 178 阅读

复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject（"winmgmts:{impersonationLevel=impersonate}！\" & strComputer & " ootcimv2"） Set objStartup = objWMIService.Get（"Win32_ProcessStartup"） Set objConfig = objStart...

Shell.Application执行命令的五种方法小结

2017年02月06日 186 阅读

当初老马写这个版本时，我测试过简繁两个2003版本的，当是是好用的。我猜测很可能与2003打了ms06014补丁有关。kyo在冰点论坛提出了解决方法，我今天下午研究了一下这个组件，发现它有5种方法可以执行命令。以下是vbs版本（asp版不提供了，如何利用asp版本在2003的webshell中运行命令，自己解决吧：-）： 复制代码 代码如下: Set objShellApp = CreateObject（"Shell.Application"） Set o...

SQL获取表结构的show_table.vbs （冰点极限NP）

2017年02月06日 149 阅读

复制代码 代码如下:set arg=wscript.arguments If arg.count = 0 Then show_help（） wsh.quit End If Server = arg（0） User = arg（1） pass = arg（2） database_name = arg（3） table_name = arg（4） set Conn = CreateObject（"ADODB.Connection"） Conn.Open "Dr...

域内计算机和用户获取实现vbs代码

2017年02月06日 139 阅读

显示当前域内所有计算机名称及数目 复制代码 代码如下: Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = GetObject（"LDAP://rootDSE"） strDomain = ObjRootDSE.Get（"defaultNamingContext"） Set objConnection = CreateObject（"ADODB.Connection"） Set objCommand = CreateOb...

用vbs读取index.dat内容的实现代码

2017年02月06日 137 阅读

复制代码 代码如下:" +----------------------------------------------------------------------------+ " | Contact Info | " +----------------------------------------------------------------------------+ " Author: Vengy " modiy:lcx " Email : c...

用来分割文本的vbs脚本

2017年02月06日 137 阅读

复制代码 代码如下: On Error Resume Next "Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 Then Wscript.Quit Set Fso = CreateObject（"Scripting.FileSystemObject"） Set Conn = CreateObject（"ADODB.Connection"） Set Rs = CreateObject（"A...

用vbs分割与合并文本文件的代码

2017年02月06日 156 阅读

然而想到其他地方再次下载时发现一次性导入几万个地址非常缓慢，所以有必要把它分割了：（在这个txt文件中，一个地址占一行） url_split.vbs文件内容： 复制代码 代码如下: Set fs =CreateObject（"scripting.filesystemobject"） Set gs =CreateObject（"scripting.filesystemobject"） Set f=fs.opentextfile（"url.txt",1,tru...

文本文件分割脚本（VBS）

2017年02月06日 184 阅读

而Windows下没有一个现存的比较好用的分割工具，所以我用VBS做了一个文本文件的分割工具，和各位网友共享。脚本代码如下： 复制代码 代码如下: Option Explicit "这个脚本只用来分割文本文件，脚本需要3个参数 "参数列表 "文件名 参数1 参数2 "梦想工作室 www.mx111.com "示例 参数1 参数2 参数意义 " S 5 等分为5个文件 " E 1024 按照1024的大小分割文件 " F 1024 取最前面的1024字节存为...

iPod文本分割器（VBS版）

2017年02月06日 144 阅读

因此暑假闲暇编写了这个简短精悍的脚本版的分割器。脚本版的最大的好处可以由使用者进行DIY。 具体情况就不多说了，关于txt编码的问题可以参考，iPod文本分割器 这里仅仅说明使用方法，将您需要分割的Txt文件直接拖放发到本脚本上就ok了。 以下是脚本代码，直接复制后保存为vbs文件就可以了！ Good Luck ！ 复制代码 代码如下: "-----------------------------------------------------------...

VBS.Runauto脚本病毒分析篇

2017年02月06日 174 阅读

最近一位同事的笔记本遭遇了这个病毒，正好这学期在给计算机专业的同学们上VBscript于是顺便分析了一下。 首先从染病毒的计算机上提取下来病毒样本，由于是临时发现的，也没有特别准备，就用winrar压缩后保存。 在实验机器上打开病毒样本的压缩文件，我的Symantec 11立即报警，并把病毒删除了。所以必须禁用杀毒软件或者设置一个“例外区域”用于分析病毒，于是在桌面上新建了“evA”文件夹，并将之设置为防病毒例外文件夹，这下病毒样本安静的躺在里面了。 脚本...

获取主机名的vbs（cmdlib.wsc）

2017年02月06日 128 阅读

复制代码 代码如下: strComputer = "." Set objCmdLib = CreateObject（"Microsoft.CmdLib"） Set objCmdLib.ScriptingHost = WScript.Application Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） WScript.Echo objCmdLib.getHost...

vbs字符串操作小考题

2017年02月06日 138 阅读

str="a|b|c|d" 要求写一段小程序得出： a|b|c|d b|c|d|a c|d|a|b d|a|b|c 这样的结果，str长度未定，格式是上边的格式。 实现代码如下: 复制代码 代码如下: str="a|b|c|d" Call Sort（str, "|"） Function Sort（sSource, sDelimiter） Dim I, J, N, sItems, sTemp sItems = Split（sSource, sDelimite...