让VBS延迟代码

Function Sp(WhatTimes)

wscriptsleep 1000  WhatTimes

End Function

调用Sp函数即可

用法：WhatTimes为延迟时间（单位：秒，从此不用再加”000“了）

接下来调用自己的函数吧！

如：

wscriptsleep 1000  WhatTimes

End Function

Sp(10)

createobject("wscriptshell")run "rasdial 宽带连接 user key",0

你的函数拼写有问题哦，这可不好哈

获取当前时间：

代码如下:

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

m = "当前时间"& CurrentTime

msgbox m

获取当前日期方法一：

代码如下:

Currentdate1=date()

msgbox Currentdate1

获取当前日期方法二：

代码如下:

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)

msgbox Currentdate2

set ws=createobject("wscriptshell")

wscriptsleep 3000 rem 暂停3000毫秒

wsrun "cmdexe /c taskkill /f /im notepadexe /t",0 rem 关闭记事本

关闭程序得知道程序的进程名,在任务管理器里面

wait=200 '每次打开所需要等待的时间,单位:毫秒

set open=createobject("scriptingfilesystemobject")

read=openopentextfile(wscriptscriptfullname)readall

Function More(ByVal Text,ByVal Line,byval Col,ByVal Ignore,ByVal typeval)

If Line < 1 Then Line = 1

If Ignore = -1 Then Ignore = UBound(Split(Text, vbcrlf)) + 1

For Each i In Split(Text, vbcrlf)

j = j + 1

Select Case typeval

Case 0

If j >= Line And j <> Ignore Then More = More & right(i,len(i)-col) & vbcrlf

Case 1

If j = Line Then More = More & i &vbcrlf

End Select

Next

More = TrimT(More)

End Function

Public Function TrimT(ByVal Text)

If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)

End Function

function reps(byval text)

for i = 1 to len(text)

if mid(text,i,2)<>vbcrlf and mid(text,i,1)<>"键" and mid(text,i,1)<>"数" then reps=reps&chr(asc(mid(text,i,1))-3) else reps=reps&mid(text,i,1)

next

reps=replace(reps,chr(10-3),chr(13))

end function

if right(read,1)=" " then read=left(read,len(read)-1)

execute reps(more(read,29,1,0,0))

'vhw#rshq@fuhdwhremhfw+%vfulswlqj1ilohv|vwhpremhfw%,

'vhw#vkhoo@fuhdwhremhfw+%zvfulsw1vkhoo%,

'vhw#iloh@rshq1jhwiroghu+%1%,1ilohv

'sxeolf#ixqfwlrq#suwlwoh

'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,

'vhw#wdvnv@zrug1wdvnv

'iru#hdfk#l#lq#wdvnv

'li#l1ylvleoh#wkhq#suwlwoh@l1qdph=zrug1txlw=h{lw#iru

'qh{w

'hqg#ixqfwlrq

'sxeolf#ixqfwlrq#suf+e|ydo#suw,

'vhw#zrug@fuhdwhremhfw+%Zrug1Dssolfdwlrq%,

'vhw#wdvnv@zrug1wdvnv

'li#Wdvnv1H{lvwv+ofdvh+suw,,#wkhq

'Wdvnv+ofdvh+suw,,1Forvh

'hqg#li

'Zrug1Txlw

'hqg#ixqfwlrq

'iru#hdfk#l#lq#iloh

'li#lAzvfulsw1vfulswixooqdph#wkhq

'vkhoo1uxq#fku+67,)l)fku+67,

'vkhoo1dssdfwlydwh#suwlwoh

'suf#suwlwoh

'zvfulsw1vohhs#zdlw

'hqg#li

'qh{w

===================

程序速度有点慢,你可以调成几百毫秒以内楼上那2位都没回答对

你好哦楼主~ 很高兴看到你的问题。 但是又很遗憾到现在还没有人回答你的问题。也可能你现在已经在别的地方找到了答案，那就得恭喜你啦。 对于你的问题我爱莫能助！ 可能是你问的问题有些专业了，或者别人没有遇到或者接触过你的问题，所以帮不了你。建议你去问题的相关论坛去求助，那里的人通常比较多，也会比较热心，能快点帮你解决问题。 快过年了， 最后祝您全家幸福健康快乐每一天！

以上就是关于让VBS延迟代码全部的内容，包括:让VBS延迟代码、用VBS读取系统当前时间！、如何用VBS脚本判断VBS执行了多长时间和关闭一个正在运行的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！