想找个不用模块网页POST的例子

chendipang

不用任何的模块，用winhttp     有例子的大牛希望发一份学习学习

杰伦与大木老师

以下是精易模块的WinHttp访问，你看看吧。

  

子程序名	返回值类型	公开	备 注
网页_访问_对象	字节集		使用WinHttp对象的方式访问网页
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST 2=HEAD
提交信息	文本型				"POST"专用
提交Cookies	文本型				本参数传递变量时会自动回传返回的Cookie
返回Cookies	文本型				返回的Cookie
附加XY头	文本型				一行一个请用换行符隔开
返回XY头	文本型				返回的XY头
返回状态代码	整数型				网页返回的状态代码，例如：200；302；404等
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为 8.8.8.8:88
超时	整数型				秒|默认为15秒,-1为无限等待
用户名	文本型				用户名
密码	文本型				密码
代理标识	整数型				代理标识，默认为1，0为路由器
对象继承	对象				此处可自行提供对象，不再主动创建

变量名	类 型	静态	数组	备 注
局_访问方式	文本型
局_WinHttp	对象
局_发送XY头	文本型		0
局_返回XY头	文本型		0
局_计次	整数型
局_网页数据	字节集
局_变体提交	变体型

线程_初始化COM库 ()
' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)
如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)
访问方式 ＝ 0
局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”)
判断 (是否为空 (对象继承))
如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
返回 ({  })

局_WinHttp ＝ 对象继承
' 局部_WinHttp.查看 ()
如果真 (超时 ≠ -1)
如果 (超时 ＜ 1)
超时 ＝ 15000
超时 ＝ 超时 × 1000
局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)

如果真 (代理地址 ≠ “”)
局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
如果真 (用户名 ≠ “”)
如果真 (是否为空 (代理标识))
代理标识 ＝ 1
局_WinHttp.方法 (“SetProxyCredentials”, 用户名, 密码, 代理标识)

局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
如果真 (禁止重定向)
局_WinHttp.写属性 (“Option”, 6, 0)

局_WinHttp.写属性 (“Option”, 4, 13056)
判断 (附加XY头 ＝ “”)
附加XY头 ＝ “Accept: */*”
如果真 (寻找文本 (附加XY头, “Accept:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept: */*”


