
CODE: [Copy to clipboard]'&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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |