VBS中延时怎么做？？？？

例如想先置一，延时2s再清零，达到给PLC发送脉冲信号目的。用VBS做，怎么做。忘高手指教，别告诉我左键按下置一，释放清零啊。我的要求是VBS脚本中怎么做延时。

调用系统时间吧，是没法用计时器完成的，因为就没有计时器。

VBS鼠标动作触发事件CODE如下：
修改后代码
Dim mytime,bs
Set bs=HMIRuntime.Tags("BoolShow") 'BoolShow是一个为测试建立的内部bool型变量
bs.Write(1) '置1（高电平，波形上升）
mytime = Timer+2 '预设置1时间为2秒（高电平保持时间）
If mytime<86400 Then
Do Until Timer>mytime '直到2s后再执行复位0
'空循环时间2s
Loop
bs.Write(0) '执行复位0（低电平，波形下降）
Else
Do Until (Timer>(mytime - 86400) And Timer<5)
Loop
bs.Write(0)

原始代码
Dim mytime,bs
Set bs=HMIRuntime.Tags("BoolShow") 'BoolShow是一个为测试建立的内部bool型变量
bs.Write(1) '置1（高电平，波形上升）
mytime = Timer+2 '预设置1时间为2秒（高电平保持时间）
Do Until Timer=mytime '直到2s后再执行复位0
'空循环时间2s
Loop
bs.Write(0) '执行复位0（低电平，波形下降）

写一个2S延时的脉冲输出脚本，给那些在找如何做延时的朋友。（VBS示例！)
希望大家多做交流！
[color=red] 我所写的原始代码有一个bug：在23:59:58-0:0:0这两秒之间会失效，新的代码我已经修改了，通过测试。为了让大家清楚发现这个bug，在本贴中保留了原始代码。感谢youhm发现这个bug。
因为当时在写这个代码的时候是为了帮助一个论坛朋友完成这个脚本实现延时脉冲功能，所以实现了这个功能后，并没有对其多加考虑。其实还有一个需要特别说明的是：这个脚本，如果触发一次后，会脉冲置位2s，但是如果你连续点击2次（极短的时间内）会出现，出现0变成1后保持2秒变成0，马上（极其短，短到wincc的采样几乎采集不到的时间片刻）又变成1保持2秒再变成0。所以你会看上去点两次就表现出1状态保持了4秒[/color]
为什么呢？因为事件触发以后会在一个队列里，你触发了两次那么就会执行两次。
见：http://www.ad.siemens.com.cn/club/bbs/post.asp?a_id=856699&pno=1&b_id=5&s_id=17#856699

真乃高人也

使用Timer要注意一点，0：00时Timer的值会跳变为0，所以以上程序在23：59：59时执行将会有问题

孤陋寡闻了。不不知道这个Timer可以直接使用吗？

Timer可以直接使用，它表示0点以来所经过的时间秒数

呵呵 我用全局脚本做了一个timer，然后其他全局脚本调用timer中的时间变量

Timer是可以直接用的，它返回的值是经过子夜0:0:0以后的秒数

谢谢Ken大侠，嗯，我就是用的你原来脚本，另外我也不用考虑你说的连续点击问题，因为我是把你的脚本放在二次确认后的脚本后边，二次确认后才执行。再次感谢。二十四小时里有2s钟有bug，我也不改了。呵呵。

别介啊！首先很高兴你会再一次来看这个帖子！但是我要说的是：
我原来写的脚本确实是在每天的23:59:58-0:0:0的这2秒之间确实是有Bug的！既然我都给出了新的脚本，还是用新的脚本吧，新的脚本更安全，更完善！
至于说脚本会在队列中保持执行的问答题，这个是系统就是这样的！你加了一个确认触发，是个很不错的做法！