>>155
タスクスケジューラとvbスクリプトを組み合わせろ

以下を 155.vbs って名前で保存

Set objWS = WScript.CreateObject("WScript.Shell")
i = 10
title = "お願い"
while i > 0
t0 = time()
objWS.Popup "献金してください",i,title
i = i-second(time()-t0)
title = title & "ったらお願い"
wend