[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS如何循环刷新网页20次后,再重新循环刷新30次后终止退出?

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


下面代码是一直循环刷新(f5)网页(网页的快捷键是f4)
  1. set ws=wscript.createobject("wscript.shell")
  2.   
  3. ws.SendKeys "{F4}"
  4. do
  5. wscript.sleep 75000
  6. ws.sendkeys "{f5}"
  7. loop
  8.    
  9. ws.SendKeys "{ENTER}"
复制代码
希望可以改造成 现在(快捷键F4的)网页循环刷新(F5)20次后终止 再循环(F5)刷新(快捷键F6)的网页30次后终止退出   关闭所有窗口 包括VBS后台,恢复到电脑刚开机状态!!
如果可以的化  还想加个欧外的功能 当然不加也可以 呵呵   就是再VBS运行时  我按快捷F10 就终止循环,关闭所有窗口 包括VBS后台,恢复到电脑刚开机状态!!


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

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

评分人数

    • pcl_test: 勿发笼统、无意义的标题PB -4
这么好的论坛!!!!

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

下次注意了  谢谢提醒!!!!
这么好的论坛!!!!

TOP

本帖最后由 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 批处理销毁这个进程 ???

求指点 求代码  求帮助
这么好的论坛!!!!

TOP

返回列表