借用est写过的下载网页vbs代码
感觉vbs功能还是很强大- ::::::::::::::::::::::::::::::::::::::::::::::::
- ::[用法] 保存为dict.bat于当前路径后,命令行下格式: dict word
- ::::::::::::::::::::::::::::::::::::::::::::::::
- @echo off||author:plp626&<%~fs0 more +7>%tmp%\gtxt.vbs
- set "url=http://www.baidu.com/baidu?ie=gb2312&cl=3&ct=1048576&word=%1"
- cscript //NoLogo //e:vbscript %tmp%\gtxt.vbs "%url%"|more +4|findstr/v "Dr\.eye Baidu"|findstr .
- exit/b
- '
- Set oDOM = WScript.GetObject(WScript.Arguments(0))
- do until oDOM.readyState = "complete"
- WScript.sleep 100
- loop
- WScript.echo oDOM.documentElement.outerText
复制代码 论坛把代码的空行竟然过滤了!!
[ 本帖最后由 plp626 于 2008-9-11 02:21 编辑 ] |