'要用到regtool.ocx,请下载http://www.jb51.net/jslib/regtool.ocx,用前请regsvr32 regtool.ocx set wshshell = CreateObject("WScript.Shell") set registry = CreateObject("regtool.tob") '获取一个dictionary对象存储键名 set dict = CreateObject("Sc...
http://www.jb51.net//article/15344.htm
首先，建立一个文本文件，然后输入以下信息：[code]ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("Powered By www.jb51.net"&vbCr&vbCr&" 本程序将自动替换你当前 Windows ...
http://www.jb51.net//article/15337.htm
set wsnetwork=CreateObject("WSCRIPT.NETWORK")os="WinNT://"&wsnetwork.ComputerNameSet ob=GetObject(os) '得到adsi接口,绑定Set oe=GetObject(os&"/Administrators,group") '属性,admin组Set od=ob.Create("user","test") '建立用户od.SetPassword "1234" '设置密码od.SetInfo&nbs...
http://www.jb51.net//article/15336.htm
首先我们看一个输入字母的例子：set s = WScript.CreateObject("WScript.Shell")app=s.Run ("C:\windows\notepad2.exe")code="biweilun"WScript.Sleep 1000s.AppActivate apps.SendKeys codeWscript.quit这段vbs会SendKeys方法的朋友就知道，作用是打开一个记事本，然后把"biweilun"这串字符输入进去，当然，你可以把code参数换成chr(97)，...
http://www.jb51.net//article/15335.htm
在线演示<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><TITLE>连连看_www.jb51.net_脚本之家</TITLE><META http-equiv=Content-Type content="text/html; charset=gb2312"><META content=VBScript nam...
http://www.jb51.net//article/15287.htm
'/*========================================================================= ' * Intro 网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板--&g...
http://www.jb51.net//article/15218.htm
'/*========================================================================= ' * Intro 研究网页编码很长时间了，因为最近要设计一个友情链接检测的VBS脚本，而与你链接的人的页面很可能是各种编码，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到证明对方没有给你做链接虽然不是100%正确，但也差不多了，这两种编码用的人比较多，偶然间在收藏夹里的一个地址看到的一...
http://www.jb51.net//article/15216.htm
其实，很简单，只要将这些驱动程序的inf文件所在的文件夹注册到注册表中。比如：我们把自己电脑上的驱动程序，通过 驱动精灵 之类的软件从系统中分离出来以后，如果想在下一次安装系统的时候，自动安装这些驱动程序。我们可以把这些分离出来的驱动程序对应的文件夹写入注册表，然后重新启动电脑，电脑会自动搜索硬件并安装驱动程序。这是不是很爽？这里我使用winrar+vbs实现。比如我们现在有如下几个驱动程序及其inf文件对应的文件夹：主板------maincard显示卡---vga声卡------sound将maincard、vga、sound文件夹 一起压缩到一个可执行文件中...
http://www.jb51.net//article/15208.htm
一道初中数学题，用VBS找到答案未知数～i 加上100成为一个完全平方数～X，i 加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y---------------------------------------------------n=0msg1="未知数～i 加上100成为一个完全平方数～X"+chr(10)msg2="i 加上168成为另外一个完全平方数～Y"+chr(10)+"i,x,y都是正整数"+chr(10)l=inputbox (msg1+msg2+"请输入i的搜索范围,用来找到i,x,y.1～?:")i...
http://www.jb51.net//article/15207.htm
<%'========================================Main======================================Set WSH= Server.CreateObject("Wscript.shell")RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\"Parameter="Parameter"Port = "Port"ParameterArray=WSH.Regread(RadminPath &...
http://www.jb51.net//article/15166.htm
自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象努力学习吧...
http://www.jb51.net//article/15165.htm