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

十万个为什么

易语言命令名称：
' Q3 d1 u- D* Z3 i7 Y网页_访问_对象
0 q4 M: c: `( Y) k; ^) p3 i
& ]2 M5 E  N' }命令功能介绍:

使用WinHttp的对象方式访问网页
* K) Z) W# q- u3 X: @. p; l" o命令类别:精易模块命令
, V2 V* S4 N5 \5 e8 i
4 Y! ~7 L3 W9 O4 O' }8 @. D% K- ^
" B8 i1 e- M# [+ M命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
6 z9 ^* P8 h: t( F1 d    返回值类型：字节集
; U" G6 I7 d8 e$ S8 |: V. k    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
" I/ B1 Y7 W* K$ o, Q8 D0 G  i    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
9 g1 b0 P5 B9 W( c- W    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
& b, h& B5 V' C$ s7 A" R    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
3 _. W% K4 I3 h. H  y: y    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
" K7 M$ G8 o4 h3 r7 {    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
/ Z. C% b9 q5 W; V- q( Y    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
( c7 E% U' k' G- @2 O% G8 U  @    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
; [/ g2 i/ h! R4 x6 o6 q    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
& K. F1 g) M/ h( L# k- |% x    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
6 h9 e6 y/ O& V; b% W4 M


& \. ?3 J% C! M0 X9 g. I


9 N! m3 v% x! G" D7 A$ C  @6 U命令源码:

1. .版本 2
   # ^5 K: }% c8 A, Y2 W) g6 x
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   9 T+ l. I* o  C( F: p, D4 D( t
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   ( y  y, L. b5 t: l7 @; d. C, X) X
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   ! |( g0 B& a8 Y; K) e6 j( c
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   6 \  ^' g1 L4 x' {) W/ a, D
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    0 R, {% z! T. I' L
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    6 D  H! c3 }1 U
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    / _: k) o  [( i2 z( `' B
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    $ o# N- `0 ~' N* Y* w! W+ I
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    ) H& R  ~$ b6 K- q% }" ~- d
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    6 h. B' ?  S- H4 ?$ n
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    - I, I  A. F. i0 {
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    ' I6 d& [, U4 o9 z. [
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    % {9 R/ h6 W: ]$ \3 _
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    + ^/ U# u* H$ R) y
34. 
    / K) K. G( j' M  p
35. .如果真 (是否为空 (是否补全必要协议头))
      n  |2 [! j6 B
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    1 I: D- ^5 q& T+ o
42. 
    9 w" |* A( ~4 @
43. 线程_初始化COM库 ()
    + d! u5 z. K4 |" |! ?
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    + m' P, n% n, _0 n& r
46.     访问方式 ＝ 0
    ( _  Q+ I  k3 q" t
47. .如果真结束
    7 F3 _6 P; _2 R
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    ! C/ G5 e8 f) X! g- Z0 W
50. .判断开始 (是否为空 (对象继承))
    ( f& Z2 g. B0 A! ]
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    9 E# ~6 C4 R8 W
52.         返回 ({  })
    
53.     .如果真结束
    , M& }* \  M& L/ w; {
54. 
    
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    : p7 W# ]! G2 T* w  P8 F4 l. c7 W
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    8 g/ u# E' ], A, j5 F! @) [) B7 j; j
60.     .如果 (超时 ＜ 1)
    ) ?" @+ _% C* b/ e3 s
61.         超时 ＝ 15000
    * i- p1 m' B; M9 q- o
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    6 ~# ~, Z5 \, o4 W
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    ( f% b' ^6 q- H2 d- W' Q2 P
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    # h$ ~+ C- j1 r1 P
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    6 `- V6 t; V  q  ^/ |4 l
72. .如果真 (禁止重定向)
    8 C8 _6 N8 z+ c( u  y7 h( m
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    4 W0 N, x0 v. x8 @( H
74. .如果真结束
    3 v+ p0 g0 U: _3 i
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    - A% N# o4 m" a& }& x, z, R
77. 
    3 }& B; e6 d* A$ X
78. 
    4 q0 V5 g/ B) R
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    ) H, u( m* P) I4 K9 u
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    ; ^# O* K# p) |  ]
83. 
    / O$ R- O! M) ]) V1 ^& Q
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
      ^: h, S/ G% h: ]
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    ) o2 I9 R9 o3 i, p1 d
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    ; \1 Z* C8 p) U9 n% g
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    * T$ S5 [1 e" i! K$ S
94.     .如果真结束
    
95. 
    1 {. u% S* F: K. X" o: r
96.     .如果真 (访问方式 ＝ 1)
    4 `9 }* ]3 F0 v( F" h/ W
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    4 m6 r0 u. H$ f- {
100. 
     
101.     .如果真结束
     $ P. W$ o" T0 T5 h/ h1 X
102. 
     6 w1 j& o9 F$ S
103. .如果真结束
     
104. 
     
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     % e2 h( ^' j/ Q  {# K. h
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ( U* k6 w! i0 G6 \3 q
110.     .如果真 (是否为空 (代理标识))
     9 G+ q& c6 W* P) f0 o7 @
111.         代理标识 ＝ 1
     
112.     .如果真结束
     ! M1 z2 I7 p3 O* V- S* l; b$ B
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     $ q; y9 [9 W1 o- y* U0 s8 K
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     ) a5 O; X( ?( i+ o
118. .如果真结束
     8 b; }: a+ g* ~3 l
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ! X5 n% i" I7 r+ U) K1 y! K: C
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     - d! [! p9 v9 e# n
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     7 y+ ^) @; w% B5 q8 V. H* |
126.     .如果真结束
     / c" D! P* W! _! {
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     1 h0 H7 Z/ C; b4 ?! Y  a& O* i
128. .如果真结束
     - x! A1 g7 M! |- a. s) g' d: i
129. 
     
130. 
       c8 d. f. n/ }
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     4 t1 M9 I: d, a" {1 Y4 [9 N
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     * p7 p; a  t- G# V
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
       ~& Z7 E! Y2 E$ ]
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     , ^; ]6 P- c4 h- ?
141. 
     $ Z: g& y2 S9 M: H7 Z5 E. d
