JavaScript调用VBS中的InputBox和MsgBox函数

标签： , , , , ,

标题: JavaScript调用VBS中的InputBox和MsgBox函数
作者: Demon
链接: https://demon.tw/programming/javascript-vbs-inpubox-msgbox.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

严格的是应该是JScript，不过很多不明真相的同学不区分JavaScript和JScript，于是标题就写JavaScript了。JScript和VBScript相互调用搞来搞去都是ScriptControl，一点技术含量也没有。

JavaScript版MsgBox函数，后面两个参数忽略掉，用了那么久VBS我从来没有用过MsgBox最后两个参数。

function MsgBox(prompt, buttons, title)
{
    if(buttons == undefined) buttons = 0;
    if(title == undefined) title = "";

    var sc = new ActiveXObject("MSScriptControl.ScriptControl");
    var code = 'MsgBox("'+ prompt + '","' + buttons + '","' + title + '")';

    sc.Language = "VBScript";
    return sc.Eval(code);
}

JavaScript版InputBox函数，同样去掉了最后两个参数，定义位置的参数也去掉了，如果需要定义位置的话自己加上去好了。

function InputBox(prompt, title, def)
{
    if(title == undefined) title = "";
    if(def == undefined) def = "";
    
    var sc = new ActiveXObject("MSScriptControl.ScriptControl");
    var code = 'Inputbox("'+ prompt + '","' + title + '","' + def + '")';
    
    sc.Language = "VBScript";
    result = sc.Eval(code);
    
    if(result != undefined) return result;
    else return "";
}

简单的测试一下。

var str = InputBox("Enter your name");
if(str != "")
{
    var res = MsgBox("Are you " + str + "?", 4);
    if(res == 6)
        MsgBox("Yes,you are " + str);
    else
        MsgBox("No,you are not " + str);
}

EOF

赞赏

微信赞赏支付宝赞赏

相关文章:

  1. 在VBS中执行Javascript语句
  2. 不用循环计算1到100的和
  3. VBS中InputBox函数的返回值
  4. 用VBS解析JSON格式数据
  5. JavaScript 记忆（Memoization）

随机文章:

  1. VBS实现半角字符转全角字符
  2. OpenWrt Dnsmasq DHCP MAC地址过滤
  3. VbsEdit 5.6.1新增功能
  4. 使用Rundll32运行DLL中的函数
  5. VBScript编译器(VBS也疯狂)

这篇文章发布于 2010年10月30日，星期六，17:33，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。

3 条评论 发表在“JavaScript调用VBS中的InputBox和MsgBox函数”上

  1. 怒云说道：
    2011年06月11日 08:33

    function VBS()
    {
    this.sc=new ActiveXObject(“MSScriptControl.ScriptControl”);
    this.sc.Language = “VBScript”;

    this.Run=function(code)
    {
    return this.sc.Eval(code);
    }

    this.MakeCode=function(str)
    {
    var re=/\”/g;
    str=str.replace(re,'”+Chr(34)+”‘);

    re=/\’/g;
    str=str.replace(re,'”+Chr(39)+”‘);

    re=/\n/g;
    str=str.replace(re,'”+Chr(10)+”‘);

    re=/\r/g;
    str=str.replace(re,'”+Chr(13)+”‘);

    return str;
    }

    this.InputBox=function(prompt, title, def)
    {
    if(title==undefined)title = “”;
    if(def==undefined)def = “”;

    prompt=this.MakeCode(prompt);
    title=this.MakeCode(title);
    def=this.MakeCode(def);

    var code = ‘InputBox(“‘+ prompt + ‘”,”‘ + title + ‘”,”‘ + def + ‘”)’;

    var result = this.sc.Eval(code);

    return result;
    }

    this.MsgBox=function(prompt, buttons, title)
    {
    if(buttons == undefined) buttons = 0;
    if(title == undefined) title = “”;

    prompt=this.MakeCode(prompt);
    title=this.MakeCode(title);

    var code = ‘MsgBox(“‘+ prompt + ‘”,”‘ + buttons + ‘”,”‘ + title + ‘”)’;

    var result=this.sc.Eval(code);
    return result;
    }
    }

    回复
  2. jimbowhy说道：
    2014年11月21日 03:07

    MSScriptControl.ScriptControl 在我的机子上死也实例化不了：Autumation server can’t create object!

    回复
    • 枫谷剑仙说道：
      2015年05月31日 18:08

      我今天也遇到这个问题，Notepad++和VbsEdit都可以运行，但系统里直接运行就提示
      microsoft jscript 运行时错误: automation 服务器不能创建对象

      找了半天发现是因为没有64位的ActiveXObject，使用32位才可运行。正确运行方法如：
      C:\WINDOWS\SysWOW64\wscript.exe 登陆.js

      回复

留下回复