どんな作業をしていても一定時間がたつと強制的に、

特定のフォルダの中にある画像がパソコンに表示させる
(アクティブにさせる)ソフトを探しています。

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

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

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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/10/18 02:56:15
  • 終了:2007/10/23 04:23:05

回答(3件)

id:paraizo No.1

paraizo回答回数139ベストアンサー獲得回数102007/10/18 04:46:58

ポイント25pt

EcoTimer

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

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

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

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

id:taroemon

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


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

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

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


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

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

2007/10/18 05:18:24
id:ween No.2

ween回答回数78ベストアンサー獲得回数72007/10/18 14:30:22

ポイント60pt

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

id:taroemon

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

大変勉強になりました。

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

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

2007/10/18 15:57:10

質問者が未読の回答一覧

 回答者回答受取ベストアンサー回答時間
1 karate_kid001 93 76 2 2007-10-19 23:26:37

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません