msgbox 浏览器不支持

[T121581]

代码

Function RegExpTest(patrn, strng)
  Dim regEx, Match, Matches      ' 建立变量。
  Set regEx = New RegExp         ' 建立正则表达式。
  regEx.Pattern = patrn         ' 设置模式。
  regEx.IgnoreCase = True         ' 设置是否区分字符大小写。
  regEx.Global = True         ' 设置全局可用性。
  Set Matches = regEx.Execute(strng)   ' 执行搜索。
  For Each Match in Matches      ' 遍历匹配集合。
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    RetStr = RetStr & Match.Value & "'." & vbCRLF
  Next
  RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

在IE浏览器打开 可以弹出提示
但是用谷歌浏览器打开 就上面提示都没有 ？ 是我电脑设置问题 还是谷歌浏览器不支持msgbox了？

[Go 旅城通票]

vbs只有IE核心的浏览器至支持，和msgbox没关系，改成js

    function RegExpTest(patrn, strng) {
        var rx = new RegExp(patrn, 'ig'), RetStr = '';
        while (m = rx.exec(strng)) RetStr += "Match found at position " + m.index + ". Match Value is '" + m + "'.\n"
        return RetStr;
    }
    alert(RegExpTest("is.", "IS1 is2 IS3 is4"))

[Dogfish]

vbscript好像只有ie才支持的。所以chrome没有反应。建议使用javascript