精易论坛

标题: 一行代码调用鱼刺http，给懒人用的 [打印本页]

作者: 尖叫 时间: 2019-7-9 19:54
标题: 一行代码调用鱼刺http，给懒人用的

以前给一个老弟写的，他想用鱼刺，但是自己又搞不懂，于是就诞生了这么个东西。
一行代码调用鱼刺类WinhttpR，适合新手和懒人。

源码如下：自己新建一个易语言复制粘贴编译为模块或者直接调用该子程序就行了。需要鱼刺类 Http 5.29模块，附件提供了。

子程序名	返回值类型	公开	备注
yuci_Post	文本型
参数名	类型	参考	可空	数组	备注
_Url	文本型				请求的地址
_Data	文本型				请求的数据
_Cookies	文本型				设置请求cookies 不要加 Cookies：直接填写Cookies内容
_Header	文本型				设置请求协yi头参数名:值多个参数用换行符隔开
_Proxy	文本型				设置请求代理地址
_Referer	文本型				设置请求来源不要加 Referer：直接填写来源地址
_UserAgent	文本型				设置浏览器协yi头不要加 User-Agent：直接填写浏览器协yi头
_ResponseBody	字节集				填写一个字节集变量，用于存储返回的字节集
_ResponseCookies	文本型				填写一个文本型变量，用于存储返回的cookies
_ResponseHeader	文本型				填写一个文本型变量，用于存储返回的协yi头
_ResponseLocation	文本型				填写一个文本型变量，用于存储返回的重定向地址
_Utf8ToAnsi	逻辑型				设置是否自动转码
_chongdingxiang	逻辑型				设置是否允许重定向默认为假

变量名	类型	静态	数组	备注
http	WinHttpR

http.Open (“POST”, _Url)

如果真 (_Cookies ≠ “”)

http.SetCookie (_Cookies)

如果真 (_Header ≠ “”)

http.SetRequestHeaders (_Header, )

如果真 (_Proxy ≠ “”)

http.SetProxy (_Proxy, , )

如果真 (_Referer ≠ “”)

http.SetReferer (_Referer)

如果真 (_UserAgent ≠ “”)

http.SetUserAgent (_UserAgent)

如果 (_chongdingxiang ＝真)

http.SetRedirect (真)

http.SetRedirect (假)
http.Send (_Data, , 0)
_ResponseBody ＝ http.GetResponseBody ()
_ResponseCookies ＝ http.GetAllResponseCookies ()
_ResponseHeader ＝ http.GetAllResponseHeaders ()
_ResponseLocation ＝ http.GetResponseLocation ()

判断 (_Utf8ToAnsi ＝假)

返回 (http.GetResponseText ())

返回 (http.GetResponseTextUtf8ToAnsi ())

子程序名	返回值类型	公开	备注
yuci_Get	文本型
参数名	类型	参考	可空	数组	备注
_Url	文本型				请求的地址
_Cookies	文本型				设置请求cookies 不要加 Cookies：直接填写Cookies内容
_Header	文本型				设置请求协yi头参数名:值多个参数用换行符隔开
_Proxy	文本型				设置请求代理地址
_Referer	文本型				设置请求来源不要加 Referer：直接填写来源地址
_UserAgent	文本型				设置浏览器协yi头不要加 User-Agent：直接填写浏览器协yi头
_ResponseBody	字节集				填写一个字节集变量，用于存储返回的字节集
_ResponseCookies	文本型				填写一个文本型变量，用于存储返回的cookies
_ResponseHeader	文本型				填写一个文本型变量，用于存储返回的协yi头
_ResponseLocation	文本型				填写一个文本型变量，用于存储返回的重定向地址
_Utf8ToAnsi	逻辑型				设置是否自动转码
_chongdingxiang	逻辑型				设置是否允许重定向默认为假

变量名	类型	静态	数组	备注
http	WinHttpR

http.Open (“GET”, _Url)

如果真 (_Cookies ≠ “”)

http.SetCookie (_Cookies)

如果真 (_Header ≠ “”)

http.SetRequestHeaders (_Header, )

如果真 (_Proxy ≠ “”)

http.SetProxy (_Proxy, , )

如果真 (_Referer ≠ “”)

http.SetReferer (_Referer)

如果真 (_UserAgent ≠ “”)

http.SetUserAgent (_UserAgent)

如果 (_chongdingxiang ＝真)

http.SetRedirect (真)

http.SetRedirect (假)
http.Send (, , 0)
_ResponseBody ＝ http.GetResponseBody ()
_ResponseCookies ＝ http.GetAllResponseCookies ()
_ResponseHeader ＝ http.GetAllResponseHeaders ()
_ResponseLocation ＝ http.GetResponseLocation ()

