'備注：URL篩選小工具
 '防止出現(xiàn)錯誤
On Error Resume Next
'vbs代碼開始----------------------------------------------
Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox "請把網(wǎng)頁拖到本程序的圖標(biāo)上！",,"提示"
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 "該網(wǎng)頁文件中未出現(xiàn)網(wǎng)址！",,"提示"
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=""
For Each Match In Matches
s=s & "<a href=""" & Match.Value & """>" & Match.Value & "<p>"
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 "網(wǎng)址列表已經(jīng)生成！",,"成功"

'vbs代碼結(jié)束----------------------------------------------