如何获取网址转向后的地址

帝释天2017

如何获取网址转向后的地址，意思就是 我访问这个地址：http://www.baidu.com/link?url=lf ... zlyfmPKUZYYiXuM-0y7

会转向到 这个地址：http://pan.baidu.com/share/link?shareid=431014&uk=3138074272

我就是想置顶如何通过访问第一个地址来  获取 第2个地址

﹎尐ゞL

[e]
.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 返回文本, 文本型
.局部变量 ID, 文本型
.局部变量 UK, 文本型
.局部变量 网址, 文本型

返回文本 ＝ 编码_URL解码 (网页_访问s (“http://www.baidu.com/link?url=lf ... zlyfmPKUZYYiXuM-0y7”))
调试输出 (返回文本)
ID ＝ 文本_取出中间文本 (返回文本, “FileUtils.share_id=#引号”, “#引号;”, )
UK ＝ 文本_取出中间文本 (返回文本, “FileUtils.share_uk=#引号”, “#引号;”, )
网址 ＝ “http://pan.baidu.com/share/link?shareid=” ＋ ID ＋ “&uk=” ＋ UK
调试输出 (网址)
[/e]
这样子行了吧？

补充内容 (2013-12-1 17:40):
http://www.baidu.com/link?url=lf ... zlyfmPKUZYYiXuM-0y7那一坨地址那么长的！

﹎尐ゞL

http://www.baidu.com/link?       url=lfNRn4yOCTThNeZEQrPQxvgQ3kxkO2aSpAzIfX5Ic2iexA0Vzu2yy8nxpTq8mtgqXn83447iUF79Wv-ySugbpD7jzlyfmPKUZYYiXuM-0y7