::Hikaru's blog

調べたこと, 考えたことをメモ.
<< December 2017 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 >>

スポンサーサイト

一定期間更新がないため広告を表示しています

- | permalink | - | -
<< 構造体にナゾの隙間 | main | quote, unquote >>

confirm, prompt

function confirm(text) { var code = 'Function fn(text, buttons, title)¥n' + 'fn = MsgBox(text, buttons, title)¥nEnd Function'; var sc = new ActiveXObject("ScriptControl"); sc.Language = "VBScript"; sc.AddCode(code); return sc.Run("fn", text, 4 | 32, "") == 6; } function prompt(text, defaultText) { var code = 'Function fn(text, title, defaultText)¥n' + 'fn = InputBox(text, title, defaultText)¥nEnd Function'; var sc = new ActiveXObject("ScriptControl"); sc.Language = "VBScript"; sc.AddCode(code); return sc.Run("fn", text, "", defaultText); } // 追記 - confirmはWshShell.Popupを使う方法もある function confirm(text) { var shell = new ActiveXObject("WScript.Shell"); return shell.Popup(text, -1, "", 4 | 32) == 6; }
WSH, JScript | permalink | comments(0) | trackbacks(0)

スポンサーサイト

- | permalink | - | -

この記事に対するコメント

コメントする









この記事のトラックバックURL
http://hikarukaru.jugem.cc/trackback/108
この記事に対するトラックバック