判断 (_Utf8ToAnsi ＝假)

返回 (http.GetResponseText ())

返回 (http.GetResponseTextUtf8ToAnsi ())

.版本 2<br />
<br />
.子程序 yuci_Post, 文本型, 公开<br />
.参数 _Url, 文本型, , 请求的地址<br />
.参数 _Data, 文本型, , 请求的数据<br />
.参数 _Cookies, 文本型, 可空, 设置请求cookies 不要加 Cookies： 直接填写Cookies内容<br />
.参数 _Header, 文本型, 可空, 设置请求协yi头 参数名:值 多个参数用换行符隔开<br />
.参数 _Proxy, 文本型, 可空, 设置请求代理地址<br />
.参数 _Referer, 文本型, 可空, 设置请求来源 不要加 Referer： 直接填写来源地址<br />
.参数 _UserAgent, 文本型, 可空, 设置浏览器协yi头 不要加 User-Agent： 直接填写浏览器协yi头<br />
.参数 _ResponseBody, 字节集, 可空, 填写一个字节集变量，用于存储返回的字节集<br />
.参数 _ResponseCookies, 文本型, 可空, 填写一个文本型变量，用于存储返回的cookies<br />
.参数 _ResponseHeader, 文本型, 可空, 填写一个文本型变量，用于存储返回的协yi头<br />
.参数 _ResponseLocation, 文本型, 可空, 填写一个文本型变量，用于存储返回的重定向地址<br />
.参数 _Utf8ToAnsi, 逻辑型, 可空, 设置是否自动转码<br />
.参数 _chongdingxiang, 逻辑型, 可空, 设置是否允许重定向 默认为假<br />
.局部变量 http, WinHttpR<br />
<br />
http.Open (“POST”, _Url)<br />
.如果真 (_Cookies ≠ “”)<br />
    http.SetCookie (_Cookies)<br />
.如果真结束<br />
.如果真 (_Header ≠ “”)<br />
    http.SetRequestHeaders (_Header, )<br />
.如果真结束<br />
.如果真 (_Proxy ≠ “”)<br />
    http.SetProxy (_Proxy, , )<br />
.如果真结束<br />
.如果真 (_Referer ≠ “”)<br />
    http.SetReferer (_Referer)<br />
.如果真结束<br />
.如果真 (_UserAgent ≠ “”)<br />
    http.SetUserAgent (_UserAgent)<br />
.如果真结束<br />
.如果 (_chongdingxiang ＝ 真)<br />
    http.SetRedirect (真)<br />
.否则<br />
    http.SetRedirect (假)<br />
.如果结束<br />
http.Send (_Data, , 0)<br />
_ResponseBody ＝ http.GetResponseBody ()<br />
_ResponseCookies ＝ http.GetAllResponseCookies ()<br />
_ResponseHeader ＝ http.GetAllResponseHeaders ()<br />
_ResponseLocation ＝ http.GetResponseLocation ()<br />
.判断开始 (_Utf8ToAnsi ＝ 假)<br />
    返回 (http.GetResponseText ())<br />
.默认<br />
    返回 (http.GetResponseTextUtf8ToAnsi ())<br />
.判断结束<br />
<br />
<br />
.子程序 yuci_Get, 文本型, 公开<br />
.参数 _Url, 文本型, , 请求的地址<br />
.参数 _Cookies, 文本型, 可空, 设置请求cookies 不要加 Cookies： 直接填写Cookies内容<br />
.参数 _Header, 文本型, 可空, 设置请求协yi头 参数名:值 多个参数用换行符隔开<br />
.参数 _Proxy, 文本型, 可空, 设置请求代理地址<br />
.参数 _Referer, 文本型, 可空, 设置请求来源 不要加 Referer： 直接填写来源地址<br />
.参数 _UserAgent, 文本型, 可空, 设置浏览器协yi头 不要加 User-Agent： 直接填写浏览器协yi头<br />
.参数 _ResponseBody, 字节集, 可空, 填写一个字节集变量，用于存储返回的字节集<br />
.参数 _ResponseCookies, 文本型, 可空, 填写一个文本型变量，用于存储返回的cookies<br />
.参数 _ResponseHeader, 文本型, 可空, 填写一个文本型变量，用于存储返回的协yi头<br />
.参数 _ResponseLocation, 文本型, 可空, 填写一个文本型变量，用于存储返回的重定向地址<br />
.参数 _Utf8ToAnsi, 逻辑型, 可空, 设置是否自动转码<br />
.参数 _chongdingxiang, 逻辑型, 可空, 设置是否允许重定向 默认为假<br />
.局部变量 http, WinHttpR<br />
<br />
http.Open (“GET”, _Url)<br />
.如果真 (_Cookies ≠ “”)<br />
    http.SetCookie (_Cookies)<br />
