VBScript 在 IE 中的窗口上设置焦点

2023-11-24

我正在更新一段旧代码,该代码使用 VBScript 在 IE 中弹出一个窗口。由于某种原因,它喜欢在IE后面打开。 Google 给了我以下几行用于在 VBScript 中设置窗口焦点:

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("calculator")

但是,当我在 IE 中运行此命令时,出现错误“需要对象:'WScript'”。

IE 中有没有办法解决这个问题,或者有其他方法可以做到这一点?我已经可以毫无问题地打开和操作 Word 文档。

编辑:为了澄清,我在浏览器(IE)的

Update:我的安全设置很低;所有 ActiveX 设置均处于“启用”状态(这是一项 Intranet 服务)。我测试了代码this问题,计算器打开没有问题。事实上,我让 AppActivate 可以与 JavaScript 一起使用,但它不能与 VBScript 一起使用。

工作 JavaScript:

<script type="text/javascript">
    function calcToFrontJ(){
        wshShell = new ActiveXObject("WScript.Shell");
        wshShell.AppActivate("Calculator");
    }
</script>

VBScript 不工作:

<script type="text/vbscript">
    Public Function calcToFrontV()
        'Set WScript = CreateObject("WScript.Shell") 'breaks with or without this line
        Set WshShell = WScript.CreateObject("WScript.Shell")
        WshShell.AppActivate("Calculator")
    End Function
</script>

我想我总是可以重构为 JavaScript,但我真的很想知道这个 VBScript 发生了什么。

最终答案:

<script type="text/vbscript">
    Public Function calcToFrontV()
        'must not use WScript when running within IE 
        Set WshShell = CreateObject("WScript.Shell")
        WshShell.AppActivate("Calculator")
    End Function
</script>

WScript 对象在 IE 中不存在,除非您使用以下命令自己创建它:
Set WScript = CreateObject("WScript.Shell")
但如果安全设置不是很低,它就不起作用。

编辑:考虑到 Tmdean 的评论,这是工作代码:

'CreateObject("WScript.Shell")
Set wshShell = CreateObject("WScript.Shell")
wshShell.AppActivate("calculator")
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

VBScript 在 IE 中的窗口上设置焦点 的相关文章

