PHOTOスライドショー(vbs)：遊ぶ大人の非常識 by きのこ組：SSブログ

	ブログをはじめるログイン

PHOTOスライドショー(vbs)　[スクリプト言語など] [編集]

スライドショーをしたいフォルダーを、このVBSファイルへ「ドラッグ&ドロップ」すると、C:/ のルートへ対象ファイルのパスを構築するデーターベースJS と HTM を作成します。

イメージ.gif

・・こんなのです。

VBSファイルの作り方は、例によって下のエリアのソースを「新規テキストファイル」へ丸ごとコピーし、「○○○.VBS」と名前を付けてください。

Dim fso,Shell,PH,Rot,b,objArgs,E,mf,HTM,OutF1,OutF2,OutF3,OutF4,Exf,iWORKPATH

Exf="jpg"          '対象ファイルの拡張子
 iWORKPATH = "C:/"  '作業ファイルのデレクトリ

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 Set Shell = WScript.CreateObject("Shell.Application")
 OutF1 = iWORKPATH & "imgDATA.JS" '初期値 : データーベースの作業スペース
 Set fso = CreateObject("Scripting.FileSystemObject")
 if(fso.FileExists(OutF1)) then
    Set mf = fso.GetFile(OutF1)
        mf.Delete()
  end if

Set objArgs = WScript.Arguments
     For i = 0 to objArgs.Count - 1
         PH = objArgs(i)

Set objF = Shell.NameSpace(PH)
 Set objFI = objF.Items()
 'for(var i = 0; i < objFI.Count; i++) ofitem = objFI.Item(i)
  
 Search objFI.Item

w=Chr(34)
 OutF2 = iWORKPATH & "SlideShot.htm" '基本ウインドの作業スペース
 if(fso.FileExists(OutF2)) then
    Set mf = fso.GetFile(OutF2)
        mf.Delete()
  end if