.如果真结束<br />
.如果真 (_Header ≠ “”)<br />
    http.SetRequestHeaders (_Header, )<br />
.如果真结束<br />
.如果真 (_Proxy ≠ “”)<br />
    http.SetProxy (_Proxy, , )<br />
.如果真结束<br />
.如果真 (_Referer ≠ “”)<br />
    http.SetReferer (_Referer)<br />
.如果真结束<br />
.如果真 (_UserAgent ≠ “”)<br />
    http.SetUserAgent (_UserAgent)<br />
.如果真结束<br />
.如果 (_chongdingxiang ＝ 真)<br />
    http.SetRedirect (真)<br />
.否则<br />
    http.SetRedirect (假)<br />
.如果结束<br />
http.Send (, , 0)<br />
_ResponseBody ＝ http.GetResponseBody ()<br />
_ResponseCookies ＝ http.GetAllResponseCookies ()<br />
_ResponseHeader ＝ http.GetAllResponseHeaders ()<br />
_ResponseLocation ＝ http.GetResponseLocation ()<br />
.判断开始 (_Utf8ToAnsi ＝ 假)<br />
    返回 (http.GetResponseText ())<br />
.默认<br />
    返回 (http.GetResponseTextUtf8ToAnsi ())<br />
.判断结束

懒得自己复制粘贴的就来给我送精币吧

鱼刺类.rar (152.58 KB, 下载次数: 299)

作者: q951681306 时间: 2019-7-9 19:56
学习一下！！！！！！！！！！！

作者: Ossian 时间: 2019-7-9 19:57
这么玩还不如用网页_访问。。
本来这种写法是有点麻烦但后期维护简单

作者: a377179415 时间: 2019-7-9 20:05

Ossian 发表于 2019-7-9 19:57
这么玩还不如用网页_访问。。
本来这种写法是有点麻烦但后期维护简单

名人堂怎么进去呀

作者: Ossian 时间: 2019-7-9 20:07

a377179415 发表于 2019-7-9 20:05
名人堂怎么进去呀

https://125.confly.eu.org/forum.php?mod=viewthread&tid=57274&highlight=%C3%FB%C8%CB%CC%C3

作者: a377179415 时间: 2019-7-9 20:11

Ossian 发表于 2019-7-9 20:07
https://125.confly.eu.org/forum.php?mod=viewthread&tid=57274&highlight=%C3%FB%C8%CB%CC%C3

哇。。。我可能进不去了

作者: gaoqing 时间: 2019-7-9 20:46
谢谢分享学习

作者: myboot 时间: 2019-7-9 23:31
要拆cookie才行。10个cookie要拆成10条，写10个cookie语句。不能整个放

作者: （ΘζΘ） 时间: 2019-7-10 14:28
应该把顺序改得和精易一样。。就不用去记忆顺序了

作者: 韦贝贝 时间: 2019-7-11 08:31

myboot 发表于 2019-7-9 23:31
要拆cookie才行。10个cookie要拆成10条，写10个cookie语句。不能整个放

SetRequestHeaders 是允许多个协yi头的名:值多个加上换行符。

作者: 网络注册会员 时间: 2019-7-11 09:22
又升级了

作者: sampo 时间: 2019-7-12 18:18
感谢楼主分享

作者: 1623863129 时间: 2019-7-12 19:47
先看看吧，也许好用？

作者: xiaomo958 时间: 2019-7-13 02:48
谢谢分享，正好需要多线程

作者: huang9585 时间: 2019-12-5 19:26

作者: 煤球 时间: 2019-12-23 03:51
如果代理需要填写地址+账号和密码怎么写

作者: bo3310aa 时间: 2020-5-30 03:21
6666666666666

作者: ColdWords 时间: 2020-10-25 03:02
6666666666666666666

作者: 1065933657 时间: 2020-11-21 17:48
两个函数,4个错误,您这个代码写的真牛逼
不过感谢分享,解决了我大问题

作者: 暗夜猎手a 时间: 2020-12-31 11:16
看看是这个行不行

作者: 暗夜猎手a 时间: 2020-12-31 11:17
现在都找不到了。。。。？？？

作者: 醉卧美人膝 时间: 2020-12-31 18:32
谢谢大佬分享支持支持

作者: saoso 时间: 2023-10-26 02:22
看看是这个行不行

作者: 84583728 时间: 2024-2-23 14:33
你要分割协yi头，你这样写如果出现多个协yi头你难道全部当成一个使用吗，其他的都不说了，柬埔寨

作者: 勉勉 时间: 2024-7-18 23:45
感谢分享~~~~~~~~~~

作者: webnum 时间: 2024-9-2 17:23
好像不能用

欢迎光临精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4