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

十万个为什么

易语言命令名称：
网页_访问_对象

; X$ I: m' C3 j命令功能介绍:
8 I! d( z0 l5 N" @2 D6 Q7 N
使用WinHttp的对象方式访问网页
# ~2 G3 |! C9 @4 [, l8 X, \: F" j命令类别:精易模块命令

8 w9 b$ k# F4 J! J! a% J
命令使用说明:
; V9 i  L; T8 J2 J- @& u+ A子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
- [  h& j8 `5 w3 f7 w$ W6 {; X& z    返回值类型：字节集
9 w. P& M- v/ U0 M/ k4 I0 h    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
6 X2 L6 h- m* {  S. X+ j( P# d0 x    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
5 j* `) @/ y2 _. z' M" e    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
( h  ?8 Y8 t4 {( d% V# N+ j( X" \    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
+ u. X8 p2 p4 x  H    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
( H- c: A) K2 ^  t& n    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
& S/ l. K2 G: n* f8 B    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
% b' z" F2 z. X4 N    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
0 {+ G, M* M9 h* s, x: c    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
. j  Q) z! x# V! m) {    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
4 m, ^6 u8 F# h* q" n1 P( M    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
+ w1 U4 h6 }3 \7 g& \8 L! }3 h    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

. L+ t) G+ k, M6 H3 @5 L' j: f
7 E6 S- m! z7 `0 a3 ]( _. @



命令源码:
- {% A4 H& o+ |
3 g8 H% \+ b/ r, k. S5 y

1. .版本 2
   
2. 
   1 G4 J8 d0 u. a' J3 ^, [
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编码
   9 Y( S% Z) C* Z$ t8 g% w* P( Y0 z" t3 o  Z
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   # }2 y$ B$ _' A. Y4 F
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   , P) Y( O* t7 M5 f, `0 c) @
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    - o8 j/ I$ C3 ]+ z* p
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    ' i+ j  D. |- B) L1 M6 H$ E
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    ! h5 x* ~& B" }" `* V# x
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    7 P( i) m$ s3 w% k+ ]
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    # u: k( r# ?( V5 p
17. .参数 代理密码, 文本型, 可空, 密码
    , h+ _! J% L! d5 q
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    ( ?- ?9 y$ Y: p* A$ U
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    4 o. `/ s5 `" w0 N+ _, v
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    % R- ^$ I, G1 l
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    7 \+ L/ n! j3 U3 {
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    # M6 C0 ^0 ~7 k9 M/ I, m) a8 ?5 _0 h
29. .局部变量 局_变体提交, 变体型
    
30. 
    8 z/ Z0 B# A0 r
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    $ I7 H& u$ t/ E" a& z
33. .如果真结束
    0 Y2 J) b4 ^& _' ]: a2 t2 |
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    " Z1 y2 G" h! ^8 `3 o
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    / H# N( S0 m8 d, E3 P5 Q
41. .如果真结束
    
42. 
    
43. 线程_初始化COM库 ()
    3 e( p) S. @1 v! {+ V4 v/ u
44. 
    4 c: P' K, y, P4 p7 x( G8 r
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    5 B4 ?. Y. R2 o5 ~
46.     访问方式 ＝ 0
    
47. .如果真结束
    6 e! V) i: s& y
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    ; B, ~! i$ f: Y7 g& e
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    8 k" q* d& O. w- c8 n: d; o  B# Q" j
53.     .如果真结束
    3 o! J6 w: W3 |2 a% w: K, m2 i
54. 
    0 Q& {8 y) I% f/ [0 ]
