Moon_aka_Sun
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Таким примерно макаром:
function input_box(prompt,default,title)
local txt = 'WScript.Echo InputBox("'..prompt..'","'..title..'","'..default..'")'
local tmp = "C:\\TMP\\"
local tmp1, tmp2 = tmp.."SCRPT.VBS", tmp.."RESLT.TMP"
local f = io.open(tmp1, 'wb') f:write(txt) f:close()
os.execute("cscript //Nologo "..tmp1.." > "..tmp2)
f = io.open(tmp2) local out = f:read('*all') f:close()
return out
end
Правда, os.execute вываливает консольное окно и легко это не побороть. |
