而且PHP客户Duan附带三种输出格式
TXT纯文本输出
JSON输出
跳转地址
易语言为了方便懒得调用模块
手撸了一个访问= = 有bug的话自己换模块。
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 url, 文本型
url = “demo.com” ' 这个是我自己本地测试用的~~~
调试输出 (到文本 (访问网页 (“http://” + url + “/?url=http://v.douyin.com/8sAU3n&way=txt”, , , , ))) ' 纯文本格式输出
调试输出 (到文本 (访问网页 (“http://” + url + “/?url=http://v.douyin.com/8sAU3n&way=json”, , , , ))) ' json格式输出
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 访问网页, 字节集, 公开
.参数 C_提交网址, 文本型
.参数 C_访问方式, 文本型, 可空
.参数 C_提交信息, 文本型, 可空
.参数 C_超时, 整数型, 可空, 毫秒
.参数 C_代理IP, 文本型, 可空
.局部变量 变体型p, 变体型
.局部变量 变体型R, 变体型
.局部变量 object, 对象
.局部变量 bytes, 字节集
object.创建 (“WinHttp.WinHttpRequest.5.1”, )
C_访问方式 = 到大写 (C_访问方式)
.如果真 (寻找文本 (C_代理IP, “:”, , 假) ≠ -1)
object.方法 (“setProxy”, 2, 删首尾空 (C_代理IP), 假) ' 设置代理
.如果真结束
.如果真 (C_超时 = 0)
C_超时 = 5000 ' 超时五秒
.如果真结束
object.方法 (“SetTimeouts”, C_超时, C_超时, C_超时, C_超时)
.判断开始 (C_访问方式 = “POST”)
object.方法 (“open”, “POST”, C_提交网址, 假)
.默认
object.方法 (“open”, “GET”, C_提交网址, 假)
.判断结束
.判断开始 (C_访问方式 = “POST”)
object.方法 (“setRequestHeader”, “Content-Type”, “application/x-www-form-urlencoded”)
变体型R.赋值 (到字节集 (删首尾空 (C_提交信息)), )
object.方法 (“send”, 变体型R)
.默认
object.方法 (“send”, )
.判断结束
变体型p = object.读属性 (“GetAllResponseHeaders”, )
变体型p = object.读属性 (“responsebody”, )
bytes = 变体型p.取字节集 ()
object.清除 ()
返回 (bytes)
上一篇 编辑框单击全选功能相关问题
下一篇 YY最新可上号工具协议