55. .默认
    6 C' P0 s9 Y! f. Q9 f  ^8 }
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
      E& J: \9 v6 w  f, o* ]+ ]
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    ) [/ z0 w/ Q; Y$ m
61.         超时 ＝ 15000
    ! s4 g) ^& [( {' I5 `( C6 E
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    ) z1 k, W  E! H4 J
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    5 T  M0 H3 v/ ?/ L
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    - d' Y& l7 d3 M
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    ' D1 f. b( a8 _/ ]" q
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    " B6 [3 L4 Q8 h9 {. W$ o4 y
77. 
    
78. 
    ( `' J8 N( {/ \1 z- Y& [5 R
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    ( |* N! t( M  E$ h
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    5 s6 @2 p$ T$ G) T2 x
86.     .如果真结束
    ) F) s. W0 g. k
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    6 b- b% g. I1 o6 J& m) f) M' L3 J
90.     .如果真结束
    
91. 
    4 D5 K$ \9 F* N2 e
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    6 D7 `, H9 P7 v, }& m8 @/ ~9 y
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    6 w) x+ H7 H8 ~3 K. ^
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    2 \5 X8 T4 Y- B# s% N
100. 
     
101.     .如果真结束
     ( S& q2 @0 U2 N
102. 
     
103. .如果真结束
     6 S1 E) m5 B& u' {7 l, x
104. 
     $ k6 Q$ o2 x9 j" ?  V' `1 g
105. .如果真 (是否处理协议头大小写)
     / v% h' D7 I+ y) M8 X6 ?+ r5 j' I' W
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     . o9 Y1 N5 v. z3 r& c( i7 t8 u7 Y
107. .如果真结束
     ; G( ~& ^  v' K8 X/ D) P7 r
108. 
     ; _. Q. `8 _' ]+ p! V7 a* r: R
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     8 C1 T  s7 |& {# S
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     : x, b7 U8 m$ ]; S: P. [% B8 x  |
116.     .如果真结束
     
117. 
     
118. .如果真结束
     ! r' k+ P: C: C- j
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     8 _. @1 F! ~9 h5 c1 A" H  ^3 T
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     4 P1 R' J) J3 N
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     $ i  ^6 S" m2 C9 [) ^0 @: ]
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     ; g, U; C3 {% l" x; x/ g4 ^$ \
125. 
     & D/ z9 ?" e4 m; K4 ~4 {3 u
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     ) u8 Z( `  P0 Y4 D( h2 H) D
128. .如果真结束
     9 Z- g3 R9 I& |! O1 [
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     3 x: X/ I" v0 @: t
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     / c9 u, v& p- `
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     7 s$ v, O- D7 N1 i. K
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     ! N1 [. e* C6 @& U' p- [# G
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     ! g' J3 b- F4 g4 }( c8 Q$ {) w
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     + N: U$ S5 Y% M- q2 S
140.                 .如果真结束
     8 O$ l  I% W- p, d1 t
141. 
     - x- g, }! g( s+ Y
142.             .如果真结束
     # L1 M" j: O) O& ]; ~
143. 
     6 ?% J( J: |  ]& D9 i1 y7 g
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     0 `0 T! o1 a! f* @9 ^
146. 
     
147.     .计次循环尾 ()
     7 ?+ S7 ^  g' ^8 g* F7 D
148. .判断结束
     
149. 
     . D) r# V& z0 w. |5 a+ L" k, g# d
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     " B, t3 {7 r4 L
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     0 i- b1 A) l" [* M3 H1 u
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     ; {3 |. e6 i* V5 W" C  \
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
       T0 i( O& O8 e, b9 c& B6 S( Y8 y
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     * k! V- \2 f7 _! l  R  w- i! y
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     2 y3 S8 M% ^( }' Y+ ?9 T
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     $ b4 `1 u7 ]/ \. i, P. f
168.         .判断结束
     
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     ' ^- n: F+ _6 H1 z
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     # @2 m6 F9 H: y5 `; h4 y0 `
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     0 k; s2 ^+ G! o2 o5 s& y
176. 
     1 F% V' m+ o6 G6 ?
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     . W0 X: A; n4 N: n  F+ W
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     % v' ^$ X& V" P- ?/ _% D
181.     .如果真结束
     
182. 
     
183. .如果真结束
     / b2 `( i3 {1 C6 e( \1 s# i
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     , S, G8 d% ^7 x' _3 f8 w  E( `5 m
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
       c5 W1 K/ f& ^/ u
189. .参数 协议头, 文本型
     8 b) I5 |% Z7 f& H) S9 ^* y
190. .局部变量 位置, 整数型
     " c3 y' Q" {; x: g
191. .局部变量 结果, 文本型
     
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     & B) @+ d- w6 [1 A  R2 F0 x, l' \" w4 g
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     ' n7 X! \: M6 B  a: B* b6 H
196. .如果真结束
     # e" K8 Q6 Q2 ]) k* L6 @
197. 返回 (删首尾空 (结果))
     
198. 
     7 Z6 k$ [* u$ E4 j) W8 b4 K) k- w- H
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     ; M$ c* P. g. \: ]( K
201. .局部变量 位置, 整数型
     2 u) ~7 T1 N. ^. b
202. .局部变量 结果, 文本型
     ( C. e3 x# _5 I! O4 R1 e
203. 
     3 k4 V- N0 R) G' o' ?4 J& ~( D3 m
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ; b7 w+ D5 a7 a0 _# h) b
205. .如果真 (位置 ≠ -1)
       m2 m6 C  @/ @% Q& N, X4 @% ?9 `
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     8 }) _0 A% |1 e7 }2 {( m9 g$ _  M! ~( |
208. 返回 (删首尾空 (结果))

复制代码

源码复制到易语言教程:
* y5 H2 A' D$ r7 U" O7 D1 L2 {
# Z+ w0 M6 v" z; n首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
# p- r" B: w* y2 ]
6 b6 h! ]% ?0 d8 H; [) |, E
2 w+ `5 S9 G" T) d  E- N然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

# ^* b/ x% F& ], H& l即可插入易语言命令代码哦
- o7 Q+ S: x7 |: I- ?* p
' Y7 l; o6 C$ }6 _) W8 h6 JDLL源码复制到易语言教程：


( }$ G7 c$ L& P) N& U. T

0 p& L, V) y! d

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

7 W% h& }2 K- S$ u  n2 \这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。