| ※この占いはVBスクリプトで作成しています。ソースは次のように記述していますので参考にしてください。 |
| <SCRIPT language="VBScript"> <!-- Sub Button1_OnClick Randomize Dim TheForm TheForm = Int(Rnd*10) If (TheForm<1) Then a = MsgBox("予想もしていなかった収入が入るかも。",36,"今日の金運は......") if a=6 then msgbox "当たればいいね",0,"今日の運勢" else msgbox "信ずるものは救われる...",0,"今日の運勢" end if ElseIf (TheForm<2) Then b = MsgBox("今日はギャンブルに手を出すのはやめよう。",36,"今日の金運は......") if b=6 then msgbox "いい心がけです",0,"今日の運勢" else msgbox "悪いことはいいません。今日はやめておいたほうが...",0,"今日の運勢" end if ElseIf (TheForm<3) Then c = MsgBox("思わぬ出費がおとずれるかもかも。",36,"今日の金運は......") if c=6 then msgbox "ここがこらえどころです。",0,"今日の運勢" else msgbox "ぐっとがまんですよ...",0,"今日の運勢" end if ElseIf (TheForm<4) Then d = MsgBox("ちょっと高い買い物をしてしまうかもね。",36,"今日の金運は......") if d=6 then msgbox "でもあとからよかったと思うときもありますよ",0,"今日の運勢" else msgbox "あまり無理はしないほうが...",0,"今日の運勢" end if ElseIf (TheForm<5) Then e = MsgBox("待てばいい話が舞い込むことでしょう。",36,"今日の金運は......") if e=6 then msgbox "チャンスを逃す手はありません",0,"今日の運勢" else msgbox "何がいい話かって。それはヒミツ...",0,"今日の運勢" end if ElseIf (TheForm<6) Then f = MsgBox("甘い話に気をつけて。",36,"今日の金運は......") if f=6 then msgbox "渡る世間はいい人ばかりじゃありません",0,"今日の運勢" else msgbox "石橋をたたいたらわたる前に割れることもあります...",0,"今日の運勢" end if ElseIf (TheForm<7) Then g = MsgBox("欲しいものがあってもぐっとガマン。",36,"今日の金運は......") if g=6 then msgbox "明日はきっといい日でしょう",0,"今日の運勢" else msgbox "今日はやめておいたほうがいいですよ...",0,"今日の運勢" end if ElseIf (TheForm<8) Then h = MsgBox("なにごとも節約がたいせつです。",36,"今日の金運は......") if h=6 then msgbox "小さなことの積み重ねだいじですね",0,"今日の運勢" else msgbox "ほんとだってば...",0,"今日の運勢" end if ElseIf (TheForm<9) Then i = MsgBox("あまり大きな投資はしないように。",36,"今日の金運は......") if i=6 then msgbox "なにごともほどほどがかんじんですね",0,"今日の運勢" else msgbox "ビンボー神にとりつかれますよ...",0,"今日の運勢" end if Else j = MsgBox("今日は借金はしないようにしましょう。",36,"今日の金運は......") if j=6 then msgbox "明日なら何とかなるかも",0,"今日の運勢" else msgbox "えっどうして！無理は禁物ですよ...",0,"今日の運勢" end if End If End Sub Sub Button2_OnClick Randomize Dim TheForm TheForm = Int(Rnd*10) If (TheForm<1) Then a = MsgBox("花粉症に気をつけよう。",36,"今日の健康運は......") if a=6 then msgbox "あと一ヶ月のがまん",0,"今日の運勢" else msgbox "風邪にも気をつけよう...",0,"今日の運勢" end if ElseIf (TheForm<2) Then b = MsgBox("風邪がはやっているから気をつけて。",36,"今日の健康運は......") if b=6 then msgbox "万病のもとだからね",0,"今日の運勢" else msgbox "こじらせるとたいへんだよ...",0,"今日の運勢" end if ElseIf (TheForm<3) Then c = MsgBox("肝臓が弱ってますね。飲みすぎですよ。",36,"今日の健康運は......") if c=6 then msgbox "過ぎたるはおよばざるがごとし",0,"今日の運勢" else msgbox "牛乳にかえたら...",0,"今日の運勢" end if ElseIf (TheForm<4) Then d = MsgBox("暴飲・暴食はつつしみましょう。",36,"今日の健康運は......") if d=6 then msgbox "腹八分目で病なし",0,"今日の運勢" else msgbox "胃薬を持って歩いたほうがいいかも...",0,"今日の運勢" end if ElseIf (TheForm<5) Then e = MsgBox("ゆっくりと体をやすめて寝よう。",36,"今日の健康運は......") if e=6 then msgbox "寝るのが一番だよね",0,"今日の運勢" else msgbox "寝不足は体によくないよ...",0,"今日の運勢" end if ElseIf (TheForm<6) Then f = MsgBox("疲労回復にはお風呂が一番。",36,"今日の健康運は......") if f=6 then msgbox "温泉だともっといいのにね",0,"今日の運勢" else msgbox "えっお風呂キライなの...",0,"今日の運勢" end if ElseIf (TheForm<7) Then g = MsgBox("目が疲れていませんか。ディスプレイに近づきすぎです。",36,"今日の健康運は......") if g=6 then msgbox "十分間休みましょう",0,"今日の運勢" else msgbox "ストレスもたまりますよ...",0,"今日の運勢" end if ElseIf (TheForm<8) Then h = MsgBox("すこし体を動かして運動をしましょう。",36,"今日の健康運は......") if h=6 then msgbox "まずは足腰から始めよう",0,"今日の運勢" else msgbox "肥満になってしまうよ...",0,"今日の運勢" end if ElseIf (TheForm<9) Then i = MsgBox("ストレスがたまっているようですね。",36,"今日の健康運は......") if i=6 then msgbox "リラックスが必要です。散歩しましょう",0,"今日の運勢" else msgbox "無理をしてはいけません...",0,"今日の運勢" end if Else j = MsgBox("パソコンから離れてリラックスをしましょう。",36,"今日の健康運は......") if j=6 then msgbox "ちょっと体操なんていいかも",0,"今日の運勢" else msgbox "マシンも休みたいって言ってるよ...",0,"今日の運勢" end if End If End Sub Sub Button3_OnClick Randomize Dim TheForm TheForm = Int(Rnd*10) If (TheForm<1) Then a = MsgBox("懐かしいあの人にあえるような予感が....。",36,"今日の恋愛運は......") if a=6 then msgbox "さっそく電話をしよう",0,"今日の運勢" else msgbox "待っていてもだめですよ...",0,"今日の運勢" end if ElseIf (TheForm<2) Then b = MsgBox("今日はおとなしくしていましょう。",36,"今日の恋愛運は......") if b=6 then msgbox "気晴らしに街へ出よう",0,"今日の運勢" else msgbox "口はわざわいのもとですよ...",0,"今日の運勢" end if ElseIf (TheForm<3) Then c = MsgBox("今日こそ思いを打ち明けよう。",36,"今日の恋愛運は......") if c=6 then msgbox "あなたの一言を待っています",0,"今日の運勢" else msgbox "チャンスはそうないよ...",0,"今日の運勢" end if ElseIf (TheForm<4) Then d = MsgBox("口は災いのもと。言葉を選んで話しましょう。",36,"今日の恋愛運は......") if d=6 then msgbox "でも誠意は通じるものです",0,"今日の運勢" else msgbox "むむむ。後悔しても知らないよ...",0,"今日の運勢" end if ElseIf (TheForm<5) Then e = MsgBox("思わぬことを打ち明けられそう。",36,"今日の恋愛運は......") if e=6 then msgbox "きちんと話を聞いてあげよう",0,"今日の運勢" else msgbox "えっ。信じてよ...",0,"今日の運勢" end if ElseIf (TheForm<6) Then f = MsgBox("２〜３日は冷却期間をおいてみるのもいいかもね。",36,"今日の恋愛運は......") if f=6 then msgbox "次はあなたからアタック",0,"今日の運勢" else msgbox "心が離れていっちゃうよ...",0,"今日の運勢" end if ElseIf (TheForm<7) Then g = MsgBox("打ち明けよう。きっといい返事があるかも。",36,"今日の恋愛運は......") if g=6 then msgbox "まごころは必ず通じます",0,"今日の運勢" else msgbox "では、明日にしましょう...",0,"今日の運勢" end if ElseIf (TheForm<8) Then h = MsgBox("すこし相手を思いやりましょう。",36,"今日の恋愛運は......") if h=6 then msgbox "素直な気持ちになることです",0,"今日の運勢" else msgbox "その身勝手さが嫌われる要因かも...",0,"今日の運勢" end if ElseIf (TheForm<9) Then i = MsgBox("さっそくデートを申し込もう。",36,"今日の恋愛運は......") if i=6 then msgbox "コースは相手を思いやって考えてね",0,"今日の運勢" else msgbox "じゃあ、あきらめよう...",0,"今日の運勢" end if Else j = MsgBox("二人で食事するならイタリア料理で。",36,"今日の恋愛運は......") if j=6 then msgbox "ワインで乾杯しましょう",0,"今日の運勢" else msgbox "イタ飯がいやなら、何にしよう。自分で考えよう...",0,"今日の運勢" end if End If End Sub --> </SCRIPT> |
VBスクリプトの詳しいことはこちらに載っています。