一行代码调用鱼刺http，给懒人用的

尖叫 · 发表于 2019-7-9 19:54:33

以前给一个老弟写的，他想用鱼刺，但是自己又搞不懂，于是就诞生了这么个东西。
一行代码调用鱼刺类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)