人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

どんな作業をしていても一定時間がたつと強制的に、
特定のフォルダの中にある画像がパソコンに表示させる
(アクティブにさせる)ソフトを探しています。

機能的にはGoogleデスクトップのサイドバーで
ローテーションする画像で十分なのですが、
今使っているパソコンの画面が小さすぎて、
サイドバーを使うのに適していません。
画像は複数あって、それが順番に表示される物をお願いします。

なお、そのような方法が存在しない場合、
「そんな方法はない」というご回答はご遠慮ください。

以上、よろしくお願いします。



●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:Googleデスクトップ うご アクティブ サイドバー ソフト
○ 状態 :終了
└ 回答数 : 2/3件

▽最新の回答へ

1 ● paraizo
●25ポイント

EcoTimer

http://www.vector.co.jp/soft/dl/win95/personal/se422877.html

画像も順番に表示しているようです

外部プログラム起動可能ですので

順番もいじれると思います

◎質問者からの返答

ご回答ありがとうございます。


良いソフトだと思いました。

ただフォルダ内の写真ファイルを順番に

表示させる手段がわかりません。


これを使って僕の望みを実現させる具体的な手順か

他のソフトを紹介してください。


2 ● ween
●60ポイント

VBscriptの勉強のつもりで書いてみました。拡張子はvbsです。

IE6を使ってます。IE7の場合は一箇所変えればできるかもしれませんが確認できてません。

初回の起動で画像フォルダのパス、表示間隔、繰り返す回数を入力してください。

同じディレクトリにpic.txtというファイルができるので、

手間ですが、順番は4行目以降のファイル名をメモ帳などで並び替えてください。

ウィンドウの大きさ、位置なども調整してください。

2回目の起動で表示させていきます。

http://q.hatena.ne.jp/answer

option explicit
dim objfso, objwrite, objpn
dim dpath, ppath, x, s_time, picdir, i, a, picpath, pn, lp, xlp

set objfso = createobject("scripting.filesystemobject")
 if objfso.fileexists("pic.txt") then
 x = split(objfso.opentextfile("pic.txt").readall, vbnewline)
 s_time = x(0)
 xlp = x(1)
 picdir = x(2)
 for a = 0 to xlp
 for i = 3 to ubound(x)
 if x(i) = "" then exit for
 wscript.sleep 60000 * s_time
 picpath = objfso.buildpath(picdir, x(i))
 picload()
 next
 next
 else
 picdir = inputbox("画像のディレクトリを入力してください")
 if isempty(picdir) then wscript.quit
 s_time = inputbox("読み込む間隔を入力してください") '分指定です。例)3分の場合は3、30秒の場合は0.5
 if isempty(s_time) then wscript.quit
 lp = inputbox("繰り返す回数を入力してください") 'ループする回数です。繰り返さない場合は0
 if isempty(lp) then wscript.quit
 set objwrite = objfso.createtextfile("pic.txt", 8)
 objwrite.write(s_time & vbcrlf & lp & vbcrlf & picdir & vbcrlf)
 set objpn = objfso.getfolder(picdir).files
 for each pn in objpn
 objwrite.write(pn.name & vbcrlf)
 next
 objwrite.close
 end if
 
set objwrite = nothing
set objpn = nothing

sub picload()
 dim objie
 set objie = createobject("internetexplorer.application")
 objie.visible = true
 
 objie.width = 300 'ウィンドウの幅
 objie.height = 300 'ウィンドウの高さ
 
 objie.left = 0 'ウィンドウのx座標
 objie.top = 0 'ウィンドウのy座標
 
 objie.statusbar = false
 objie.addressbar = false
 objie.toolbar = false
 
 objie.navigate picpath 'IE7の場合、navigate2にするようですが確認できません。
 set objie = nothing
end sub

◎質問者からの返答

ご回答ありがとうございます。

大変勉強になりました。

僕もこういうの自分で作れるようになれたら、

いろんな問題が自力で解決するんですけどね。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