早い

取り急ぎ、「早い」に掲載されたスクリプトをVBSに変換してみました。
ご確認下さい。

リスト1

Option Explicit

Const REDUCE_RESPONSE = "100万円"

Dim strOnegai

Do While (DoSoudan(strOnegai) = REDUCE_RESPONSE)
  DoFriendly("勘弁してくださいよ〜")
Loop

リスト2

Option Explicit

Const REDUCE_RESPONSE = "100万円"

Dim strOnegai
Dim intCount

Do While (DoSoudan(strOnegai) = REDUCE_RESPONSE)
  intCount = intCount + 1
  
  If intCount < 100 Then
    DoFriendly("勘弁してくださいよ〜")
  Else
    DoAngry("ウワーーーーー!!")
    WScript.Quit
  End If
Loop

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


  • モチロン、DoSoudan,DoFriendly,DoAngryと言う関数は存在しません。モチのロンです。(ええー!) -- メソ 2005-02-10 (木) 12:16:31
  • なんかこう、ストーリー仕立てというか、オチのあるプログラムって新しいかもな。読むの大変だけど。 -- puyan? 2005-02-10 (木) 19:39:59
  • なるほど、こういう風に書くのか〜と参考になります。勘弁してくdウワーーーーーー!!! -- stick524 2005-02-11 (金) 23:12:08

URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White