请教高手，代码运行过程中如何加上超时机制

elexy

Block(1)
FileCopy(\\192.168.1.2\iso\3Dmax.iso,"D:\",1)
........
........
Block(0)
Exit
因为需要复制完文件后面的代码才能生效，但是由于文件体积大，局域网不稳定引起传输很慢等因素，假设卡住很长时间，那么用户键鼠就得不到解锁。所以我想设置一个超时的机制，在FileCopy这个命令开始执行，同时开始计时，超过600秒程序就提示一下然后完全退出。由于程序都是一句接一句执行的，上句不执行完下句就不执行，我不知道该怎么做？？？请教各位高手，感激不尽！！！

lxz

sleep.....

elexy

等FileCopy执行完了，再执行sleep不是空等吗？？？

republican

回复 3# elexy

filecopy没有超时的吧。

要么多进程，要么换个思路。

elexy

多进程.....

seeking

用第二个进程等待，到时间就做一个结束标志

elexy

有没有具体点的代码，搞不懂多进程怎么写?

朱雅琼

FileExists或filegetsize试一下!

ghl781258

adlibregister()函数和timer（）函数，综合运用下。

AUFS

Dim $i;定义I为秒

Break(1)
AdlibEnable('_ti',1000)
FileCopy('\\192.168.1.2\iso\3Dmax.iso',"D:",1)
;........
;........
Break(0)
Exit

Func _ti()
$i += 1
If $i = 60 Then 
MsgBox(64,'提示','超时.');1分钟提示超时
Exit
EndIf
EndFunc

menfan1

楼上正解。。

republican

10 11楼测试过吗？

AU3在Filecopy处阻塞了,此时 adlib 和 time 就是浮云了。

xianhou

创建一个新的窗口，在那个窗口里 filecopy。

_ddqs.

10 11楼测试过吗？

AU3在Filecopy处阻塞了,此时 adlib 和 time 就是浮云了。
republican 发表于 2010-11-6 20:28

应该不会阻塞
先adlib 注册函数，其运行形式是与其他代码并发运行的，而非某代码所独占！
循环挂起,偶就有试过。。。

republican

回复 14# _ddqs.

在程序有空闲的时候，adlib 和 timer确实能够执行...

但在阻塞语句处，adlib就是个无用功...

adlib及time必须得等到正在执行的该行代码执行完后方能运行，循环不循环的与adlib能否执行无关.

这么说, adlibreg 10s 后执行,

使用以下代码确实没问题.
while 1
   $i +=1
   sleep(50)
wend

但如果你使用filecopy，复制一个100G的文件，该行代码大概需要1分钟.

那么，在此期间，adlib不起作用。

但当filecopy一完，马上执行5-6次adlib的函数。



要使adlib可以使用，需要使用多线程，但Au3现时无成熟的多线程代码。

所以目前只有两个方法：
1. 新开多进程直接终止。
2. 使用非阻塞性代码。

当然以后者最容易实现。

这样，需要将filecopy函数拆分，使用以下代码实现.

a = fileopen(远程)
b = fileopen(本地)
while 1
   d = fileread(a,1024)
   filewrite(b,d)
   sleep(10)
wend
fileclose(a)
fileclose(b)

只有当程序为非阻塞时，定时器才能执行。

换句话说，在同一线程中，任何一条语句均是阻塞的，只是阻塞时间有长有短。定时器需在程序代码执行的间隔时间中才能被触发。