使用方法：将下面的代码保存为gimoo.vbs
然后拖动你保存在本地的htm页面，拖放在这个vbs即可

'备注：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 & "<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 "网址列表已经生成！",,"成功" 

'vbs代码结束---------------------------------------------- 

VBScript 文件操作代码小结
创建文本文件SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.CreateTextFile("C:FSOScriptLog.txt")检察文件是否存在SetobjFSO=CreateObject("Scripting.FileSystemObject

vbs 错误捕获器，用于捕获内部错误并进行手工处理
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改使用完毕要记得关闭错误捕获器onerrorgoto0语法如下:=======

查看SQL状态的vbs
'****************************'*byr05e'*检验SQLSERVER是否在这机器上工作'****************************strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!