'/*=========================================================================' * Intro 查看或修改Windows系列系统的序列号（包括：2000,xp,2003），支持命令行“GetChangeWindowsSN.vbs Windows系统序列号” 或 直接运行输入Windows系统序列号。' * FileName ...
http://www.jb51.net//article/14983.htm
js/vbs/vbscript加密代码：<body style="font:12px"><fieldset><legend align="center">源码变异处理 </legend><table><tr valign=top><td><br><button onclick=encJSHTM()> JS 网页加密 </button><br><button onclic...
http://www.jb51.net//article/14972.htm
VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可，Set wmi=GetObject("winmgmts:\\.")Set pro_s=wmi.instancesof("win32_process")For Each p In pro_s if p.name="iexplore.exe" then p.terminate()Next这所以要提取是因为：本人一般打开的网页都很多，关也要关半天，有了这个实在是太好了。 ...
http://www.jb51.net//article/14964.htm
'Dim QQUIN Set objWMIService = GetObject _ ("winmgmts:\\" & "." & "\root\cimv2") &...
http://www.jb51.net//article/14963.htm
' FileName: ProcessMagnifier.vbs ' Function: Capture information about the running processes in detail ' code by somebody ' QQ: 240460440 ' LastMod...
http://www.jb51.net//article/14961.htm
[html]<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; Charset=gb2312" /><title>ASP vbs 代码大小写规范-脚本之家</title></head><body><p align="center"> <textarea&n...
http://www.jb51.net//article/14958.htm
<script language ="vbs"> '函数名称：RegExpTest '参数： strng－－》要处理的字符串;patrn－－》以|隔开的各种结尾标志如：<br/>|</p>|<br>; patrn2－－》要替换成的字符串，也以|隔 开 '作者：柳永法(yongfa365)'Blog '功能：将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容 Function RegExpTest(s...
http://www.jb51.net//article/14955.htm
1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦.2.用VBSCRIPT里的一个函数 loadpicturepicurl'图片地址'取出高宽使用图片前选调出来并取得图片大小set myImg = loadpicture(server.mappath(picurl)) iWidth = round(myImg.width / 26.4583) iHeight = round(myImg.height&n...
http://www.jb51.net//article/14944.htm
<job id ="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合"><script language ="vbscript">databasename ="access.mdb"''数据库地址tablename ="blogarticle"''要处理的表名Set conn = CreateObject("ADODB.Connection")connstr ="provider=microsoft.jet.oledb.4.0;data sour...
http://www.jb51.net//article/14943.htm
'网上看到的，适用与没有禁用shell.application的服务器 server.scripttimeout = 99999 If request("submit")<>"" Then Call listfile(server.mappath("./")) response.Write"处理完毕" &n...
http://www.jb51.net//article/14932.htm
'/*========================================================================= ' * Intro 用XMLDOM分析QQ签名文档 ' * FileName QQ_QianMing.vbs ' * Author &...
http://www.jb51.net//article/14931.htm