批处理之家 » VBS求助&讨论 » [已解决]vbs如何1分钟后跳出循环

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

返回列表发帖

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2014-6-26 19:17 | 只看该作者

[问题求助] [已解决]vbs如何1分钟后跳出循环

本帖最后由 522235677 于 2014-6-27 18:06 编辑

do 
...........
loop
复制代码

该代码会无限循环，怎样能在循环开始后1分钟跳出循环

1 评分人数

Batcher: 感谢给帖子标题标注[已解决]字样PB + 2

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2014-6-26 19:32 | 只看该作者

一秒后退出 vbs

WScript.exe /T:1 test.vbs
复制代码

超过一秒结束循环

t=timer
do while timer-t<1
...........
loop
复制代码

网页的话，可以这样

id=setTimeOut("loopSub()",0)
setInterval("clearTimeOut(id)",1000)
复制代码

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

3楼

发表于 2014-6-26 19:39 | 只看该作者

回复 2# CrLf

Dim objShell,ret,wshshell
set wshshell=createobject("wscript.shell") 
Set objShell = CreateObject("WSCript.Shell")

t=timer
do while timer-t<WScript.Arguments(1)
  ret = objShell.Appactivate(WScript.Arguments(0))
    If ret Then
    wshshell.sendkeys "{tab}"
    wscript.quit (10)
end if
loop
复制代码

我这样为什么没有效果，我第二个参数是10

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

4楼

发表于 2014-6-26 20:04 | 只看该作者

回复 3# 522235677

你都 wscript.quit 了，当然不循环了

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

5楼

发表于 2014-6-26 20:06 | 只看该作者

回复 4# CrLf

不是的，我的这个还是一直在循环，If ret Then 都没有达成，所有还没quit

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2014-6-26 21:43 | 只看该作者

回复 5# 522235677

变量类型问题：

CDbl(WScript.Arguments(1))
复制代码

一般会自动转换，不懂这里为什么不会，没研究

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

7楼

发表于 2014-6-26 22:04 | 只看该作者

回复 6# CrLf

提示变量使用了一个vbscript中不支持的automation 类型 CDbl

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

8楼

发表于 2014-6-26 22:40 | 只看该作者

回复 7# 522235677

我这是正常的：
测试用 cscript test.vbs "任意一个不存在的标题" 5 引用内容为如下代码的 vbs

Dim objShell,ret,wshshell
set wshshell=createobject("wscript.shell") 
Set objShell = CreateObject("WSCript.Shell")

t=timer
do while timer-t<CDbl(WScript.Arguments(1))
  ret = objShell.Appactivate(WScript.Arguments(0))
    If ret Then
    wshshell.sendkeys "{tab}"
    wscript.quit (10)
end If
Loop
复制代码

那要不分别试试其他的办法，比如 CInt(WScript.Arguments(1)) 强制int类型转换和 WScript.Arguments(1)/1 自动double类型转换

1 评分人数

522235677: 1技术 + 1

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 6 Rank: 6

帖子: 695
积分: 1692
技术: 61
捐助: 20
注册时间: 2011-3-31

9楼

发表于 2014-6-27 18:06 | 只看该作者

回复 8# CrLf

是我写错了……

Rank: 5 Rank: 5

帖子: 715
积分: 1298
技术: 151
捐助: 0
注册时间: 2012-11-1

10楼

发表于 2015-1-3 07:55 | 只看该作者

Timer() 不会在零点抽风？让我们严谨点： XD

Const nTimeOut = +5  ' 超时时间(秒)
Dim dtStart, dtEnd
dtStart = Now()
dtEnd = DateAdd("s", nTimeOut, Now())
Do While DateDiff("s", Now(), dtEnd) > 0
	WScript.Sleep 200
	' Do Something ..
Loop
' Do Something ..
Msgbox DateDiff("s", dtStart, Now()) & " 秒过去鸟。不要嫌代码长长长 ..."
复制代码

『千江有水千江月』千江有水，月映千江；万里无云，万里青天。 http://yu2n.qiniudn.com/

Rank: 2

帖子: 84
积分: 109
技术: 2
捐助: 0
注册时间: 2011-10-5

11楼

发表于 2015-1-8 20:03 | 只看该作者

加上sleep方法进行延迟，否则会进入死循环的。