Set tex = fso.OpenTextFile(OutF2, 8, True)
     tex.WriteLine("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>")
     tex.WriteLine("<META http-equiv=Content-Type content='text/html; charset=shift_jis'>")
     tex.WriteLine("<html><head><title>SlideShow_By_Guppy</title></head>")
     'tex.WriteLine("<link rel='stylesheet' href='./style.css' type='text/css'>")
     tex.WriteLine("")
     tex.WriteLine("<style type='text/css'>")
     tex.WriteLine("#B0,#B1,#B2,#B3 { background-color:#BFBFFF;")
     tex.WriteLine(" border-top-color:#ffffff; border-bottom-color:#ffffff; border-left-color:#ffffff;border-right-color:#ffffff; ")
     tex.WriteLine(" border-top-width:1; border-bottom-width:1; border-left-width:1; border-right-width:1; ")
     tex.WriteLine(" font size:14px; font-weight:600; color:000fff; height:24; letter-spacing:1.0px; } ")
     tex.WriteLine("#B0 { position:relative; left:4; width:35;  } ")
     tex.WriteLine("#B1 { position:relative; left:0; width:35;  } ")
     tex.WriteLine("#B2 { position:relative; left:-4; width:35; } ")
     tex.WriteLine("#ex1 { border-top-style:dotted; border-bottom-style:dotted; border-left-style:dotted; border-right-style:dotted; ")
     tex.WriteLine("       border-top-color:#ff0000; border-bottom-color:#ff0000; border-left-color:#ff0000;border-right-color:#ff0000; height:70; } ")
     tex.WriteLine("#se0,#se1,#se2 { width:89; } ")
     tex.WriteLine("#cui,#cuii { width:40; background-color:#000000; color:#ffffff; font-size:13; font-weight:600; letter-spacing:0.9px; text-align:center; } ")
     'tex.WriteLine("#Feat { background-color:#dddddd; width:345; position:relative; bottom:1; left:0; } ")
     tex.WriteLine("#Foy { position:relative; left:8; top:0; z-index:2;  } ")
     tex.WriteLine("a { color:#ffffff; }")
     tex.WriteLine("")
     tex.WriteLine("</style>")
     tex.WriteLine("<Script language='JavaScript'>")
     tex.WriteLine("status='☆彡 ENTERキー でスライドショーがスタートします。!';")
     tex.WriteLine("function kDown()")
     tex.WriteLine("{ if(event.keyCode==13) { VBS(); Select(); }// インスタンスリード [ENTERキー]")
     tex.WriteLine("  if(event.keyCode==96) PAUSE(t=300000);    // スタート           [INSキー:0]")
     tex.WriteLine("  if(event.keyCode==110) Select2();         // アイコン表示       [・Delキー]")
     tex.WriteLine("  if(event.keyCode==17) pull('ex1');        // コントローラーの表示/非表示 [コントロールキー]")
     tex.WriteLine("　if(event.keyCode==37) FR();               // キュー             [ ← キー ]")
     tex.WriteLine("  if(event.keyCode==39) FF();               // レビュー           [ → キー ]")
     tex.WriteLine("  if(event.keyCode==9) return false; }      // Tab off")
     tex.WriteLine("  document.onkeydown = kDown;")
     tex.WriteLine("types = 'none';")
     tex.WriteLine("function pull(Nam)")
     tex.WriteLine("{ if(types == 'none') types = 'block'; else types = 'none';")
     tex.WriteLine("  if(document.all) document.all(Nam).style.display = types; }")
     tex.WriteLine("function Select()")
     tex.WriteLine("{  d = document.forms[0].elements[6].selectedIndex;")
     tex.WriteLine("  ad = document.forms[0].elements[6].options[d].value;")
     tex.WriteLine("  Select1(); timerX(t=ad); }")
     tex.WriteLine("function Select1()")
     tex.WriteLine("{ xdx = document.forms[0].elements[1].selectedIndex;")
     tex.WriteLine(" myW = document.forms[0].elements[1].options[xdx].value;")
     tex.WriteLine(" if(myW == '0') WIDTHIMG = ''; else WIDTHIMG = 'width = ' + myW;")
     tex.WriteLine("  if(myW == '1.00') WIDTHIMG = 'height=100%';")
     tex.WriteLine("  Sele1.innerHTML = '<img src=clear.gif align=absmiddle name=myI border=0 '+WIDTHIMG+'>'; }")
     tex.WriteLine("function Select2()")
     tex.WriteLine("{ Sele1.innerHTML = '<img src=clear.gif align=absmiddle name=myI border=0 width=32>'; }")
     tex.WriteLine("function Col(form,sel)")
     tex.WriteLine("{  d = sel.selectedIndex;")
     tex.WriteLine("  color = sel.options[d].value;")
     tex.WriteLine("  document.bgColor = color; }")
     tex.WriteLine("function winSIZE(form,sel)")
     tex.WriteLine("{ d = sel.selectedIndex;")
     tex.WriteLine("  if(d==0) { w=0.55; h=0.55; hx=50; }")
     tex.WriteLine("  if(d==1) { w=0.40; h=0.40; hx=50; }")
     tex.WriteLine("  if(d==2) { w=0.75; h=0.75; hx=50; }")
     tex.WriteLine("  if(d==3) { w=1.00; h=1.00; hx=0; }")
     tex.WriteLine("  if(d==4) { w=1.00; h=1.00; hx=0; }")
     tex.WriteLine("  if(d==5) { window.open(" & w & iWORKPATH & "help.txt" & w & ",'','width=600,height=400,scrollbars=yes,resizable=yes'); return false; }")
     tex.WriteLine("  wid = screen.availWidth*w;")
     tex.WriteLine("  hei = screen.availHeight*h+hx;")
     tex.WriteLine("  tp=(screen.availWidth-wid)/2;")
     tex.WriteLine("  lf=(screen.availHeight-hei)/2;")
     tex.WriteLine("  self.window.moveTo(tp,lf);")
     tex.WriteLine("  self.window.resizeTo(wid,hei); ")
     tex.WriteLine("  if(d==4) { self.window.moveTo(tp-4,lf-23);")
     tex.WriteLine("             self.window.resizeTo(wid+9,hei+48); } }")
     tex.WriteLine("timerID=0; count=0; t=800; func='timerX()'; jsDB=new Array();")
     tex.WriteLine("function timerX()")
     tex.WriteLine("{ wsz = document.F2.No.value-1;")
     tex.WriteLine("  if(wsz == 0) return; else {")
     tex.WriteLine("  clearTimeout(timerID);")
     tex.WriteLine("  timerID = setTimeout(func,t);")
     tex.WriteLine("  c = count++;")
     tex.WriteLine("  if(wsz < c) { c = c % (wsz+1); }")
     tex.WriteLine("  if(c < 0) { c = wsz-(Math.abs(c) % (wsz+1)); }")
     tex.WriteLine("  s = jsDB[c]; ky(wsz,c,count,s); } }")
     tex.WriteLine("function PAUSE()")
     tex.WriteLine("{ wsz = document.F2.No.value-1;")
     tex.WriteLine("  if(wsz == 0) return; else {")
     tex.WriteLine("  clearTimeout(timerID);")
     tex.WriteLine("  timerID = setTimeout(func,t);")
     tex.WriteLine("  if(t==300001) sss='-1';")
     tex.WriteLine("  if(t==300000) sss='+1';")
     tex.WriteLine("  c = count+(sss); }}")
     tex.WriteLine("function FF()")
     tex.WriteLine("{ c = count++;")
     tex.WriteLine("  if(wsz < c) { c = c % (wsz+1); }")
     tex.WriteLine("  if(c < 0) { count=0; return false; }")
     tex.WriteLine("  s = jsDB[c]; ky(wsz,c,count,s); }")
     tex.WriteLine("function FR()")
     tex.WriteLine("{ wsz = document.F2.No.value-1;")
     tex.WriteLine("  c = -2+count--;")
     tex.WriteLine("  if(wsz < c) { c = c % (wsz+1); }")
     tex.WriteLine("  if(c < 0) { count=0; return false; }")
     tex.WriteLine("  s = jsDB[c]; ky(wsz,c,count,s); }")
     tex.WriteLine("function ky(wsz,c,count,s)")
     tex.WriteLine("{ status = (count-1);")
     tex.WriteLine("  document.images.myI.src = s;")
     tex.WriteLine("  kur = parseInt((340/(wsz))*c);")
     tex.WriteLine("  imgflder = s.slice(0,(s.lastIndexOf('/',s.lenth)));")
     tex.WriteLine("  ct='0'+'0'+'0'+'0'+'0'+c;")
     tex.WriteLine("  c = ct.substring(ct.length-5,ct.length);")
     tex.WriteLine("  wt='0'+'0'+'0'+'0'+'0'+wsz;")
     tex.WriteLine("  wsz = wt.substring(wt.length-5,wt.length);")
     tex.WriteLine("  cui.innerHTML = c;")
     tex.WriteLine("  cuii.innerHTML = wsz;")
     'tex.WriteLine("  Foy.innerHTML = '<a href='+imgflder+' title='+imgflder+' target=_blank><img src=foy.gif border=0 width=17></a>'; ")
     tex.WriteLine("  Foy.innerHTML = '<a href="+w+"'+imgflder+'"+w+" target=_blank>'+ s +'</a>'; ")
     tex.WriteLine("  /*Feat.innerHTML = '<img src=bar.bmp border=0 height=15 width=' + kur + ' name=Bav>';*/ }")
     tex.WriteLine("function imgCek()")
     tex.WriteLine("{ wsz = document.F2.No.value-1;")
     tex.WriteLine("  wt='0'+'0'+'0'+'0'+'0'+wsz;")
     tex.WriteLine("  wsz = wt.substring(wt.length-5,wt.length);")
     tex.WriteLine("    cuii.innerHTML = wsz; }")
     tex.WriteLine("</Script>")
     tex.WriteLine("<body bgcolor='#404040' topmargin='0' leftmargin='0' scroll='no'>")
     tex.WriteLine("<a onClick=pull('ex1')>")
     tex.WriteLine("<img src='clear.gif' border='0' height='16' width='16' style='position:absolute; top:1; Right:1; z-index:3;'></a>")
     tex.WriteLine("<div id='ex1' style='position:absolute; display:none; Right:18; top:2; Z-index:1;'>")
     tex.WriteLine("<form><table><tr><td align='center' style='position:relative; top:3;'>")
     tex.WriteLine("<div id='t1'><nobr>")
     tex.WriteLine("<select size='1' onchange='Col(this.form, this)' id='se0'>")
     tex.WriteLine("    <option value='#000000' style='color:#ffffff; background-color:#000000;'>= COIOR =</option>")
     tex.WriteLine("    <option value='#ffffff' style='color:#ffffff;'>●●●●●</option>")
     tex.WriteLine("    <option value='#004d60' style='color:#004D60;'>●●●●●</option>")
     tex.WriteLine("    <option value='#404040' style='color:#404040;'>●●●●●</option>")
     tex.WriteLine("    <option value='#b8b8b8' style='color:#b8b8b8;'>●●●●●</option></select>")
     tex.WriteLine("<select size='1' onchange='Select1(this.form, this)' id='se1'>")
     tex.WriteLine("    <option value='0' selected>IMG サイズ</option>")
     tex.WriteLine("    <option value='64'>アイコン</option>")
     tex.WriteLine("    <option value='360'>サムネイル</option>")
     tex.WriteLine("    <option value='720'>ビデオ</option>")
     tex.WriteLine("    <option value='100%'>面幅 100%</option>")
     tex.WriteLine("    <option value='1.00'>面高 100%</option></select>")
     tex.WriteLine("<select size='1' onchange='winSIZE(this.form, this)' id='se2'>")
     tex.WriteLine("    <option>スクリーン</option>")
     tex.WriteLine("    <option>最小</option>")
     tex.WriteLine("    <option>標準</option>")
     tex.WriteLine("    <option>最大化</option>")
     tex.WriteLine("    <option>フルスクリーン</option></select></nobr></td></tr>")
     tex.WriteLine("<tr><td align='center' style='position:absolute; Right:1; top:32;'><nobr>")
     tex.WriteLine("<input type='button' value='<<' id='B0' onclick='FR()'>")
     tex.WriteLine("<input type='button' value='○' id='B1' onClick='PAUSE(t=500000)'>")
     tex.WriteLine("<input type='button' value='>>' id='B2' onclick='FF()'>")
     tex.WriteLine("<select size='1' style='position:relative; left:4; top:-4; width:53;'>")
     tex.WriteLine("    <option value='60000'>SPEED</option>")
     tex.WriteLine("    <option value='200'>+0.2</option>")
     tex.WriteLine("    <option value='400'>+0.4</option>")
     tex.WriteLine("    <option value='600'>+0.6</option>")
     tex.WriteLine("    <option value='800'>+0.8</option>")
     tex.WriteLine("    <option value='1000'>+1.0</option>")
     tex.WriteLine("    <option value='1500' selected>+1.5</option>")
     tex.WriteLine("    <option value='2000'>+2.0</option>")
     tex.WriteLine("    <option value='3000'>+3.0</option>")
     tex.WriteLine("    <option value='5000'>+5.0</option></select>")

