Edge或IE访问局域网海康威视监控自动填写用户名密码的脚本(VBS)

电脑访问监控每次手动输入比较繁琐, 现在大都是win10/11系统使用Edge浏览器和IE高版本必须设置兼容模式才能访问了.
常规电脑使用VBS脚本可做到自动化填写登录.
· 路由/监控后台的网络设置里面把局域网ip地址固定一下.
· 安装海康威视 WebComponents(也可打开浏览器后访问监控在线安装并允许插件运行)
· 在Win11 24H2系统以Edge为例, 设置
  -- 默认浏览器-兼容性(仅不兼容站点)
  -- 允许在Internet Explorer 模式下重新加载网站(IE模式) 允许
  -- Internet Explorer模式页面, 添加局域网监控的地址.
· 定义VBS脚本, Edge/IE/ip地址/用户名和密码.

↓Edge设置:


↓自动填写效果演示(运行脚本以后就不要点击鼠标/键盘, 等待自动填写并登录):


VBS自动填写的脚本代码 [复制以下文本粘贴到记事本另存为xxx.vbs, 保存类型-所有文件(*.*)]:

1. Dim a
   
2. Set a=Wscript.CreateObject("Wscript.Shell")
   
3. a.run "msedge http://192.168.6.254"
   
4. a.appactivate("登录")
   
5. Wscript.Sleep 2300
   
6. a.SendKeys "+"
   
7. a.SendKeys ("{a}{d}{m}{i}{n}")
   
8. Wscript.Sleep 500
   
9. a.SendKeys "{TAB}"
   
10. Wscript.Sleep 500
    
11. a.SendKeys ("{6}{6}{6}{6}{6}{6}{6}{6}{6}")
    
12. Wscript.Sleep 200
    
13. a.SendKeys"{Enter}"
    
14. a.run "taskkill /im wscript.exe /f ",0 ,true

复制代码

说明和调整:
· 第二行里面的 a.run "msedge http://192.168.6.254" :是启动Edge访问局域网地址.
  -- 如果是IE使用就替换成 iexplore.exe http://192.168.6.254
· a.SendKeys ("{a}{d}{m}{i}{n}") : 是用户名admin
· a.SendKeys ("{6}{6}{6}{6}{6}{6}{6}{6}{6}") : 是密码666666666
· Sleep后面数字是毫秒延迟, 可根据硬件配置调整大小.
· 发送桌面自定义图标美观一些.

可以呀老大，多发些此类帖子，掀起一股学习潮。

很给力的技术贴

给力，感谢分享