简易vbs脚本实现在浏览器自动刷新网页。
需求:某个网页的登录具有时效性,一段时间不操作就会推出登录。并且只是简单F5刷新的话,一段时间之后,可能会由于异次元的乱流导致地址栏跳转到有点关系却又莫名其妙的地址。
方案:采用vbs脚本模拟按键,就不需要像其他语言一样准备运行和编码环境了。
可以根据各自需要修改里面的各项等待时间,单位为毫秒,1000毫秒=1秒。
使用流程如下:
- 在运行脚本前,先手动复制一下当前的网站页面地址。
- 双击脚本文件,快速打开浏览器并保持在网站页面的Tab。
- 脚本运行逻辑:
等待5秒(给用户打开浏览器的时间)
模拟按键F5,刷新页面
模拟按键CTRL+L定位到浏览器地址栏并全选(目前实验了Firefox和Google浏览器,两者都支持)
模拟按键CTRL+V粘贴之前手动复制的网站页面地址(为了解决以前单纯执行刷新,一段时间后网页会崩溃到其他地址的问题)
模拟按键ENTER跳转到网站页面
代码如下:
Dim objShell
Set objShell = CreateObject("Wscript.Shell")
do
WScript.Sleep 5000
objShell.SendKeys "{F5}"
WScript.Sleep 1000
objShell.SendKeys "^l"
WScript.Sleep 1000
objShell.SendKeys "^v"
WScript.Sleep 1000
objShell.SendKeys "{ENTER}"
WScript.Sleep 2000
loop
另外附上kill脚本,结束上述vbs脚本。
Dim objShell
set objShell= wscript.createobject("wscript.shell")
objShell.run "taskkill /im wscript.exe /f ",0 ,true
- 点赞
- 收藏
- 分享
- 文章举报
- vbscript错误代码及对应解释大全/VBScript 语法错误
- VB.net与C#转换网址
- vb,wps,excel 提取括号的数字
- vb 案例学习
- vba,自定义公式,农历互转公历,excel ,wps
- vba控制图表,excel图表,一键完成
- vba 两个表 信息合体一个表格
- 利用nexus2.14搭建mavbe私服
- VB编程方法点滴
- [VGA ] VBE unknown Display Interface b0c5解决办法
- SD--利用RVV05ivb更新SD的单据索引器 【转】
- VBA中实现Txt文本内容切分,贴到excel中
- VBA学习记录
- Excel VBA 的基本操作
- AUTOCAD VBA 初学
- [新手点滴] C# vs VB.NET 哪个好?
- 学习Excel VBA(一)——VBA理论初步
- VB.NET入门 ANDALSO 和OrElse 之于 AND,OR
- vb实现元胞自动机 生命
- vb实现 心理学实验 IAT内隐联想测试