'WScript.Shellを使っての自動的に閉じるメッセージボックス
Dim result As DialogResult
result = CreateObject("WScript.Shell").Popup("ログイン中...Sleep", 1, )
Debug.WriteLine(result)
このスクリプトが動きません、プロジェクトを新規作成したら動くのです。
今私が作成途中のものだけうごきません、ポップアップ出現のみの現象です。
どういった原因でしょうか？
> このスクリプトが動きません
と言う事は、VBScript なのかな…と思いましたが、
As DialogResult と書かれているという事は、VB.NET でしょうか。
> result = CreateObject("WScript.Shell").Popup("ログイン中...Sleep", 1, )
このコードだと、最後の「,」がエラーになるでしょうね。
> 今私が作成途中のものだけうごきません、ポップアップ出現のみの現象です。
ポップアップが出現したのであれば、それは動作しているのでしょう。
もしかして、Debug.WriteLine(result) が実行されていない、という意味でしょうか?
だとしたら、そのプロジェクトが Debug ビルドになっているか、それとも
Release ビルドになっているかを確認してみてください。