<html>
<head>
<meta charset="windows-1251">
</head>
<body>
<script language="vbscript">
Sub window_onload()
WriteLn "Ждём секунду."
Sleep 1000
WriteLn "Ждём 5 секунд."
Sleep 5000
WriteLn "Ждём 3 секунды."
Sleep 3000
WriteLn "Конец"
End Sub
Sub WriteLn(Text)
document.body.innerHtml = document.body.innerHtml & Text & "<br>"
End Sub
Sub Sleep(ByVal mSec)
CreateObject("WScript.Shell").Run "ping 0.0.0.0 -w " & Clng(mSec), 0, True
End Sub
</script>
</body>
</html>
<html>
<head>
<title>Title</title>
<meta http-equiv=Content-Type content="text/html; charset=windows-1251"/>
<script language="VBScript">
Dim i
Sub window_onload()
SelectWaiter
End Sub
Sub SelectWaiter()
Select Case i
Case 0
WriteLog "Ставим таймаут секунду."
Wait 1000, "Wait_complete()"
Case 1
WriteLog "Ставим таймаут 5 секунд."
Wait 5000, "Wait_complete()"
Case 2
WriteLog "Ставим таймаут 3 секунды."
Wait 3000, "Wait_complete()"
Case 3
WriteLog "Конец !"
End Select
End Sub
Sub Wait(Timeout,callback)
setTimeout callback, timeout
End Sub
Sub Wait_complete()
i = i + 1
SelectWaiter()
End Sub
Sub WriteLog(Text)
logDiv.innerHtml = logDiv.innerHtml & Text & "<br>"
End Sub
</script>
</head>
<body>
<div id="logDiv"></div>
</body>
</html><html>
<head>
<TITLE>Title</TITLE>
<META http-equiv=Content-Type content="text/html; charset=windows-1251"/>
<script language="VBScript">
Function main()
sleep 1,"1"
sleep 5,"5"
sleep 3,"3"
End function
Function sleep(sTime,text)
If (sTime > 0) Then
sTime = sTime - 1
setTimeOut "sleep "&sTime&","&text,1000
Else
document.getElementById("log").innerHtml = document.getElementById("log").innerHtml & "[" & cstr(time()) & "] " & text & "<br>"
End If
End Function
</script>
</head>
<body onLoad="VBScript: main()">
<div id="log"></div>
</body>
</html>Хотелось бы чтоб вевел в порядке 1,5,3, как и задано, а выводит 1,3,5 (значит стартуют одновременно)
]]>Пример кода для наглядности:
Function Func1()
...
End Function
Function Func2()
...
End Function
Function Func3()
...
End Function
Do
Func1()
Func2()
Func3()
Loop