今まで動いたのに("WScript.Shell")

ろうたろう 2009-05-09 06:07:52 No: 141917

'WScript.Shellを使っての自動的に閉じるメッセージボックス
        Dim result As DialogResult
        result = CreateObject("WScript.Shell").Popup("ログイン中...Sleep", 1, )
        Debug.WriteLine(result)

このスクリプトが動きません、プロジェクトを新規作成したら動くのです。
今私が作成途中のものだけうごきません、ポップアップ出現のみの現象です。

どういった原因でしょうか？

魔界の仮面弁士 2009-05-09 07:51:30 No: 141918

> このスクリプトが動きません
と言う事は、VBScript なのかな…と思いましたが、
As DialogResult と書かれているという事は、VB.NET でしょうか。

> result = CreateObject("WScript.Shell").Popup("ログイン中...Sleep", 1, )
このコードだと、最後の「,」がエラーになるでしょうね。

> 今私が作成途中のものだけうごきません、ポップアップ出現のみの現象です。
ポップアップが出現したのであれば、それは動作しているのでしょう。

もしかして、Debug.WriteLine(result) が実行されていない、という意味でしょうか?
だとしたら、そのプロジェクトが Debug ビルドになっているか、それとも
Release ビルドになっているかを確認してみてください。