PCだい「ちゅき」

気がつけば庶事手伝い

目次

Blog 利用状況

ニュース

・H24/01/02
 Microsoft MVPを受賞しました
・H23/11/18
 MCTの憂鬱さんと相互リンクを張っていただきました^^
・H23/09/10
 プログラミング生放送でスピーカーさせていただきました^^ ・H22/12/18
 わんくま同盟でスピーカしました^^
さて、来年はどんな年になるかな。予想が当たるといいなぁ。
・H22/07/17
 わんくま同盟でスピーカしました^^
技術系のセッションは久しぶり。VB! VB!
・H22/03/13
 Tech FieldersでLTのスピーカしました^^
・H21/12/12
 わんくま同盟でスピーカしました^^
最近はずっとLT担当だったので、ちょっと新鮮でした^^
・H20/11/18
 Tech Fielders セミナー 大阪の
 Lightning Talkで優勝しました^^
・H20/8/23
 わんくま同盟で2回目のスピーカしちゃいました
 WCFと戯れてみました^^
・H20/5/17
 わんくま同盟でスピーカしちゃいました^^
 ちゃんとスピーカー持参しましたよんw
・H20/2/22
 なめ猫の参加証もらいました^^
・H20/1/22
 テンプレートを変えてみました^^
・H19/7/23
 ACEプログラムで、ナップサックをもらった上、工具セットももらえることになりました^^
・H19/1/11
 1が並ぶ縁起の良い日に投稿開始!。今後ともお付き合いよろしくお願いします
・H18/10/29
 参加させていただきました^^
ド・初心者ですがどうぞよろしくお願いします。

↓うーん、仕事しろ^^;
Chukiの脳内メーター

Chukiの脳内メーター

書庫

日記カテゴリ

ギャラリ

コミュニティ

相互リンク

【ハマった祭りに乗ってみる】WSH編 Q1

なんとなくハマったこと祭りっぽいので乗ってみる

問題です。

下記のVBS に対して引数10を指定して実行したら、何秒後に戻ってくるでしょうか?

----hogehoge.vbs

ret = hogehoge(WScript.Arguments(0))
WScript.Quit ret

Function hogehoge(nTimeOutSec)

  cnt = 0
  Do
    WScript.Sleep(1000)
    WScript.Echo cnt
    'ToDo :'実際のスクリプトはここで成功したら脱出するのでほぼタイムアウトまでは行かない

    cnt = cnt + 1
  Loop While cnt  < nTimeOutSec

  hogehoge = -1
End Function

----実行コマンド例
CScript hogehoge.vbs 10

投稿日時 : 2008年1月18日 16:26

Feedback

# re: 【ハマった祭りに乗ってみる】WSH編 Q1 2008/01/18 18:13 Chuki

ぶっちゃけ戻ってこないんですよね^^;

さてどこが間違っているでしょうか。

# re: 【ハマった祭りに乗ってみる】WSH編 Q1 2008/01/18 18:33 シャノン

WScript.Echo TypeName(nTimeOutSec)

ぎゃー。

# re: 【ハマった祭りに乗ってみる】WSH編 Q1 2008/01/22 9:18 Chuki

さすがシャノン殿^^
#なんどハマったことか^^;

以来、引数は毎回Cなにがしでキャストしてます

タイトル
名前
Url
コメント