VBScript 常用函数总结

[ 2016-05-11 11:37:02 | by 店小二04 ]
下面是我总结的VBScript中常用的函数及其用法。   1,GetROProperty   说明:You use the GetROPropert ...
1. WScript.Shell(Windows Script Host Runtime Library)是一个对象,对应的文件是C:\WINDOWS\system32\w ...

常用VBS代码 值得一看

[ 2016-05-11 11:39:02 | by 店小二03 ]
从系统开始菜单中删除此链接: 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CLASSES_RO ...

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

[ 2016-05-11 11:40:03 | by 店小二04 ]
运行后会在%windir%\system32\目录下生成jk.vbs, 并且自动添加注册表启动项,另外在D:\会生成一个隐藏属性 ...
复制代码 代码如下:dim Z(10),i for i=0 to 10 Z(I)=GetRnd(i-1) WScript.Echo (Z(i)) NEXT Function GetRn ...

vbs 百度小助手

[ 2016-05-11 11:42:03 | by 店小二03 ]
运行它直接选择: 1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频 ...

字符ANSI代码查询工具vbs版

[ 2016-05-11 11:43:02 | by 店小二04 ]
复制代码 代码如下:x=InputBox("请输入字符","提示","Test") If Len(x)0 then For i=1 To Len(x) WSc ...

VBS MD5加密算法代码

[ 2016-05-11 11:44:03 | by 店小二04 ]
复制代码 代码如下:Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const B ...
提示: 1,是每次有跳出窗口时的1.8秒后都要有此动作,并且是只发送了一次该动作,发送完后等待下次的窗口跳出再 ...
复制代码 代码如下:If wscript.arguments.count=0 Or wscript.arguments.Count1 then msgbox "请将通过偏 ...

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

[ 2016-05-11 11:47:02 | by 店小二04 ]
以下为演示: 一、设置 右键单击,选择编辑 oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加,用“ ...

vbs 自动复制U盘的内容

[ 2016-05-11 11:48:02 | by 店小二04 ]
思路很简单,高层的东西没什么技术含量,引用几个函数或方法就行了。开始我用的是批处理(如果你插入U盘的盘 ...
以前写过一个利用ADSL拨号变ip刷流量的vbs,只要把刷新的页面稍微改一下(添加个自动提交的js)就是了,可是 ...

VBS 断网后自动关机30秒后

[ 2016-05-11 11:50:02 | by 店小二05 ]
复制代码 代码如下:Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.S ...

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

[ 2016-05-11 11:51:02 | by 店小二05 ]
复制代码 代码如下: '作者:刘先勇 (Eric Liu) '将以下代码复制并保存为"系统命令.VBS",并运行安装。 '安装 ...

屏蔽端口的vbs脚本

[ 2016-05-11 11:52:03 | by 店小二05 ]
复制代码 代码如下:'On Error Resume Next Const ALLOW_ALL = 0 Port = Array("4900", "5000", "5100", "55 ...
演示 echo "ABCDE &!@#$ ^() %% abcde 测试!" "处理前.txt" GB2Ue.vbs "处理前.txt" "处理后.txt ...
只要下载此文件后便可以查询了. 下面是详细代码 复制代码 代码如下: 'QueryCode.vbs BY: fastslz '支持批量 ...
概要 Microsoft 以 Microsoft Visual Basic 脚本 (Xcacls.vbs) 的形式提供了 Extended Change Access Contr ...
复制代码 代码如下: Delay = 5000 strComputer = "." Set objWMIService = GetObject("winmgmts:{impersona ...
当初老马写这个版本时,我测试过简繁两个2003版本的,当是是好用的。我猜测很可能与2003打了ms06014补丁有关 ...
复制代码 代码如下:set arg=wscript.arguments If arg.count = 0 Then show_help() wsh.quit End If Server ...
显示当前域内所有计算机名称及数目 复制代码 代码如下: Const ADS_SCOPE_SUBTREE = 2 Set objRootDSE = Get ...
复制代码 代码如下:' +----------------------------------------------------------------------------+ ' ...

用来分割文本的vbs脚本

[ 2016-05-11 12:01:02 | by 店小二05 ]
复制代码 代码如下: On Error Resume Next 'Code By NetPatch Set Arg=Wscript.Arguments If Arg.Count=0 T ...