易语言网页_访问_对象使用说明

十万个为什么

易语言命令名称：
网页_访问_对象
1 y% v$ W: @# \! }4 A7 F
命令功能介绍:

1 n! \% B! _, ^6 G% u! F/ `7 U使用WinHttp的对象方式访问网页
6 [" ?/ x( h$ D  Z& \( B命令类别:精易模块命令

. f3 j  }% i/ R
命令使用说明:
子程序名：网页_访问_对象
% y; n* X! j1 I+ m( m' V5 K6 A    使用WinHttp的对象方式访问网页
7 G2 b. v8 c% D; Q" n  A$ B    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
0 J0 M+ u" c; ^3 B" b+ k& @: j( A    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
6 U  b2 n1 U/ Z. M7 K+ V: P. Y    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
8 @* B2 C( K; v) |) f    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
, E- B, b* @# n# O) S6 v    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
$ V% |, w( W5 J& ?5 ]    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
# U, ^9 q6 ~9 g! j5 T4 J2 \& h    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
* i* ?+ h- e4 t/ }4 m- l    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
1 ]+ {: `" Z6 f9 Q    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
: p) S: }( j! D6 H    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
1 S7 H: t" v6 y4 h* K/ ]6 ^    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

1 G$ s5 Z& ?. P
0 h5 S7 j9 K7 B9 ^% b) J0 E
- w. U$ m2 T* t/ Q; `* z
4 L. {7 Q$ T3 a8 q3 W2 B' U

2 |6 f6 l8 r9 h命令源码:
2 B' h! S% o2 F

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   ; Z1 r( e) S4 R9 ?
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   / q8 G; Y# F; N
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    8 d$ B- g. q# M2 L& a
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    - n6 B. L. z6 E/ o% k" d' E- x4 }' S
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    6 q4 L& n' Y/ P. B5 f
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    + G0 D2 }; P- i
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    + Q1 h  o  l! }/ Z$ S
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    , E/ V1 u! \; I
28. .局部变量 局_网页数据, 字节集
    * A8 n, e" ?, W% [
29. .局部变量 局_变体提交, 变体型
    : R+ ?% G4 e9 C% X. U
30. 
    ( [2 j; [% i: l/ q+ V5 Q' E2 \
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    ; G- x& K" ?% h" b' W; c; h% h% _
32.     是否自动合并更新Cookie ＝ 真
    + r" R' f, k& c( \7 U( M; m- w
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    " i! v* y: Z! [! F2 W
36.     是否补全必要协议头 ＝ 真
    8 @& b. o* d; i2 Z3 \. ~
37. .如果真结束
    ! F7 |- A& J! r; r4 {( J
38. 
    ! @( y& S2 N' d& \1 @
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    ; |: e1 W/ t3 ?9 `7 a: [" t
41. .如果真结束
    
42. 
    , L: ?* T$ ~  y! T' n# D7 G
43. 线程_初始化COM库 ()
    
44. 
    7 Z. ]# T! z* |: C7 g
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    7 B% {4 w5 F' L6 u; K
46.     访问方式 ＝ 0
    + e- s% W& j  G7 W5 z* m
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    % C3 c  B# E5 @, a1 u& Y/ D
59. .如果真 (超时 ≠ -1)
    , s3 Q. o* z. j9 e
60.     .如果 (超时 ＜ 1)
    + M4 H3 a4 m$ P+ g
61.         超时 ＝ 15000
    1 J# T+ W: `4 A* X( k4 a: }& Z
62.     .否则
    5 q" z, ~/ V+ l- `+ N
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    % w) w* p" |& X$ B# {
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    + k" n% I. f# ^* \1 N7 G) a; T
67. 
    9 M5 t2 t4 Y" q2 h7 z6 v
