JScript でInputBoxを使う2
”Windows Script Programming”様より
バッチファイルからMsgBox()を使う。
http://scripting.cocolog-nifty.com/blog/2009/06/msgbox-c3bc.html
使えるかどうかは、別にして、inputboxを実行してみる
MSHTA.EXE vbscript:Execute("Set oFS=CreateObject(""Scripting.FileSystemObject""):Set oTxt=oFS.CreateTextFile(""C:\Users\usr\Desktop\temp.inputbox.tmp""):oTxt.WriteLine(InputBox(""aaa"",""bbb"",""ccc"")):oTxt.Close:close")
動くので次。
<test02.js>
//test02.js
var oWshShell = new ActiveXObject("WScript.Shell");
var myParm = new String;
myParm = "MSHTA.EXE vbscript:Execute(" +
"\"Set oFS=CreateObject(\"\"Scripting.FileSystemObject\"\"):" +
"Set oTxt=oFS.CreateTextFile(\"\"C:\\Users\\usr\\Desktop\\temp.inputbox.tmp\"\"):" +
"oTxt.WriteLine(InputBox(\"\"aaa\"\",\"\"bbb\"\",\"\"ccc\"\")):" +
"oTxt.Close:close\"" +
")";
res01 = "wait";
res01 = oWshShell.Run(myParm , 1,true);
//res01 = 0;
while(res01 == "wait"){
WScript.Sleep(1000);
}
var pFS = new ActiveXObject("Scripting.FileSystemObject");
var pTxt = pFS.OpenTextFile("C:\\Users\\usr\\Desktop\\temp.inputbox.tmp");
myText = pTxt.ReadAll();
WScript.Echo(myText);
pTxt.Close();