2

私は、30 秒のカウントダウンで yes-no ボックスを表示するこのスクリプトを持っています。時間が経過した後にユーザーがオプションを選択しなかった場合、VBScript は自動的にオプション"Yes"を選択し、バッチ スクリプトに戻ります。

スクリプトからカウントダウン部分を削除して、デフォルトで"Yes"にならず、代わりに入力が与えられるまで待つにはどうすればよいですか。

どうもありがとう

Option Explicit
Dim oShell, retCode
Set oShell = WScript.CreateObject("WScript.Shell")

retCode = oShell.Popup("Place your question here?", 30, "Title", 4 + 32)

Select Case retCode
case 6, -1
    WScript.quit(0) 'Yes or time-out was chosen
case 7
    WScript.quit(1) 'No was chosen
End Select

http://www.msfn.org/board/topic/138818-vbscript-msgbox-with-auto-select-countdown-and-batch-script-input/から取得した vbscript

4

1 に答える 1

1

詳細については、これが答えになるはずです： WScript.Shell.Popup

Dim oShell, retCode
Set oShell = WScript.CreateObject("WScript.Shell")

retCode = oShell.Popup("Place your question here?", 0, "Title", 4 + 32)

Select Case retCode
case 6, -1
WScript.quit(0) 'Yes or time-out was chosen
case 7
WScript.quit(1) 'No was chosen
End Select`
于 2012-12-19T01:08:15.753 に答える