利用VBScript打开指定网页

Set objeShell = CreateObject("Wscript.Shell") objeShell.Run("http://www.baidu.com")

新建脚本test.vbs 1.打开谷歌浏览器 Dim wsh Set wsh = CreateObject("wscript.shell") set wshshell=CreateObject("wscript.shell") wshshell.Run"chrome.exe http://localhost:9527/#/login" '如果浏览器打不开添加绝对路径，后面添加访问的路径 wsh.AppActivate " " ' 引号中填浏览器最上面的标题 WScript.Sleep 1000*4

On Error Resume Next Set WMI = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set A = WMI.ExecQuery("Select * From Win32_DesktopMonitor") For Each B in A     W = B.ScreenWid

---恢复内容开始--- 方法一 废话不多说，源码在下，复制一下就可以，记得后缀是vbs，就ok 方法二 要么直接下载打开网页.js \然后吧js改为vbs后缀 1 https://user.qzone.qq.com/1335476765 改为你想要打开的的网页 2来我空间看看吧 可以改为其他的记得写入时是英文输入法 a=msgbo...

Set ws = WScript.CreateObject("WScript.Shell") ws.run("www.baidu.com")

WScript.Sleep 1000 * 3 '暂停3秒，因为打开网页需要一段时间。a.run "http:\\www.baidu.com" '登陆界面的地址。a.SendKeys "123456" '密码。'a.SendKeys "abc" '帐号。

在计划任务中添加Run.vbs 或 Run.jsRun.vbs ' Create an instance of IEDim IESet IE = CreateObject("InternetExplorer.Application") 'Run your URLie.navigate("http://spring.cnblogs.com/")ie.visible=1'Clean upSet ...

Windows 11 已经将 IE 浏览器默认跳转到了 Edge，这导致如果不使用第三方浏览器的话，报名教师资格证变的尤其麻烦。即使是从“运行”输入 iexplore 打开的仍然是 Edge。但是我们仍然可以通过 VBS 脚本来打开 IE 浏览器。此法无需替换 ieframe.dll 文件。

本来是想通过JS实现对其他页面的控制，发现跨域无法获取页面DOM来操作。接着考虑bat，发现也实现不了，于是想到vbs。vbs还是很强大啊，病毒之类很多都是vbs脚本啊。vbs打开浏览器，然后通过dom来操作页面，可以实现自动填写内容和按钮点击等。摸索了几个常用的，代码如下： 1、网页文本框赋值并提交按钮 Dim wsh,ie,btn,con Set ie = WScript.Crea