Question

让VBS延迟代码

createobject("wscript.shell").run"rasdial 宽带连接 user key",0 怎么让代码延迟10s执行

Answer 1

Function Sp(WhatTimes)
wscript.sleep 1000 * WhatTimes
End Function

调用Sp函数即可

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

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

如：

Function Sp(WhatTimes)
wscript.sleep 1000 * WhatTimes
End Function
Sp(10)
createobject("wscript.shell").run "rasdial 宽带连接 user key",0

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

追问

照你的执行，有错误，第一行

追答

我早就改了，亲测没错，要不再发个

Function Sp(WhatTimes)
wscript.sleep 1000 * WhatTimes
End Function
Sp(10)
createobject("wscript.shell").run "rasdial 宽带连接 user key",0

Answer 2

Option Explicit
Dim atime As Variant
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '该声明得到系统开机到现在的时间(单位：毫秒)
Public Function Sleep2(t As Long)
Dim Savetime As Long
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + t '循环等待
DoEvents '转让控制权
Wend
End Function '在要延时的地方调用

Answer 3

Wscript.Sleep 10000
'Or 1000*10
createobject("wscript.shell").run"rasdial 宽带连接 user key",0

Answer 4

前面加上
wscript.sleep 1000*10