中国DOS联盟

'&cls&(if "%~1"=="" (echo Usage:&echo        links [URL])else cscript/nologo /e:vbs "%~f0" "%~1")&goto:eof




GetLink WSH.Arguments(0)

Sub GetLink(sURL)
        With CreateObject("InternetExplorer.Application")
                .Navigate sURL
                Do While (.Busy Or .ReadyState <> 4)
                        WSH.Sleep 100
                Loop
                For Each sLink In .Document.Links
                        WSH.Echo sLink
                Next
                .Quit
        End With
End Sub