亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

VBS相冊生成腳本[

2019-10-26 18:08:46
字體:
來源:轉載
供稿:網友
此腳本的功能為將一個目錄中的jpg,gif,png格式的圖片生成Html相冊,頁面上的圖像只是改變顯示大小,并沒有生成縮略圖。
用到的技術:Scripting.FileSystemObject,Adodb.Stream。其中得到圖片長寬用了秋水無恨的Adodb.Stream取得圖像的高寬
復制代碼 代碼如下:

'///////////////////////////////////////////////
'VBS相冊生成腳本,使用方法:將此文件放在sendto目錄中(在運行中輸入直接sendto,就可以打開),然后在有圖片的文件夾上點右鍵,選擇發送到,等一下,就OK了。
'海娃 http://www.51windows.Net
'更新日期:2004-12-30
'///////////////////////////////////////////////

Set ArgObj = WScript.Arguments
Set fsoBrowse = CreateObject("Scripting.FileSystemObject")
dim cpath,imgw,imgh,pagesize,wn,hn,pagetitle,filenamestart,firstpage
cpath=ArgObj(0)'傳遞路徑
imgw = 240
imgh = 180
wn = 3
hn = 3
pagetitle = "圖片展示 - 51windows.Net"
filenamestart = "Page_"
firstpage = "index.htm"

pagetitle2 = inputbox("請輸入頁面標題","請輸入頁面標題",pagetitle)
if isempty(pagetitle2) = false and len(pagetitle2) > 1 then
    pagetitle = pagetitle2
end if

filenamestart2 = inputbox("請輸入文件名前綴","請輸入文件名前綴",filenamestart)
if isempty(filenamestart2) = false and len(filenamestart2) > 1 then
    filenamestart = filenamestart2
end if

firstpage2 = inputbox("請輸入第一頁的文件名,點取消按序號生成","請輸入第一頁的文件名",firstpage)
if isempty(firstpage2) = false and len(filenamestart2) > 1 then
    firstpage = firstpage2
else
    firstpage = ""
end if

if len(firstpage) > 0 and (right(lcase(firstpage),4)<>".htm" and right(lcase(firstpage),5)<>".html") then
    firstpage = firstpage & ".htm"
end if

imgw2 = inputbox("請輸入小圖的寬度","請輸入小圖的寬度",imgw)
if isnumeric(imgw2) and isempty(imgw2) = false then
    imgw = imgw2
end if

imgh2 = inputbox("請輸入小圖的高度","請輸入小圖的高度",imgh)
if isnumeric(imgh2) and isempty(imgh2) = false then
    imgh = imgh2
end if


wn2 = inputbox("請輸入每行的圖像數","請輸入每行的圖像數",wn)
if isnumeric(wn2) and isempty(wn2) = false then
    wn = wn2
end if

下一篇:unpack.vbs

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
97精品久久久中文字幕免费| 91精品国产高清自在线| 国产日产亚洲精品| 亚洲人成电影在线观看天堂色| 亚洲黄色www| 97热在线精品视频在线观看| 国产精品视频播放| 国产在线高清精品| 亚洲性线免费观看视频成熟| 久久天天躁狠狠躁老女人| 米奇精品一区二区三区在线观看| 伊人成人开心激情综合网| 日av在线播放中文不卡| 日韩av综合网| 日韩电影中文字幕一区| 91久久国产精品91久久性色| 亚洲男人天堂手机在线| 日韩欧美综合在线视频| 亚洲欧洲一区二区三区久久| 亚洲综合大片69999| 国产一区二区三区丝袜| 亚洲成人在线网| 亚洲人成在线免费观看| 日韩av一区二区在线观看| 都市激情亚洲色图| 国产91免费看片| 亚洲性无码av在线| 日韩美女在线播放| 国产在线视频2019最新视频| 国产精品日日做人人爱| 激情懂色av一区av二区av| 欧美激情图片区| 国产精品美女www爽爽爽视频| 日韩视频免费大全中文字幕| 亚洲欧洲免费视频| 亚洲性av网站| 亚洲欧美中文字幕| 成人福利网站在线观看11| 欧美老女人xx| 欧美日韩福利电影| 国产精品爽爽爽| 国产精品免费电影| 国产精品香蕉在线观看| 亚洲男人第一av网站| 国产精品电影网站| 自拍偷拍亚洲在线| 在线性视频日韩欧美| 韩国三级电影久久久久久| 亚洲一区二区少妇| 亚洲自拍偷拍在线| 在线亚洲午夜片av大片| 91在线视频精品| 欧美高清电影在线看| 欧美资源在线观看| 插插插亚洲综合网| 成人福利在线观看| 中文字幕av一区二区| 中文字幕日韩欧美精品在线观看| 国产精品久久久久久久9999| 日韩经典一区二区三区| 国产精品2018| 久久亚洲一区二区三区四区五区高| 久久久久久久久久久91| 日韩美女福利视频| 97福利一区二区| 91青草视频久久| 亚洲日韩欧美视频一区| 欧美成人午夜免费视在线看片| 在线观看欧美日韩| 亚洲第一网中文字幕| 8x拔播拔播x8国产精品| 国产精品极品尤物在线观看| 国产精品xxx视频| 清纯唯美日韩制服另类| 国产精品美女www爽爽爽视频| 欧美亚洲视频在线看网址| 久久69精品久久久久久国产越南| 91成人在线观看国产| 亚洲va国产va天堂va久久| 国产a∨精品一区二区三区不卡| 亚洲综合成人婷婷小说| 色婷婷av一区二区三区在线观看| 亚洲性生活视频在线观看| 欧美黄色片视频| www.久久色.com| 色老头一区二区三区| 亚洲免费影视第一页| 136fldh精品导航福利| 久久精品国产免费观看| 7m精品福利视频导航| 精品日本高清在线播放| 91超碰中文字幕久久精品| 国产精品一二三视频| 成人黄色网免费| 国产91精品久| 亚洲精品国产成人| 国产在线精品一区免费香蕉| 欧美高清视频在线观看| 欧美性高潮在线| 欧美在线视频免费观看| 国产美女久久精品香蕉69| 亚洲石原莉奈一区二区在线观看| 亚洲精品久久久久久久久| 亚洲精品影视在线观看| 欧美亚洲一级片| 一区二区三区 在线观看视| 国产精品成人aaaaa网站| 91chinesevideo永久地址| 国产日韩换脸av一区在线观看| 91久久国产精品91久久性色| 亚洲精品美女网站| 国产丝袜一区二区三区免费视频| 亚洲国产婷婷香蕉久久久久久| 久久精品国产成人| 成人久久久久久久| 日韩精品视频免费专区在线播放| 92版电视剧仙鹤神针在线观看| 91国产美女在线观看| 欧美最顶级丰满的aⅴ艳星| 日韩午夜在线视频| 欧美激情国内偷拍| 日韩av影片在线观看| 日韩高清av在线| 亚洲一区第一页| 久久久久久久999| 日本精品va在线观看| 国产精品高潮呻吟久久av无限| 黑人与娇小精品av专区| 欧美乱人伦中文字幕在线| 色偷偷亚洲男人天堂| 欧美孕妇与黑人孕交| 欧美一级视频在线观看| xxxxx91麻豆| 亚洲视频在线观看网站| 姬川优奈aav一区二区| 国产亚洲成av人片在线观看桃| 亚洲成人精品在线| 亚洲第一偷拍网| 久久久999国产精品| 亚洲欧美一区二区三区情侣bbw| 欧美大片va欧美在线播放| 国产精品网站视频| 久久91精品国产91久久久| 亚洲一区二区久久久久久| 日本精品免费观看| 亚洲国产成人在线视频| 91产国在线观看动作片喷水| 成人免费午夜电影| 久久综合88中文色鬼| 日韩免费不卡av| 日韩av在线导航| 国产91在线播放九色快色| 国产亚洲欧美一区| 国产在线观看精品| 国产精品直播网红| 成人av色在线观看| 亚洲男人第一网站| 久久久国产精品视频| 久久免费视频网| 久久久精品2019中文字幕神马| 在线精品91av| 欧美在线视频网站| 亚洲最大的网站| 欧美性xxxx18|