如果真 (寻找文本 (附加XY头, “Referer:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Referer: ” ＋ 网址

如果真 (寻找文本 (附加XY头, “Accept-Language:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept-Language: zh-cn”

如果真 (寻找文本 (附加XY头, “User-Agent:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”

如果真 (寻找文本 (附加XY头, “Content-Type:”, , 假) ＝ -1)
附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”

如果真 (提交Cookies ≠ “”)
局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)

判断 (寻找文本 (附加XY头, #换行符, , 假) ＝ -1)
局_WinHttp.方法 (“SetRequestHeader”, 内部_XY头取名 (附加XY头), 内部_XY头取值 (附加XY头))
局_发送XY头 ＝ 分割文本 (附加XY头, #换行符, )
计次循环首 (取数组成员数 (局_发送XY头), 局_计次)
如果真 (局_发送XY头 [局_计次] ≠ “”)
局_WinHttp.方法 (“SetRequestHeader”, 内部_XY头取名 (局_发送XY头 [局_计次]), 内部_XY头取值 (局_发送XY头 [局_计次]))

计次循环尾 ()

判断 (字节集提交 ＝ {  })
局_WinHttp.方法 (“Send”, 提交信息)
局_变体提交.赋值 (字节集提交, )
局_WinHttp.方法 (“Send”, 局_变体提交)
局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
返回XY头 ＝ 局_WinHttp.读文本属性 (“GetallResponseHeaders”, )
返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)
返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
局_返回XY头 ＝ 分割文本 (返回XY头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (局_返回XY头), 局_计次)
如果真 (寻找文本 (局_返回XY头 [局_计次], “Set-Cookie”, , 假) ≠ -1)
判断 (寻找文本 (局_返回XY头 [局_计次], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回XY头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回XY头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”


计次循环尾 ()
返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
网页_Cookie合并更新 (提交Cookies, 返回Cookies)
局_WinHttp.清除 ()
线程_取消COM库 ()
返回 (局_网页数据)

.版本 2<br /> <br /> .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp对象的方式访问网页<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD<br /> .参数 提交信息, 文本型, 可空, "POST"专用<br /> .参数 提交Cookies, 文本型, 参考 可空, 本参数传递变量时会自动回传返回的Cookie<br /> .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie<br /> .参数 附加XY头, 文本型, 可空, 一行一个请用换行符隔开<br /> .参数 返回XY头, 文本型, 参考 可空, 返回的XY头<br /> .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br /> .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待<br /> .参数 用户名, 文本型, 可空, 用户名<br /> .参数 密码, 文本型, 可空, 密码<br /> .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器<br /> .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_WinHttp, 对象<br /> .局部变量 局_发送XY头, 文本型, , "0"<br /> .局部变量 局_返回XY头, 文本型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_网页数据, 字节集<br /> .局部变量 局_变体提交, 变体型<br /> <br /> 线程_初始化COM库 ()<br /> ' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)<br /> .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)<br />     访问方式 ＝ 0<br /> .如果真结束<br /> 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”)<br /> <br /> .判断开始 (是否为空 (对象继承))<br />     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)<br />         返回 ({  })<br />     .如果真结束<br /> <br /> .默认<br />     局_WinHttp ＝ 对象继承<br /> .判断结束<br /> ' 局部_WinHttp.查看 ()<br /> .如果真 (超时 ≠ -1)<br />     .如果 (超时 ＜ 1)<br />         超时 ＝ 15000<br />     .否则<br />         超时 ＝ 超时 × 1000<br />     .如果结束<br />     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)<br /> .如果真结束<br /> <br /> .如果真 (代理地址 ≠ “”)<br />     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)<br />     .如果真 (用户名 ≠ “”)<br />         .如果真 (是否为空 (代理标识))<br />             代理标识 ＝ 1<br />         .如果真结束<br />         局_WinHttp.方法 (“SetProxyCredentials”, 用户名, 密码, 代理标识)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)<br /> .如果真 (禁止重定向)<br />     局_WinHttp.写属性 (“Option”, 6, 0)<br /> .如果真结束<br /> <br /> 局_WinHttp.写属性 (“Option”, 4, 13056)<br /> <br /> .判断开始 (附加XY头 ＝ “”)<br />     附加XY头 ＝ “Accept: */*”<br /> .默认<br />     .如果真 (寻找文本 (附加XY头, “Accept:”, , 假) ＝ -1)<br />         附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept: */*”<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Referer:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Accept-Language:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “User-Agent:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”<br /> .如果真结束<br /> <br /> .如果真 (寻找文本 (附加XY头, “Content-Type:”, , 假) ＝ -1)<br />     附加XY头 ＝ 附加XY头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br /> .如果真结束<br /> <br /> .如果真 (提交Cookies ≠ “”)<br />     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)<br /> .如果真结束<br /> <br /> .判断开始 (寻找文本 (附加XY头, #换行符, , 假) ＝ -1)<br />     局_WinHttp.方法 (“SetRequestHeader”, 内部_XY头取名 (附加XY头), 内部_XY头取值 (附加XY头))<br /> .默认<br />     局_发送XY头 ＝ 分割文本 (附加XY头, #换行符, )<br />     .计次循环首 (取数组成员数 (局_发送XY头), 局_计次)<br />         .如果真 (局_发送XY头 [局_计次] ≠ “”)<br />             局_WinHttp.方法 (“SetRequestHeader”, 内部_XY头取名 (局_发送XY头 [局_计次]), 内部_XY头取值 (局_发送XY头 [局_计次]))<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .判断结束<br /> <br /> .判断开始 (字节集提交 ＝ {  })<br />     局_WinHttp.方法 (“Send”, 提交信息)<br /> .默认<br />     局_变体提交.赋值 (字节集提交, )<br />     局_WinHttp.方法 (“Send”, 局_变体提交)<br /> .判断结束<br /> 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()<br /> 返回XY头 ＝ 局_WinHttp.读文本属性 (“GetallResponseHeaders”, )<br /> 返回XY头 ＝ 子文本替换 (返回XY头, “Set-Cookie”, “Set-Cookie”, , , 假)<br /> 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )<br /> 局_返回XY头 ＝ 分割文本 (返回XY头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局_返回XY头), 局_计次)<br />     .如果真 (寻找文本 (局_返回XY头 [局_计次], “Set-Cookie”, , 假) ≠ -1)<br />         .判断开始 (寻找文本 (局_返回XY头 [局_计次], “;”, , 假) ≠ -1)<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回XY头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />         .默认<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回XY头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> 网页_Cookie合并更新 (提交Cookies, 返回Cookies)<br /> 局_WinHttp.清除 ()<br /> 线程_取消COM库 ()<br /> 返回 (局_网页数据)

csc123

能实现功能就行了,方法不限,为什么一定要用winhttp呢?

日渐消瘦

那就自己写类方法不就好了。要求多

qq780571

感觉非要拒绝模块的人很好笑。易语言的很多命令其实也是集成后的命令。
别人给你一个公式了，你非要从1+1＝2开始推导。

天中小和尚

可以查阅  精易模块的  网页访问 源码

chendipang

csc123 发表于 2015-6-28 19:12
能实现功能就行了,方法不限,为什么一定要用winhttp呢?

不用模块有不用模块的原因     

chendipang

52xiaoxin 发表于 2015-6-28 19:15
那就自己写类方法不就好了。要求多

就是不会才来求助的呢    会了就不会来求助了

chendipang

qq780571 发表于 2015-6-28 19:17
感觉非要拒绝模块的人很好笑。易语言的很多命令其实也是集成后的命令。
别人给你一个公式了，你非要从1+1 ...

我不用模块就有不用的理由撒   

chendipang

天中小和尚 发表于 2015-6-28 19:33
可以查阅  精易模块的  网页访问 源码

怎么查看，，，，，，，，，，，，