o this.
on error resume Next
Set ie=WScript.CreateObject("
internetE
xplorer.Application")
set
arg=wscript.
arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.
navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.Ready
state=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"