随机推荐

  • Rails:为什么“collection =”不更新具有现有id的记录?

    用户可以有很多帖子 class User lt ActiveRecord Base has many posts accepts nested attributes for posts end class Post lt ActiveRec
  • 在 ElasticSearch NEST 查询中返回原始 Json

    我正在对 net 中的弹性搜索客户端进行一项小型研究 我发现 NEST 是对此问题最受支持的解决方案之一 我正在查看 Nest 的文档 但找不到从查询中输出原始 json 并避免序列化为对象的方法 因为我在前端使用 angularJs 我不
  • 使用 Sheets API 使用公式更新单元格值会产生撇号前缀

    我正在使用 gspread 和 Google Sheets API 来更新单元格值 设置cell value等于特定公式的字符串 示例代码 Calculates sum of cells in current row from column
  • 如何向所有 Backbone 模型添加默认错误处理程序?

    背景 Backbone 模型提供了一个选项来注册回退错误处理程序 每次调用服务器失败且未提供特定处理程序时都会调用该处理程序 MyModel new Backbone Model extend initialize function opt
  • SQL 标准中的 GREATEST 和 LEAST

    我的理解是 GREATEST 和 LEAST 不是 SQL 标准的一部分 但很常见 我在想 有没有办法克隆 GREATEST 的功能并保持 SQL 标准 SELECT id GREATEST 1 2 3 4 5 6 7 AS number
  • UIImage 在开始时不适合 UIScrollView

    我有一个像这样的图像 当我将图像加载到 uiimageview 然后将其作为子视图添加到 uiscrollview 时 图像在开始时显示如下 问题是我想在开始时看到所有图像适合屏幕 但它显示已经缩放 有什么办法可以解决这个问题请帮忙 我有这
  • SELECT --> OPTION,使用 value 与 ngValue

    我最近才发现有一个替代方案valueSELECT 的 OPTION 部分的属性 即ngValue 该文档确实缺乏关于此的文档 我能找到的所有文档 https angular io docs ts latest api forms index
  • 如何以最佳方式将字符列表连接到字符串?

    数据 list a b x d s 我想创建一个字符串 str abxds 我怎样才能做到这一点 现在我正在做类似的事情 str for i in list str str i print str 我知道字符串在 Python 中是不可变的
  • 如何使用 golang 获取 Windows 上所有驱动器的列表?

    我希望我的程序能够遍历 Windows 系统上的所有驱动器并搜索特定的文件类型 现在 我可以运行该程序并向其传递一个驱动器号以开始 但我希望它自动搜索所有驱动器 目前 我需要做这样的事情 C gt program exe C C gt pr
  • JSP 文件中的 Lambda 表达式将无法编译

    我已经尝试了 stackoverflow 上提到的大部分建议 但尚未找到解决方案 我遇到的错误如下 An error occurred at line 379 in the jsp file application new project
  • 如何在CSS中给出背景图像路径?

    我的 CSS 文件位于 项目 Web Support Styles file css 我的图片位于 项目 Web images image png 我想要在我的 CSS 文件中使用此图像 我努力了 1 background image ur
  • 如何在Excel VBA宏中循环遍历行列

    您好 我正在尝试创建一个宏 该宏具有一个循环 该循环为每个工作站复制第 1 列 VOL 下的一个函数和第 2 列 容量 下的另一个函数 这是我到目前为止所拥有的 Sub TieOut Dim i As Integer Dim j As In
  • 将文件写入 SD 卡

    我正在尝试从 Http post 回复中写入一个文件sdcard 一切正常 直到检索到数据的字节数组 我尝试过设置WRITE EXTERNAL STORAGE清单中的许可 并尝试了我在网上找到的教程的许多不同组合 我所能找到的就是使用ope
  • 如何从 .cs 文件 asp.net 调用 HttpHandler

    我已经为 Jquery ajax 调用创建了一个 http 处理程序 jquery 调用工作正常 如下所述 ajax url Services name ashx contentType text plain data CustMobile
  • File.ReadAllText 线程安全吗?

    具体来说 将使用 TPL 生成一个线程Task Factory StartNew Task Factory StartNew gt File ReadAllText thisFile txt 引起任何问题等 上面似乎没有提到线程安全MSDN
  • 判断 BNF 语法是否有歧义的最简单方法是什么?

    也就是说 是否有一种工具可以自动显示给定语法的完整语言 包括突出显示歧义 如果有 BNF 样式语法可能有一些特殊性 但一般来说 确定给定的上下文无关语法 例如 BNF 是否有歧义是不可能的 简而言之 不存在一种工具 因为一般来说 该工具在数
  • 在 PowerShell 中合并“Get-Disk”信息和“LogicalDisk”信息?

    我有这个扫描所有的查询逻辑磁盘信息 Write Host Drive information for env ComputerName Get WmiObject Class Win32 LogicalDisk Where Object D
  • 在 SQL Server 中规范化 unicode 字符串?

    SQL Server中有没有一个函数可以标准化unicode字符串 例如 UPDATE Orders SET Notes NormalizeString Notes FormC Unicode 规范化形式 C 组成 C A 变成 D 分解
  • Ionic 2:本地通知图标

    我使用这个插件来获得本地通知 https github com katzer cordova plugin local notifications wiki 03 安装 我想在我的通知中有一个特定的图标 它位于我的 www assets i
  • VBScript 在 IE 中的窗口上设置焦点

    我正在更新一段旧代码 该代码使用 VBScript 在 IE 中弹出一个窗口 由于某种原因 它喜欢在IE后面打开 Google 给了我以下几行用于在 VBScript 中设置窗口焦点 set WshShell WScript CreateO