一行代码调用鱼刺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)

2019-7-9 19:51 上传

点击文件名下载附件
下载积分: 精币 -2 枚

q951681306

学习一下！！！！！！！！！！！

Ossian

这么玩还不如用  网页_访问。。
本来这种写法是有点麻烦 但后期维护简单

a377179415

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

名人堂怎么进去呀

Ossian

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

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

谢谢 分享 学习

myboot

要拆cookie才行。10个cookie要拆成10条， 写10个cookie语句。不能整个放

（ΘζΘ）

应该把顺序改得和精易一样。。就不用去记忆顺序了

韦贝贝

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

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