68. .如果真 (代理地址 ≠ “”)
    5 c! Q+ Q6 c) S5 G; Q
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    ( z; Z6 _5 M2 [7 ~
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    4 c3 N4 ?% H/ S! a8 X4 C
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    / @- N7 j- C8 e6 R1 Q# E
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    . Z/ S1 L. l; M
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    % K7 Q' Y: i4 r6 s3 X* z
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    ( x9 y/ t3 b0 M! f! W/ t8 b
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    7 p5 Q, w4 y4 R7 Z( |
90.     .如果真结束
    ; e2 R0 c8 ^. A5 A, M4 ^0 {3 M9 o5 s
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    $ y6 L6 e/ A) W
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    ; B6 h0 x4 a, T/ m  U
99.         .如果真结束
    
100. 
     $ M0 X( q/ B  z5 M
101.     .如果真结束
     
102. 
     
103. .如果真结束
     
104. 
     3 T# E- d7 d4 r
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     1 Y3 R: \, d3 r" s+ n6 p  ]+ Q
110.     .如果真 (是否为空 (代理标识))
     : e4 i4 [! A6 I( j# f) B
111.         代理标识 ＝ 1
     ! B0 v1 \- o# v1 `! W% T; z4 n
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     0 {6 p& p' L- _6 z: y& G6 d1 R
116.     .如果真结束
     
117. 
     2 w" j9 c& g$ R9 k
118. .如果真结束
     8 Q* C- V$ v! e3 R! M1 L4 W  K$ U
119. 
     8 g1 O4 t. F  p) Q: V0 R8 x1 p
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     + }" h; X7 `8 G3 g- m8 r: X8 S
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     0 Y; F# r& E6 A2 l
125. 
     4 Z7 Q) G% N: \5 U; B3 k
126.     .如果真结束
     7 a# r: H1 a7 S# C) x3 \# T
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     ' z) n& B1 B# W8 n9 r) i6 W  Q
128. .如果真结束
     1 ^1 @( `' F9 e$ ?6 G; ^  ^
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     7 C4 s. r' ^- ~, d$ \) |& K% L
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     $ ^( u& }8 R: k& `
141. 
     * b8 }! y, Y2 R, i
142.             .如果真结束
     ; x) k; y* H- H
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     + b/ V3 i( r# y( o; ]
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     ' F6 e$ h% c7 F1 ^2 f
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     " P) p  t: ?! L4 x3 u+ x
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     : e+ h( ~8 X9 t) a0 o
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     2 f  M" Z9 {) }3 S% w
159. 局_WinHttp.读文本属性 (“StatusText”, )
     . j4 |* W; E1 z, ^) `
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     / y* [: }2 q8 f# `% H3 o- S& \
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     6 Y4 y7 U0 z% r' T
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     1 V6 U, h! `% l( ~
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     8 t1 Z% Q# p6 Z! H* A0 }- ^
166.         .默认
     0 i- b7 u/ B7 ^7 y9 T+ T
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     7 _- U1 F. h3 {5 |. b0 p, C
168.         .判断结束
     
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     ) b: T1 ^* e# o
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     , E/ K4 Y5 P1 |, i. s) B
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     7 M) i8 M- _4 P. n, Y$ n3 t
176. 
     ) |. k# G8 x6 S3 a0 i6 Z
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     ; o$ h$ i* s/ L9 B  X/ Z7 o9 k
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     : Y9 r8 J' N$ e
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     - a  f) Z3 ~* {4 z
182. 
     - b/ E# Z. ~% m4 F8 X9 b6 W
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     % y9 g$ v3 B; E8 I* m" |: S( d0 e
186. 返回 (局_网页数据)
     
187. 
     3 G# B, K" l$ e% |
188. .子程序 内部_协议头取名, 文本型
     0 I: I9 r8 h% p. @% A2 }
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     1 y( ^% ^( d+ O; E% g
191. .局部变量 结果, 文本型
     
192. 
     7 w, F! b1 [7 m4 S8 [
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     $ r9 p) j6 u0 s% z9 p
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     
198. 
     : ~6 J& M& E! X
199. .子程序 内部_协议头取值, 文本型
     6 T- V& N, w7 g9 T; _
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     4 y* e1 k: m& v
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ; O% b: ?2 g( S$ U
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

6 N! g. ^7 ]3 Q! D2 E3 m! C
源码复制到易语言教程:
/ o: t/ j$ |3 F9 l
. ~1 ~$ |7 K- H( P首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

* M; Z5 Q7 A9 y3 j! S* J  I
( [8 T/ v6 J* U$ P& w5 n- w3 U+ |然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
7 C, _1 W& ]9 G1 l( O
即可插入易语言命令代码哦

DLL源码复制到易语言教程：

0 _/ Z; t+ {" J' Y. l2 K7 [

3 ^  P, H$ b/ B5 f! p& C7 ?

apgaj

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

qq1803354652

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

a406531859

好像很复杂的啊·
) c- G+ r! o$ V8 |3 i6 Y! }

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。