post获取短网址,有代码

一梦孤云

谁帮我写个www.dwz.cn登陆的代码?


这个程序我下载不到post数据.


post数据 ＝ “url=” ＋ 编辑框1.内容
网页_访问 (“www.dwz.cn”, 1, post数据, , , , , , , )


这样根本无法获取到短网址,好奇怪啊.求破!

半夏时光

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
POST提交地址	文本型
POST提交数据	文本型
返回文本	文本型
短地址	文本型

POST提交地址 ＝ “http://www.dwz.cn/create.php”
POST提交数据 ＝ “url=” ＋ 编码_URL编码 (编辑框1.内容, 真) ＋ “&alias=&access_type=web”
返回文本 ＝ 到文本 (网页_访问 (POST提交地址, 1, POST提交数据))
返回文本 ＝ 编码_usc2到ansi (返回文本)
短地址 ＝ 文本_取出中间文本 (返回文本, “tinyurl” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”)
调试输出 (短地址)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 POST提交地址, 文本型<br /> .局部变量 POST提交数据, 文本型<br /> .局部变量 返回文本, 文本型<br /> .局部变量 短地址, 文本型<br /> <br /> POST提交地址 ＝ “<a href="http://www.dwz.cn/create.php" rel="nofollow" rel="nofollow" target="_blank">http://www.dwz.cn/create.php</a>”<br /> POST提交数据 ＝ “url=” ＋ 编码_URL编码 (编辑框1.内容, 真) ＋ “&alias=&access_type=web”<br /> 返回文本 ＝ 到文本 (网页_访问 (POST提交地址, 1, POST提交数据))<br /> 返回文本 ＝ 编码_usc2到ansi (返回文本)<br /> 短地址 ＝ 文本_取出中间文本 (返回文本, “tinyurl” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,”)<br /> 调试输出 (短地址)

半夏时光

精易模块 3.82  

一个人的下午茶

看看吧   精易模块3.12   自行引用下吧啊

梦生

http://bbs.125.la/thread-13734330-1-1.html
9种短网址   包括dwz.cn

剩下我de孩子气

url=“地址”&alias=&access_type=web
提交地址 “http://www.dwz.cn/create.php

一梦孤云

半夏时光 发表于 2014-8-24 15:40
[e=1].版本 2
.支持库 spec

非常感谢就是有点疑问,第一句地址为什么还要加后面的?

半夏时光

一梦孤云 发表于 2014-8-24 20:56
非常感谢就是有点疑问,第一句地址为什么还要加后面的?

，那个是POST的提交地址 ，抓包抓出来的，有时间看看POST教程，学习学习。

梦生

里面的功能都写在POWER程序集里
不懂可以来问我@一梦孤云   

梦生

  

子程序名	返回值类型	公开	备 注
dwz_cn	文本型
参数名	类 型	参考	可空	数组	备 注
URL	文本型

变量名	类 型	静态	数组	备 注
_url	文本型
_str	文本型
_Source	文本型

_url ＝ “http://dwz.cn/create.php”
如果真 (取文本左边 (URL, 7) ≠ “http://”)
URL ＝ “http://” ＋ URL
_str ＝ “url=” ＋ 编码_URL编码 (URL, 真, 真) ＋ “&alias=&access_type=web”
_Source ＝ 网页访问s (_url, “POST”, _str)
_Source ＝ 文本_取出中间文本 (_Source, #Dwz_cn, #引号 )
_Source ＝ 子文本替换 (_Source, “\/”, “/”, , , 真)
返回 (_Source)

.版本 2<br /> <br /> .子程序 dwz_cn, 文本型<br /> .参数 URL, 文本型<br /> .局部变量 _url, 文本型<br /> .局部变量 _str, 文本型<br /> .局部变量 _Source, 文本型<br /> <br /> _url ＝ “http://dwz.cn/create.php”<br /> .如果真 (取文本左边 (URL, 7) ≠ “http://”)<br />     URL ＝ “http://” ＋ URL<br /> .如果真结束<br /> _str ＝ “url=” ＋ 编码_URL编码 (URL, 真, 真) ＋ “&alias=&access_type=web”<br /> _Source ＝ 网页访问s (_url, “POST”, _str)<br /> _Source ＝ 文本_取出中间文本 (_Source, #Dwz_cn, #引号)<br /> _Source ＝ 子文本替换 (_Source, “\/”, “/”, , , 真)<br /> 返回 (_Source)

直接调用这个子程序也是可以的,模块我是用的超级网页访问,可以去我那个帖子下载源代码
http://bbs.125.la/thread-13734330-1-1.html