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

模仿腾讯新闻页，给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@@@/small/789.gif@@@标题三

格式解释如下：

0代表第0页出现图片点播；

http://www.website.org/uploadfile/123.jpg是第一幅原图地址。/small/123.gif是第一幅缩略图地址，原图和缩略图名字一样，后缀不一样，原图是jpg，缩略图是gif。标题一是第一幅图片的说明文字；

第二幅、第三幅图片格式和第一幅图一样；

###、@@@、***为相应的分隔符。

-------------------------------------------------分割线--------------------------------------------------------

开始我是用手工来写这些图片格式，发现效率很低，一下午只发布了两篇新闻，就编写了相应的vbs脚本。

脚本一：采集新闻图片，并生成相应的图片格式代码

directory = "原始图"
directory = createobject("scripting.filesystemobject").getfolder(".").path & "\" & directory & "\"

call deletefiles(directory)

strurl = inputbox("请输入网址：")
if strurl <> "" then
     call getimages(strurl)
end if

function getimages(strurl)
     set ie = wscript.createobject("internetexplorer.application")
     ie.visible = true
     ie.navigate strurl
     do
          wscript.sleep 500
     loop until ie.readystate=4
     set objimgs = ie.document.getelementbyid("fontzoom").getelementsbytagname("img")

     strtitles = inputbox("请输入图片配字：")
     arrtitles = split(strtitles, " ")
     strcode = "0###"

     for i=0 to objimgs.length - 1
          if i>0 then strcode = strcode + "***"
          smallpic = replace(mid(objimgs(i).src, instrrev(objimgs(i).src, "/")+1), "jpg", "gif")
          strcode = strcode + objimgs(i).src + "@@@/small/" + smallpic + "@@@" + arrtitles(i)
          saveremotefile objimgs(i).src
     next
     ie.quit
     inputbox "请复制结果：", , strcode
end function

sub saveremotefile(remotefileurl)
     localfile =  directory & mid(remotefileurl, instrrev(remotefileurl, "/")+1)
     set xmlhttp = createobject("microsoft.xmlhttp")
     with xmlhttp
          .open "get", remotefileurl, false, "", ""
          .send
          getremotedata = .responsebody
     end with
     set xmlhttp = nothing
     set ads = createobject("adodb.stream")
     with ads
          .type = 1
          .open
          .write getremotedata
          .savetofile localfile, 2
          .cancel()
          .close()
     end with
     set ads=nothing
end sub

function deletefiles(strfolder)
     set objfso = createobject("scripting.filesystemobject")
     set objfolder = objfso.getfolder(strfolder)
     set objfiles = objfolder.files

     for each objfile in objfiles
          objfile.delete
     next

     set objfso = nothing
end function

脚本二：调用photoshop批量生成缩略图

directory = "原始图" '原始图像的文件夹
newdirectory = "缩略图" '保存缩小图的文件夹

const psdonotsavechanges = 2
const psextensiontype_pslowercase = 2
const psdisplaynodialogs = 3
const pslocalselective = 7
const psblackwhite = 2
const psnodither = 1

limitheight = 58 '最大高度
imgresolution = 72 '解析度

call deletefiles(newdirectory)
call convert2gif(directory)

function resizeimg(doc)
      rsheight = doc.height
      scale = 1.0
      if rsheight > limitheight then
            scale = limitheight / (doc.height + 0.0)
            rswidth = doc.width * scale
            rsheight = doc.height * scale
      end if
      doc.resizeimage rswidth, rsheight, imgresolution, 3
end function

function convert2gif(directory)
      set app = createobject( "photoshop.application" )
      app.bringtofront()
      app.preferences.rulerunits = 1 'pspixels
      app.displaydialogs = psdisplaynodialogs

      set gifopt = createobject("photoshop.gifsaveoptions")
      with gifopt
            .palette = pslocalselective
            .colors = 256
            .forced = psblackwhite
            .transparency = false
            .dither = psnodither
            .interlaced = false
      end with

      set fso = createobject("scripting.filesystemobject")
      if not fso.folderexists(directory) then      
            msgbox "photo directory not exists."
            exit function
      end if

      set objfiles = fso.getfolder(directory).files
      newdirectory = fso.getfolder(".").path & "\" & newdirectory & "\"
      for each objfile in objfiles
            if split(objfile.name, ".")(1) <> "db" then
                  set doc = app.open(objfile.path)
                  set app.activedocument = doc
                  resizeimg(doc)
                  doc.saveas newdirectory & split(objfile.name, ".")(0) & ".gif", gifopt, true, psextensiontype_pslowercase
                  call doc.close(psdonotsavechanges)
                  set doc = nothing
            end if
      next
      set app = nothing
end function

function deletefiles(strfolder)
      set objfso = createobject("scripting.filesystemobject")
      set objfolder = objfso.getfolder(strfolder)
      set objfiles = objfolder.files

      for each objfile in objfiles
            objfile.delete
      next

      set objfso = nothing
end function
比较了一下，gif缩略图体积最小，所以就gif缩略图。关于vbs调用photoshop，在photoshop的c:\program files\adobe\adobe photoshop cs4\scripting\documents目录下是说明文档，c:\program files\adobe\adobe photoshop cs4\scripting\sample scripts目录下是示例代码。如果要生成png缩略图，可以参考文档修改脚本相应的代码即可：

set pngopt = createobject("photoshop.pngsaveoptions")
with pngopt
      .interlaced = false
end with

开始打算是调用set jpeg = createobject("persits.jpeg")来生成缩略图，好处是不用加载庞大的photoshop，生成缩略图速度很快，但比起photoshop图片质量差了一些，就放弃了。

本来的打算是不保存原图，直接打开网路图片，然后直接生成缩略图到本地。虽然photoshop可以打开网络图片，但在脚本里调用photoshop打开网络图片就不行，只好先保存网络图片到本地，然后再生成缩略图。

其实photoshop自带了图片批处理功能：

窗口->动作->创建新动作->在ps中打开所有你想做的图片->选择其中一张图片，调整大小，另存为gif格式->关闭你已做好的图片->停止播放/记录。
文件->自动->批处理->“动作”栏中选你刚刚新创建的动作名称->点“源”下面的“选择”选择你想要处理照片的文件夹->“目标”下面“选择”另外一个你想保存缩略图的文件夹->确定。就ok了！

但比起程序来，显然程序要灵活的多，而且很多批处理效果只能靠程序实现，所以没有通过录制动作来生成缩略图。

生成相应的图片格式代码，也可以在地址栏输入以下js代码：

javascript:d=prompt("图片配字","");e=d.split(" ");a=document.getelementbyid("fontzoom");b=a.getelementsbytagname("img");c="0###";for(i=0;i<b.length;i++){if(i>0) c+="***";c=c+b[i].src+"@@@/small/"+b[i].src.substring(b[i].src.lastindexof("/")+1).replace("jpg","gif")+"@@@"+e[i];}window.prompt("复制",c);void(0);