联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
'&cls&(if "%~1"=="" (echo Usage:&echo links )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