VBS如何循环刷新网页20次后，再重新循环刷新30次后终止退出？

erjnasrtnws

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


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

1. set ws=wscript.createobject("wscript.shell")
   
2.   
   
3. ws.SendKeys "{F4}"
   
4. 
   
5. do
   
6. wscript.sleep 75000
   
7. ws.sendkeys "{f5}"
   
8. loop
   
9.    
   
10. ws.SendKeys "{ENTER}"

复制代码

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


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

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

erjnasrtnws

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

erjnasrtnws

求助给位朋友 把代码改造下 循环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 批处理销毁这个进程 ???

求指点 求代码  求帮助