哪位老师能把这个百du资源提交的post代码改成易语言代码

爱问知识人

POST /urls?site=https://www.jutaoge.net&token=BoxB0nKtGHjZltePHTTP/1.1
User-Agent: curl/7.12.1
Host: data.zz.baidu.com
Content-Type: text/plain
Content-Length: 83
http://www.example.com/1.html
http://www.example.com/2.html

你华总i

.版本 2

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量  局_网址, 文本型
.局部变量  局_方式, 整数型
.局部变量  局_提交数据, 文本型
.局部变量  局_提交cookie, 文本型
.局部变量  ADD_协议头, 类_POST数据类
.局部变量  局_提交协议头, 文本型
.局部变量  局_结果, 字节集
.局部变量  局_返回, 文本型
' http://data.zz.baidu.com/urls?si ... en=BoxB0nKtGHjZlteP
局_网址 = "http://data.zz.baidu.com/urls?site=https://www.jutaoge.net&token=BoxB0nKtGHjZlteP"
局_方式 = 1
' http://www.example.com/1.html
http://www.example.com/2.html
局_提交数据 = "http://www.example.com/1.html” ＋ #换行符 ＋ “http://www.example.com/2.html"
局_提交cookie = ""
ADD_协议头.添加 ("Host","data.zz.baidu.com"）
ADD_协议头.添加 ("Content-Type","text/plain"）
ADD_协议头.添加 ("User-Agent","Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36"）

局_提交协议头 = ADD_协议头.获取协议头数据 ()

局_结果 = 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, 局_提交Cookie, , 局_提交协议头, , , , , , , , , , , )
局_返回 = 到文本（局_结果）
返回(局_返回)

学而容易

easylanguage
.版本 2  
  
.程序集 网络支持库.dll  
  
主程序  
.局部变量 url, 文本型  
.局部变量 postData, 文本型  
.局部变量 请求头, 文本型  
.局部变量 响应文本, 文本型  
  
url = "http://data.zz.baidu.com/urls?site=https://www.jutaoge.net&token=BoxB0nKtGHjZlteP"  
postData = "http://www.example.com/1.html" + #换行符 + "http://www.example.com/2.html"  
请求头 = "User-Agent: curl/7.12.1" + #换行符 + "Host: data.zz.baidu.com" + #换行符 + "Content-Type: text/plain" + #换行符 + "Content-Length: " + 字符串_长度(postData)  
  
调用方法("WinHttp.WinHttpRequest", "Open", "POST", url, 假)  
调用方法("WinHttp.WinHttpRequest", "SetRequestHeader", "Content-Type", "text/plain")  
调用方法("WinHttp.WinHttpRequest", "Send", postData)  
响应文本 = 调用方法("WinHttp.WinHttpRequest", "ResponseText")  
  
输出(响应文本)