tex.WriteLine("<input type='button' value='START' id='B3' onclick="&w&"VBS(),Select(),window['ex1'].style.display='none'"&w&">")
     'tex.WriteLine("<td ID='Foy' style='position:relative; left:2; top:10; z-index:2;'><a href='./' target='_blank'><img src='foy.gif' border='0' width='17'></a></td>")
     tex.WriteLine("</nobr></div></td></tr></table></form></div>")
     tex.WriteLine("<table style='position:absolute; left:0; top:0;' width='100%' height='100%'><tr><td align='center' ID='Sele1'><script>")
     tex.WriteLine("  xdx = document.forms[0].elements[2].selectedIndex;")
     tex.WriteLine("  myW = document.forms[0].elements[2].options[xdx].value;")
     tex.WriteLine("  if(myW == '') WIDTHIMG = '';")
     tex.WriteLine("  else WIDTHIMG = 'width = ' + myW;")
     tex.WriteLine("  document.write('<img src=rogo.gif align=absmiddle name=myI border=0 '+WIDTHIMG+'>');")
     tex.WriteLine("</script></td></tr></table>")
     tex.WriteLine("<table border='0' cellpadding='0' cellspacing='0' style='position:absolute; left:15; bottom:2;'>")
     tex.WriteLine("<tr>")
     tex.WriteLine("<td ID='cui' style='width:46'>00000</td>")
     tex.WriteLine("<td> / </td>")
     tex.WriteLine("<td ID='cuii' style='width:46'>00000</td>")
     tex.WriteLine("<td ID='Foy'>FolderPath</td>")
     tex.WriteLine("</tr></table>")
     tex.WriteLine("<Script Language='JavaScript' SRC='./imgDATA.JS'></Script>")
     tex.WriteLine("<div style='position;absolute; display:none;'>")
     tex.WriteLine("<form name='F2'>")
     tex.WriteLine("<input type='text' name='No'><input type='text' name='start'><input type='text' name='stop'></form></div>")
     tex.WriteLine("<Script language='VBScript'>")
     tex.WriteLine("Function VBS()")
     tex.WriteLine(" Dim OutFile,fso,tx,GetLine,ra,Fox,No,F2")
     tex.WriteLine("     OutFile=" & w & iWORKPATH & "imgDATA.JS" & w)
     tex.WriteLine(" Set fso = CreateObject("&w&"Scripting.FileSystemObject"&w&")")
     tex.WriteLine(" Const ForReading=1, ForWriting=2, ForAppending=8")
     tex.WriteLine(" Set tx = fso.OpenTextFile(OutFile, 1)")
     tex.WriteLine("     ra =   tx.ReadAll")
     tex.WriteLine("     GetLine = Eval(tx.Line)-1")
     tex.WriteLine("     Set Fox = Document.F2")
     tex.WriteLine("         Fox.No.Value = GetLine")
     tex.WriteLine("     Call imgCek()")
     tex.WriteLine("     top.window.status = GetLine")
     tex.WriteLine("End Function")
     tex.WriteLine("</script>")
     tex.WriteLine("</body></html>")
     tex.Close()

