全球主机交流论坛

标题: 某爱那点源码感谢@youth@ddnpc大佬 [打印本页]

作者: Front 时间: 2016-12-21 12:55
标题: 某爱那点源码感谢@youth@ddnpc大佬
本帖最后由 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，我错了，原谅我吧！

作者: ddnpc 时间: 2016-12-21 13:03
提示: 作者被禁止或删除内容自动屏蔽

作者: youth 时间: 2016-12-21 13:03

本帖最后由 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

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

作者: Front 时间: 2016-12-21 13:04

ddnpc 发表于 2016-12-21 13:03
没有任何附件啊

没有吗？

作者: ddnpc 时间: 2016-12-21 13:04
提示: 作者被禁止或删除内容自动屏蔽

作者: ddnpc 时间: 2016-12-21 13:07
提示: 作者被禁止或删除内容自动屏蔽

作者: Front 时间: 2016-12-21 13:07

youth 发表于 2016-12-21 13:03
本帖最后由 JIDISHACHEN 于 2016-12-20 22:13 编辑

现在好像不能评分

作者: youth 时间: 2016-12-21 13:09

Front 发表于 2016-12-21 13:07
现在好像不能评分

给帖子加阅读权限吧

作者: 微聚科技 时间: 2016-12-21 13:25
这种解决了问题就加权限，就删除正文，变更标题的行为，简直是

丧心病狂。

作者: 风象星座 时间: 2016-12-21 13:27
真不懂这种人你的信仰就是人人为你你删内容改标题

作者: Vicer 时间: 2016-12-21 14:03
提示: 作者被禁止或删除内容自动屏蔽

作者: Front 时间: 2016-12-21 14:20

Vicer 发表于 2016-12-21 14:03
不是需不需要的问题，是这个做法的问题，你加个70或90的权限，基本上几个小时就沉了。
每次打开，几个255， ...

我知道我这次做错了，即使他们骂我，我也不会还口的。

欢迎光临全球主机交流论坛 (https://hostloc.gdisk.cf/)