批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS如何循环刷新网页20次后，再重新循环刷新30次后终止退出？ [打印本页]

作者: erjnasrtnws 时间: 2016-1-9 08:09 标题: VBS如何循环刷新网页20次后，再重新循环刷新30次后终止退出？

求助给位朋友把代码改造下循环20次后终止并且开始另一个循环30次后终止退出！！！！谢谢了

下面代码是一直循环刷新(f5)网页（网页的快捷键是f4）

set ws=wscript.createobject("wscript.shell")
  
ws.SendKeys "{F4}"

do
wscript.sleep 75000
ws.sendkeys "{f5}"
loop
    
ws.SendKeys "{ENTER}"
复制代码

希望可以改造成现在（快捷键F4的）网页循环刷新（F5）20次后终止再循环（F5）刷新（快捷键F6）的网页30次后终止退出关闭所有窗口包括VBS后台，恢复到电脑刚开机状态！！
如果可以的化  还想加个欧外的功能当然不加也可以呵呵就是再VBS运行时  我按快捷F10 就终止循环，关闭所有窗口包括VBS后台，恢复到电脑刚开机状态！！

本人菜鸟试了几次写不出来  只有麻烦高手帮忙再次谢谢

补充1 现在运行任何一个vbs脚本后对应的wscript.exe进程都不退出，各位高人救命啊！如何VBS自己销毁这个进程！！批处理也行  求解决方法

作者: erjnasrtnws 时间: 2016-1-9 08:11

本帖最后由 erjnasrtnws 于 2016-1-9 15:40 编辑

下次注意了谢谢提醒！！！！

作者: erjnasrtnws 时间: 2016-1-9 13:35

本帖最后由 erjnasrtnws 于 2016-1-9 15:46 编辑

求助给位朋友把代码改造下循环20次后终止并且开始另一个循环30次后终止退出！！！！谢谢了

下面代码 ...
erjnasrtnws 发表于 2016-1-9 08:09

求关注求指点
set ws=wscript.createobject("wscript.shell")

ws.sendkeys "{f3}"
Dim Count:Count = 0 '定义一个变量，并赋值为0
For i = 1 To 10 '循环10次
Count = Count + 1
ws.sendkeys "{f5}"
wscript.sleep 5000
If Count = 5 Then '当变量Count的值为5时，退出当前循环
      Exit For
End If
Next

ws.sendkeys "{f6}"
Dim Counte:Counte = 0 '定义一个变量，并赋值为0
For i = 1 To 10 '循环10次
Counte = Counte + 1
ws.sendkeys "{f5}"
wscript.sleep 5000
If Counte = 5 Then '当变量Count的值为5时，退出当前循环
      Exit For
End If
Next
wscript.quit

自己搞得不好用比较混乱自己目前也在努力改进  现在运行任何一个vbs脚本后对应的wscript.exe进程都不退出，各位高人救命啊！如何VBS 批处理销毁这个进程 ???

求指点求代码  求帮助

欢迎光临批处理之家 (http://bathome.net./)