Set ie= WScript.CreateObject("InternetExplorer.Application")
 ie.Navigate(OutF2)
 ie.AddressBar = false
 ie.MenuBar = false
 ie.ToolBar = false
 ie.StatusBar = true
 ie.Visible = true
 ie.Width=800
 ie.Height=600
 'msgbox ("No." & CStr(Err.Number) & " " & Err.Description) & vbCrLf & "★ 任務完了 ! "

Sub Search(OBJ)
 Dim fso,text,It,Chi,CHANGEPATH
 Set fso = CreateObject("Scripting.FileSystemObject")
     Const ForReading=1, ForWriting=2, ForAppending=8

if OBJ.IsFolder then
     Set It = OBJ.GetFolder.Items
	 For Each Chi In It             
             Set text = fso.OpenTextFile(OutF1, 8, True)
             if Chi.IsFolder then
                text.Close()
             else 
if fso.GetExtensionName(Lcase(Chi.Path)) = Exf then
                   CHANGEPATH = Rep("\\", "/",Chi.Path)
                   b=b+1
                   text.WriteLine("jsDB[" & b-1 & "]=" & Chr(34) & CHANGEPATH & Chr(34) & ";")            
                end if
                text.Close()
             end if
             Search Chi           
         Next
 end if
 End Sub

