300字范文 > VBS操作IE ---（【当不使用IE时】可以使用Chrome插件自定义JS插件操作浏览器）

VBS操作IE ---（【当不使用IE时】可以使用Chrome插件自定义JS插件操作浏览器）

时间：2019-07-11 12:15:58

■前言

■举个简单VBS操作IE的例子

---

■如何让IE打开是IE，而不是Edge

■其他更多VBS相关

・更多操作一览

・按键shift ctrl alt

・打开图片，以幻灯片形式显示

・操作截图软件

・VBS调用VBA中的函数

・VBS操作Excel数据

・关闭所有VBA程序

■使用Chrome插件，自定义JS插件操作浏览器

1.代码

manifest.json

myscript.js

代码注意：

2.导入自定插件

3.获取画面项目的JS URL

4.关于【manifest.json】的更多介绍

■前言

从6月15日起，

微软将终止IE浏览器服务支持。

而VBS并不支持，Edge，Chrome等浏览器。

【IE不能使用后】使用Chrome插件，自定义JS插件操作浏览器

■举个简单VBS操作IE的例子

在打开的窗口中，找到百度的窗口（【百度一下，你就知道】）

输入abc，

点击【百度一下】按钮

AutoSetting()Function AutoSetting()msgbox "111"' get Operate windowDim objPageSet objPage = GetObj()msgbox "222"Dim entry Set entry = objPage.document.getElementById("kw")msgbox "333"entry.Focusentry.Value = "abc"' when element no Id and Name , Use this Dim objsSet objs = objPage.document.getElementsByTagName("button")If objs Is Nothing thenMsgBox "No Page Opened"WScript.QuitEnd IFFor Each obj In objsIf obj.innerText = "百度一下" Thenobj.Focusobj.Click'obj.ValueWScript.Sleep(70)Set obj = NothingExit ForEnd IfNextEnd FunctionFunction GetObj()Dim objWindowSet objShell = CreateObject("Shell.Application")For Each objWindow In objShell.WindowsIf InStr(objWindow.LocationName,"百度一下，你就知道") Then' Wait the page load completedDo Until objWindow.document.ReadyState = "complete"WScript.Sleep(70)Loop' set the return ObjectMsgbox "Find"Set GetObj= objWindow' clear varSet objShell = NothingExit FunctionEnd IfNext' when Not Find Msgbox "Not Find"Set objShell = NothingSet GetObj= NothingEnd Function

---

其他获取元素操作

document.getElementById("XXXX").Value = "11111";document.getElementsByName("commit")[0].Click;document.forms[0].submit();

■如何让IE打开是IE，而不是Edge

选择从不

■其他更多VBS相关

・更多操作一览

VBS_sun0322-CSDN博客

・按键shift ctrl alt

VBS操作 PDF时，常用快捷键（Adobe Acrobat Reader）_sun0322-CSDN博客

・打开图片，以幻灯片形式显示

blackScreen()Function blackScreen()Dim wshShellSet wshShell = Wscript.CreateObject("Wscript.Shell")wshShell.Run("C:\test\black.png")WScript.Sleep 1000wshShell.SendKeys "{F5}"End Function

・操作截图软件

Dim wshShellSet wshShell = Wscript.CreateObject("Wscript.Shell")wshShell.Run("%windir%\system2\SnippingTool.exe")WScript.Sleep 3000‘获取画面wshShell.Sendkeys "^+{N}"‘或者 wshShell.Sendkeys "^{N}"‘保存画面wshShell.Sendkeys "^+{S}"‘或者 wshShell.Sendkeys "^{S}"

・VBS调用VBA中的函数

如何使用VBS调用VBA函数_sun0322-CSDN博客_vbs 调用vba

・VBS操作Excel数据

VBS操作Excel数据_sun0322-CSDN博客_vbs读取excel数据

・关闭所有VBA程序

taskkill /f /im wscript.exe

・xxx

■使用Chrome插件，自定义JS插件操作浏览器

1.代码

manifest.json

{"name": "第一个Chrome插件","manifest_version": 3,"version": "1.0","description": "我的第一个Chrome插件,sss gogo!","content_scripts": [{"matches": ["/"],"js": ["myscript.js"]}]}

myscript.js

test002();function test002() {alert("HelloWorld Begin");var myVar = '11111';// alert(myVar );// 以下代码没有效果// document.getElementById("kw").value="aaa"document.querySelector("#kw").value="123";// document.forms[0].submit();alert("End");}