个人中心
文章发布
退出
作者热门文章
- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
25
4
CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章用vbs实现重新启动 Internet Explorer由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.
问： 您好，脚本专家！如果未运行其他实例，如何重新启动 Internet Explorer？ -- MT 答： 您好，MT。多谢您的问题。您知道，如今每个人都在挑剔可怜的 Internet Explorer 的毛病（尽管大多数 Windows 用户仍在使用 Internet Explorer）。但现在有人提出了一个问题，他想确保 Internet Explorer 始终正常运行。看见了吧，Internet Explorer：还有人喜欢你！ 尽管我们本来要为 Internet Explorer 而感到高兴的，但我们不得不承认这个问题使我们有些为难。毕竟，可通过多种不同的方法来解决此问题，这取决于您是需要立即重新启动 Internet Explorer 还是要等一会再启动它。对此问题沉思片刻之后，我们决定按我们通常所采取的办法去做：采用最简单的解决办法，在本示例中，每 60 秒检查一次是否有任何 Internet Explorer 实例正在运行。如果有，则脚本只返回到休眠状态，再等待 60 秒，然后重新检查。如果没有任何运行的 Internet Explorer 实例，则脚本将启动 Internet Explorer 的新副本，然后休眠片刻，再等待 60 秒，之后重新检查。 是的，这有点类似于脚本专家一天的工作。嗯，您知道我们是什么意思吗？不同之处就是每 60 秒即醒来一次以便干点什么。 以下是我们所提供的脚本:
复制代码 代码如下
strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objShell = CreateObject("Wscript.Shell") Do While True Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'iexplore.exe'") If colProcesses.Count = 0 Then objShell.Run "iexplore.exe" End If Wscript.Sleep 60000 Loop 。
没错：它实质上只是个普通的 WMI 脚本。因此，它首先连接到本地计算机上的 WMI 服务。但是该脚本与其他 WMI 脚本之间存在一个主要的不同之处。通常此时我们会说：“不过，您也可以针对远程计算机运行此脚本”。遗憾的是，这一次并非如此。从技术上讲，您可以针对远程计算机运行该脚本，但您启动的任何 Internet Explorer 实例都将在不可见的窗口中运行（至少在 Windows XP 和 Windows Server 2003 上是这样），因此，您将无法在屏幕上看到它。这是操作系统中内置的一种安全功能：远程启动的进程始终在隐藏窗口中运行。也就是说，该脚本必须在本地计算机上运行。 注意：这个问题有解决办法吗？事实上有解决办法，尽管它要求您本地而不是远程启动进程。有关如何解决该问题的示例，请参阅您好，脚本专家！专栏。 连接到 WMI 服务后，我们就创建一个 WScript.Shell 对象的实例，我们将使用它来生成所有新的 Internet Explorer 实例。（是的，我们本来可以使用 WMI 来实现此目的的，但大多数人都发现使用 Wscript.Shell 运行程序要比使用 WMI 更容易。）接着我们建立一个只要 True 等于 True 时即运行的 Do 循环。（除非哲学上有任何新的进展，否则这就意味着脚本将永远运行下去。要停止该脚本，需要终止脚本进程。如果您正运行在 CScrip 下的命令窗口中，只需按 Ctrl+C 或关闭命令窗口即可实现此操作，非常容易。） 那么此循环执行什么操作？首先，我们使用以下代码来检索当前在计算机上运行的所有名为 iexplore.exe 的进程集合： Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'iexplore.exe'") 尽管会失去悬念，但还是要与当前在计算机上运行的所有 Internet Explorer 实例的集合保持一致。然后，我们检查 Count 属性（该属性可告诉我们集合中的项数）的值是否等于 0： If colProcesses.Count = 0 Then 如果 Count 等于 0，则表示计算机上未运行任何 Internet Explorer 实例。因此，我们使用 Shell 对象和 Run 方法来启动一个全新的实例： objShell.Run "iexplore.exe" 就是这样。接下来，使用 Sleep 方法将脚本暂停 60 秒（60,000 毫秒）。60 秒之后，脚本继续执行，再次循环并重复该过程，直至永远。如果所需时间间隔不是 60 秒，调整该值即可。例如，下面这行代码将每 30 秒（30,000 毫秒）进行一次检查： Wscript.Sleep 30000 下面的代码将每 10 分钟（60,000 毫秒/每分钟乘以 10 分钟）运行一次检查： Wscript.Sleep 600000 不可否认，该代码仅每 10 分钟检查一次 Internet Explorer 是否在工作。对于脚本专家来说，就没有必要再每 10 分钟检查一次他们是否在工作：毕竟，有没有脚本，您都知道该问题的答案.
最后此篇关于用vbs实现重新启动 Internet Explorer的文章就讲到这里了,如果你想了解更多关于用vbs实现重新启动 Internet Explorer的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。
25
4
0
我使用 IBM Personal Communications 12.0.3.0 的宏记录器制作了一个凭据输入宏。它只是在调用时输入我的用户名和密码。 sub Credentials() Dim
该批处理更改了 vbs 代码，使其无法供 vbs 使用。我该如何解决这个问题？ 批号: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
我有 2 个 vbs 文件。 A.vbs: Class test public a public b End Class B.vbs: Dim objShell Set objShell =
以下是我用来尝试在 IIS 6 中创建虚拟目录的条目: [Run] Filename: {tmp}\cscript.exe mkvirtdir.vbs; Parameters: "-c LocalHo
核心vbs代码 ? 1
对于vbs中ping的实现可以通过两种方式 ： 1、调用系统ping命令； 2、使用wmi查询pingstate类处理。 1、调用系统ping命令
在看vb开发,看到二维数组时突发奇想用二维数组作为游戏关卡; 1. 选择操作: 游戏开始时会提示选择注册, 登录, 退出三种选项, 2.注册: 注册成功会将用户账户与密码存入用户数据txt文档中
复制指定文件到指定目录下 核心代码 ? 1
复制代码 代码如下: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
运行前请确定你的电脑安装了word。 复制代码 代码如下: i=0 set wshshell=createobject("wscript.shell") Set objWo
参考代码一： 复制代码 代码如下: Function DeleteLog( ) Dim objFSO, objFolder, strPath,
挺实用的一段代码，用来深入学习vbs，确实不错咯。 复制代码 代码如下: On Error Resume Next '忽略所有错误 Dim filename '声明变量 Di
话说还是闲来练手，初步实现了自己认为的“多线程”下载。(至于是不是多线程，可以参考12楼链接) 为避免冗余，省了一些错误检查。我觉得没多大实际用途，有兴趣的兄弟一起学习讨论呗。欢迎大家指正: 复制
复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 &n
复制代码 代码如下: on error resume next url = " http://www.bathome.net/logging.php?action=login"
效果图： 代码都封装成函数了，方便调用： 复制代码 代码如下: Key = "www-enun-net" '不要用数字
打开狗狗影视，搜索自己需要的资源，资源类型选：电驴，如下图： 我找到一个 19.75gb 的： 点开它，出现如下图的界面，可以看到正常下载地址已被屏蔽。我们复制地址栏中的网址，备用。
最近相关的备份比较频繁，为了校验文件的完整性，老是要打开某文件HASH校验工具，比较麻烦，于是乎写了这个东东，文件较大时计算有点慢，文件的MD5值保存在剪贴板！效果如图： 使用方法： 1.先
CMD当前路径 复制代码 代码如下: test = createobject("Scripting.FileSystemObject").GetF
For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [st
我是一名优秀的程序员,十分优秀！