'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
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetDWORDValue H...
http://www.jb51.net//article/14930.htm
[code]msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务") 'msgbox join(msg,vbcrlf) For i = 0 To UBound(msg) MsgBox msg(i) Next [/...
http://www.jb51.net//article/14910.htm
[code]Set objHTML=CreateObject("htmlfile") 'xmlfile、mhtmlfile都可以ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")MsgBox ClipboardText[/code]...
http://www.jb51.net//article/14909.htm