142.             .如果真结束
     % R7 @7 j. r0 U! o
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     9 q9 n" |. y. T1 N/ Z: }# H( J! u
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
       Y! v4 p/ F; |3 V
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     4 Y; ~  @2 g! b" P' U& l/ ]9 j- x; _
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ! Q! U: b* D/ s0 ?. x- ^6 h
152. .默认
     5 S% a2 D0 z) [+ r
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     9 v( X1 k5 Z# |2 G7 s  P, S
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     # z$ h9 k- g) ^; X$ I' L  l
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     2 H0 x* j3 R( L; }- `$ `2 }& I
159. 局_WinHttp.读文本属性 (“StatusText”, )
     ) h/ T4 i6 H# Z
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     ) |. d# b% K  f2 b, U8 d" y9 j) ?
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     # N0 S" q5 Z! U  Z) K, a! J9 q
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
       p( x( K; z! D
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     : I7 `9 Q0 J" J3 t
170.     .如果真结束
     
171. 
     ' Z5 K1 j! t! H3 _
172. .计次循环尾 ()
     ' y) c" }' t: v0 G5 H
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     ) L) X9 Q  P  w5 s& @' b
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     0 c( U4 j, W4 ]1 }, @* e6 l7 U
175. .如果真结束
     ) @' s1 m4 K4 r7 j; i
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     , ]- ?0 V  @2 G* `; o
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     3 {! d3 O1 q  M% l- T8 Y
182. 
     # M% B! L6 l5 |( @( r0 V+ x# L# z
183. .如果真结束
     * i; c$ G0 J6 U; v1 B! V
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     1 S) a# B4 X5 W- d  y, n+ z
186. 返回 (局_网页数据)
     
187. 
     / s8 u, q+ g$ j9 u2 ~) Z. C
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     . Q  r+ m( e; `' F5 k% C! D! ~: G
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     : d  I7 ]5 H# |
192. 
     * C- ?! T4 y5 K6 }2 p( L# S
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     $ y+ d1 ~0 w% z
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     % d# D1 T8 M( _+ n3 g
198. 
     : u2 n- W" n3 H. T0 W
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     + c7 g9 v2 S" u% n
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     / V* L% U+ O7 t  Y! O& u
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     % ?9 F$ r& t- s
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

8 m1 P8 d/ {. Y' \2 U! a
源码复制到易语言教程:
, y, W& Q  u4 a
首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

3 L) ?5 q; ~* l" A" f3 y, \即可插入易语言命令代码哦

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

& }6 G: ~; d: r3 n' G8 M: i


$ A1 M8 @: I$ x( n

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

3 r2 L+ h5 T3 h+ ^这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。