87,907
社区成员
发帖
与我相关
我的任务
分享使用wscript，为何总是不成功
我想做个挂起脚本执行线程1秒的试验，但总是提示WScript未定义，
请问错在哪里？另外如果不用WScript.sleep，还有其他方法来挂起线程吗？
<html>
<head>
</head>
<body>
<script language="VBScript">
WScript.Sleep 100
</script>
</body>
</html>
请问错在哪里？另外如果不用WScript.sleep，还有其他方法来挂起线程吗？
<html>
<head>
</head>
<body>
<script language="VBScript">
WScript.Sleep 100
</script>
</body>
</html>
...全文
请发表友善的回复…
发表回复
astra1 2003-09-29
- 打赏
- 举报
WScript是WSH[Windows Script Host]的对象
ASP中当然不能用啦
如果你问的是网页脚本的延时,那只有setTimeout方法
但这个也不是JavaScript语言核心方法哦(就是只能在网页脚本中使用,WSH这类的不行)
ASP中当然不能用啦
如果你问的是网页脚本的延时,那只有setTimeout方法
但这个也不是JavaScript语言核心方法哦(就是只能在网页脚本中使用,WSH这类的不行)
网址URL筛选小工具
'备注：URL筛选小工具
'防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "请把网页拖到本程序的图标上！",,"提示"
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count - 1
p=Wscript.Arguments(i)
With CreateObject("Adodb.Stream")
.Type=2
.Charset="GB2312"
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= "[A-z]+://[^""<>()\s']+"
re.Global = True
If Not re.Test(s) Then
Msgbox "该网页文件中未出现网址！",,"提示"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
s=s & "" & Match.Value & "
" Next re.Pattern= "&\w+;?|\W{5,}" s=re.Replace(s,"") .Position=0 .setEOS .WriteText s .SaveToFile p & "'s URLs.html",2 .Close End With Next Msgbox "网址列表已经生成！",,"成功" 'vbs代码结束----------------------------------------------
