EA16 JavaScript DLGInputBox bug

[Jan van Duuren]

I did find a solution for a messagebox and inputbox using EA 16.x (64 bit) and Javascript.

for a MessageBox it is rather simple solution. Instead of using Scriptcontrol you can use WScript.Shell:

function MsgBox(prompt="", title="MsgBox", style=0) {
   style += 4096; // to make the popup active (foreground)
   var WSH = new COMObject("WScript.Shell");
   return WSH.Popup(prompt, 0, title, style);
}

Regarding an inputbox it is a little more complex. I am using two steps. First it creates a small vbs script in %TEMP% folder. Then it uses this vbs script to display the input box.

function InputBox(prompt="Input", title="Inputbox", defaultText="") {
   const fso = new COMObject("Scripting.FileSystemObject");
   const WSH = new COMObject("WScript.Shell");
   const vbsScriptFile = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_inputbox.vbs");
   const tmpInputFile  = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_input.tmp");
   
   if (!fso.FileExists(vbsScriptFile)) {
      CreateInputboxVBS(vbsScriptFile);
   }
   
   WSH.Run(`WScript "${vbsScriptFile}" "${tmpInputFile}" "${prompt}" "${title}" "${defaultText}"`, 1, true);
   const ForReading = 1;
   const file = fso.OpenTextFile(tmpInputFile, ForReading);
   if (!file.AtEndOfStream) {
      return file.ReadAll();
   }
}

function CreateInputboxVBS(vbsScriptFile) {
   // function to create the inputbox VBS sripts in folder
   const vbsScriptContent = `dim tmpInputFile, prompt, title, defaultText, input
      Set objArgs = WScript.Arguments
      If objArgs.Count = 4 Then
         tmpInputFile = objArgs(0)
         prompt       = objArgs(1)
         title        = objArgs(2)
         defaultText  = objArgs(3)
         input        = InputBox(prompt, title, defaultText)
      End if
         
      Const ForWriting = 2, CreateIfNeeded = true
      set fso = CreateObject("Scripting.FileSystemObject")
      set file = fso.OpenTextFile(tmpInputFile, ForWriting, CreateIfNeeded)
      file.write input
      file.close`.replace(/\t\t/g, '');
   
   const overwrite=true, unicode=true;
   const file = fso.CreateTextFile(vbsScriptFile, overwrite, unicode);
   file.Write(vbsScriptContent);
   file.Close();
}

[Guillaume]

Hi Jan,

Thank you for the information.
I confirm that MessageBox works, however I didn't manage to get the InputBox to work (EA 16.1 build 1628 64 bits).

I copied your code to a new Javascript EA script and added the following:

   MsgBox("test");
   var testVal = InputBox("test input");
   Session.Output(testVal);

I'm getting an error "fso is not defined" related with the following line:
const file = fso.CreateTextFile(vbsScriptFile, overwrite, unicode);

Any idea ?

[Geert Bellekens]

You might want to try to add fso to the list of dimmed variables.

Geert

[Jan van Duuren]

yes, I have a global variable for fso.
You just can add the following line to function "CreateInputboxVBS(vbsScriptFile)"

 const fso = new COMObject("Scripting.FileSystemObject");

Code: [Select]

function InputBox(prompt="Input", title="Inputbox", defaultText="") {
   const fso = new COMObject("Scripting.FileSystemObject");
   const WSH = new COMObject("WScript.Shell");
   const vbsScriptFile = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_inputbox.vbs");
   const tmpInputFile  = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_input.tmp");
   
   if (!fso.FileExists(vbsScriptFile)) {
      CreateInputboxVBS(vbsScriptFile);
   }
   
   WSH.Run(`WScript "${vbsScriptFile}" "${tmpInputFile}" "${prompt}" "${title}" "${defaultText}"`, 1, true);
   const ForReading = 1;
   const file = fso.OpenTextFile(tmpInputFile, ForReading);
   if (!file.AtEndOfStream) {
      return file.ReadAll();
   }
}

function CreateInputboxVBS(vbsScriptFile) {
   // function to create the inputbox VBS sripts in folder
   const fso = new COMObject("Scripting.FileSystemObject");
   const vbsScriptContent = `dim tmpInputFile, prompt, title, defaultText, input
      Set objArgs = WScript.Arguments
      If objArgs.Count = 4 Then
         tmpInputFile = objArgs(0)
         prompt       = objArgs(1)
         title        = objArgs(2)
         defaultText  = objArgs(3)
         input        = InputBox(prompt, title, defaultText)
      End if
         
      Const ForWriting = 2, CreateIfNeeded = true
      set fso = CreateObject("Scripting.FileSystemObject")
      set file = fso.OpenTextFile(tmpInputFile, ForWriting, CreateIfNeeded)
      file.write input
      file.close`.replace(/\t\t/g, '');
   
   const overwrite=true, unicode=true;
   const file = fso.CreateTextFile(vbsScriptFile, overwrite, unicode);
   file.Write(vbsScriptContent);
   file.Close();
}

[Jan van Duuren]

herewith a working script

Code: [Select]

!INC Local Scripts.EAConstants-JScript

/*
 * Script Name:
 * Author:
 * Purpose:
 * Date:
 */
 
function main()
{
var testVal = InputBox("enter your input here", "My InputBox");
MsgBox(testVal);
}

main();

function MsgBox(prompt="", title="MsgBox", style=0) {
style += 4096; // to make the popup active (foreground)
var WSH = new COMObject("WScript.Shell");
return WSH.Popup(prompt, 0, title, style);
}

function InputBox(prompt="Input", title="Inputbox", defaultText="") {
const fso = new COMObject("Scripting.FileSystemObject");
const WSH = new COMObject("WScript.Shell");
const vbsScriptFile = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_inputbox.vbs");
const tmpInputFile  = WSH.ExpandEnvironmentStrings("%TEMP%\\ea_input.tmp");

if (!fso.FileExists(vbsScriptFile)) {
CreateInputboxVBS(vbsScriptFile);
}

WSH.Run(`WScript "${vbsScriptFile}" "${tmpInputFile}" "${prompt}" "${title}" "${defaultText}"`, 1, true);
const ForReading = 1;
const file = fso.OpenTextFile(tmpInputFile, ForReading);
if (!file.AtEndOfStream) {
return file.ReadAll();
}
return "";
}

function CreateInputboxVBS(vbsScriptFile) {
// function to create the inputbox VBS sripts in folder
const fso = new COMObject("Scripting.FileSystemObject");
const vbsScriptContent = `dim tmpInputFile, prompt, title, defaultText, input
Set objArgs = WScript.Arguments
If objArgs.Count = 4 Then
tmpInputFile = objArgs(0)
prompt       = objArgs(1)
title        = objArgs(2)
defaultText  = objArgs(3)
input        = InputBox(prompt, title, defaultText)
End if

Const ForWriting = 2, CreateIfNeeded = true
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(tmpInputFile, ForWriting, CreateIfNeeded)
file.write input
file.close`.replace(/\t\t/g, '');

const overwrite=true, unicode=true;
const file = fso.CreateTextFile(vbsScriptFile, overwrite, unicode);
file.Write(vbsScriptContent);
file.Close();
}

[Guillaume]

Hi Jan,

Thank you for the updated script, it worked