某爱那点源码感谢@youth@ddnpc大佬

Front

本帖最后由 Front 于 2016-12-21 13:34 编辑

易语言写的,直接放出源码,主要用于学习交流,设置权限防止



.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


调试输出 (还原 (“https://s.click.taobao.com/v9e6dIx”))  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 还原, 文本型, 公开
.参数 url, 文本型
.局部变量 头, 文本型
.局部变量 head, 文本型
.局部变量 header, 文本型
.局部变量 et, 文本型
.局部变量 协议头, 文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
网页_访问s (url, , , , , , 头, 真)
网页_访问s (头, , , , , , head, 真, )
head ＝ 编码_URL解码 (head)
et ＝ 文本_取右边 (head, “et=”)
协议头 ＝ 子文本替换 (#常量1, “{head}”, head, , , 真)
网页_访问_对象 (头 ＋ “&ref=&et=” ＋ et, , , , , 协议头, header, 真, )
header ＝ 文本_取左边 (header, “&ali_trackid”)
返回 (header)


注:常量1的值是:referer: {head}user-agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36

刚才对不起啊，我不知大家也需要，就设置了255，我错了，原谅我吧！

Vicer

本帖最后由 JIDISHACHEN 于 2016-12-20 22:13 编辑


易语言写的,直接放出源码,主要用于学习交流,设置权限防止



.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码


调试输出 (还原 (“https://s.click.taobao.com/v9e6dIx”))  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 还原, 文本型, 公开
.参数 url, 文本型
.局部变量 头, 文本型
.局部变量 head, 文本型
.局部变量 header, 文本型
.局部变量 et, 文本型
.局部变量 协议头, 文本型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
网页_访问s (url, , , , , , 头, 真)
网页_访问s (头, , , , , , head, 真, )
head ＝ 编码_URL解码 (head)
et ＝ 文本_取右边 (head, “et=”)
协议头 ＝ 子文本替换 (#常量1, “{head}”, head, , , 真)
网页_访问_对象 (头 ＋ “&ref=&et=” ＋ et, , , , , 协议头, header, 真, )
header ＝ 文本_取左边 (header, “&ali_trackid”)
返回 (header)


注:常量1的值是:referer: {head}user-agent: Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36

源码直接贴在这啦,调用了网页访问的模块,如果对你有帮助,别忘了评分,谢谢

ddnpc

"

没有吗？

youth

youth 发表于 2016-12-21 13:03

本帖最后由 JIDISHACHEN 于 2016-12-20 22:13 编辑
现在好像不能评分

Front

Front 发表于 2016-12-21 13:07

现在好像不能评分
给帖子加阅读权限吧

ddnpc

这种解决了问题就加权限，就删除正文，变更标题的行为，简直是








丧心病狂。

ddnpc

真不懂这种人 你的信仰就是人人为你 你删内容改标题
Vicer 发表于 2016-12-21 14:03

不是需不需要的问题，是这个做法的问题，你加个70或90的权限，基本上几个小时就沉了。
每次打开，几个255， ...
我知道我这次做错了，即使他们骂我，我也不会还口的。