大吉が欲しい！
- カテゴリ：占い
- 2011/12/19 23:14:31
ニコットおみくじ（2011-12-19の運勢）
今日の運勢は末吉でした。
最近、あまり良い運勢が出ません。
運気が落ちているのかしら。
他の占いを見ても、あまり良い運勢ではないし。
でもね～、折角ひくのですから、良い結果が欲しいですよね～。
何とかならないものかしら。
別に、ニコタじゃなくてもいいから…
ニコタでなくてもいいのなら、良い方法がありました！
Windowsには、こんな時のために(あるわけでは決してないけれど)、WSH(Windows Script Host)という機能があります。
これを使えば、大吉なんて思いのまま。
早速作ってみました。
このブログの一番下の方に書いてあるスクリプトがそれです。
使い方は至って簡単。
メモ帳を起動して、このコードを貼り付け、「おみくじ.vbs」とでも名付けて、デスクトップに保存するだけ。
後は、デスクトップに出来た、コブラが鎌首をもたげようなアイコンをクリックすれば、いつでも「今日の運勢は大吉です」と表示されます。
さあ、これであなたの運勢はいつでも大吉！
ステキな大吉ライフをお過ごしくださいませ！
さらに、スタートアップフォルダに登録しておけば、起動する度に大吉と表示されるので、気分良く作業が出来ます。
もしかしたら、非常に虚しい気分になるかもしれませんが、そこまでは面倒見切れません。
自己責任でお願いします。
なお、このメッセージは、5秒後に自動で閉じるようにしてありますので、いちいち閉じるのが面倒という、横着な方でも安心です。
注） WSHは大変便利な機能ですが、その反面、使い方を誤ると危険でもあります。ウィルスなどに利用されることもあるので、信用できないスクリプトは、絶対に使用してはいけません。
↓これが件のコードです。
Option Explicit
Dim Btn
Dim Ws
Set Ws = Wscript.CreateObject("Wscript.Shell")
Btn = Ws.Popup("今日の運勢は大吉です。",5,"おみくじ")
Set Ws = Nothing
実はこれは、良くあるサンプルコードをチョコっと変えただけのものだったりします。
それほどたいそうなものではありませんです。
ニコ吉を出しても…あまり良いことありませんよ？
本当は、凶なんじゃないの？
と思うくらいです。
はい。
2～3度使用すると、とっても虚しい気分になれます(笑
すみません～これ削除しといてください。
そして～大吉より ニコ吉を、１度でいいから 出したいで～す。
・・うーん、大吉オンパレードですね。
でも、ありがたみが・・・？(^_^;)
まあ、自動的に爆発しないだけいいかっ(｡´ﾟｪﾟ)｡´_ _)ｩﾝ