第一步：新建一个VBS的项目模块：

Sub CreateSleepFile(lngMS)

Dim MyFSO, MyFile

Set MyFSO = CreateObject ("s cripting.FileSystemObject")

Set MyFile = MyFSO.CreateTextFile( "D:\MySleep.vbs", True )

MyFile.WriteLine "Ws cript.Sleep " & CLng(lngMS)

MyFile.Close

End Sub

第二步：在画面中添加一个按钮：Button1，设置其Text属性为“Sleep”，在其鼠标单击事件中，选VBS动作，代码如下：

Sub OnClick(Byval Item)

Dim WshShell

Item.Text="Sleep Start..."

Call createsleepfile(5000)

Set WshShell = CreateObject("Ws cript.Shell")

WshShell.Run "D:\MySleep.vbs", ,True

Item.Text="Sleep End"

End Sub

城外斑竹教过这种方法实现在WINCC里用VBS实现延时，我想问一下如果不要通过读文件的方式实现延时，而是直接写代码延时要怎么做？在网上看到VBS延时
就ws cript.sleep 1000，但我试了不行。