Function Rep(patrn,St,st1)
 Dim A,B,C
 Set A = New RegExp
     A.Pattern = patrn 
     A.IgnoreCase = True
     A.Global = True
 Set C = A.Execute(st1)
     For Each B in C 
         Rep = A.Replace(st1, St)
     Next
End Function

PHOTOの読み込みが終わると勝手にHTMLウィンドウが開きます。スライドショーの間隔は初期値1.5秒です。0.2秒～5秒まで変更可能です。キーと連動していて、矢印キーで強制的に進めたり戻したりもできます。数字の0キーで停止、数字のDelキーでアイコンサイズへ変更、数字のENTERキーで初期値で再開など、いろいろです。　右上の四角い部分をクリックするとコントローラーが表示/非表示になります。

ウインドウ下部のパスリンクをクリックすると、表示されているイメージのあるフォルダーが開きます。

9999枚まで可能です。スライドーショー時にウエイトの大きいなイメージを表示する場合、リード速度が著しく低下傾向となりますので、スライド速度を適当に下げてくださいませ。 _ ( _ ^ _ ; ) _

一応、XP-SP3 + IE6.0環境で動作確認済みですが、エラー対策などしていません。そんな関係で、取り扱いに関しては、責任負いかねますので、自己責任でお願い致します ^_^;

2008-06-21 01:46 nice!(3) コメント(1) トラックバック(0)
共通テーマ：パソコン・インターネット