$WebTextA=StringRegExp($TEXT_BACK,'pdfurl=".*?"',3);正则取网址
$55=$WebTextA
$44=StringReplace ( $55, "amp;", "" );替换字符串中的指定子串.得到网页的下载地址
ClipPut($44);写入剪贴板 得到网页的下载地址 自动取下载网址：
$TEXT_BACK = BinaryToString(InetRead('http://www.sciencedirect.com/science/article/pii/B9780122841514500002/',1+8),4);主页代码
$WebTextA=StringRegExp($TEXT_BACK,'pdfurl="(.*?)"',3);正则取网址
$55=$WebTextA
$44=StringReplace ( $55, "amp;", "" );替换字符串中的指定子串.得到网页的下载地址
ClipPut($44);写入剪贴板 得到网页的下载地址 我想要一个真正能运行成功的代码,我都试了,还是不行. 本帖最后由 sex123 于 2012-9-22 23:51 编辑
自动取下载网址：
$TEXT_BACK = BinaryToString(InetRead('http://www.sciencedirect.com/science/artic ...
jtzxgfy 发表于 2012-9-22 20:21 http://www.autoitx.com/images/common/back.gif
这个测试成功了,但是我的要求是打开网页后,点击PDF,下载PDF.因为需要挂代理或EZ才能得到权限的提升.
http://www.sciencedirect.com/science/article/pii/S0304383511007361
比如这个,换个地址,你的方法就不行了,还是在ie里面好点. 我又测试了一下,还行,我在前面加了一行代理,就好用了.谢谢了.
HttpSetProxy(2, "130.132.123.28:3128","username","password")
$TEXT_BACK = BinaryToString(InetRead('http://www.sciencedirect.com/science/article/pii/S0304383511007361/',1+8),4);主页代码
$WebTextA=StringRegExp($TEXT_BACK,'pdfurl="(.*?)"',3);正则取网址
$55=$WebTextA
$44=StringReplace ( $55, "amp;", "" );替换字符串中的指定子串.得到网页的下载地址
ClipPut($44);写入剪贴板 得到网页的下载地址 最新研究
$TEXT_BACK = BinaryToString(InetRead('http://www.sciencedirect.com/science/article/pii/B9780122841514500002/',1+8),4);主页代码
$WebTextA=StringRegExp($TEXT_BACK,'pdfurl="(.*?)"',3);正则取网址
$ww=StringSplit ( $WebTextA, "&pid=" , 1 ) ;拆分 以"&pid=" 拆分
$ee= $ww;取第二拆分 文件名
InetGet($WebTextA, $ee, 1, 0);防盗链的网站要这样 下载才行的
MsgBox(262144, "下载完成",$WebTextA,2) 最新研究
$TEXT_BACK = BinaryToString(InetRead('http://www.sciencedirect.com/science/article/pii/B ...
jtzxgfy 发表于 2012-9-23 00:36 http://www.autoitx.com/images/common/back.gif
有的时候加代理后,会出错,可能是因为代理没连上,然后没有权限取得PDF地址的原因.我再研究研究. 其实我没搞懂你到底需要用正则获取哪段内容？
页:
1
[2]