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

十万个为什么

易语言命令名称：
# F$ F: `# s- m0 y* |2 c3 {网页_访问_对象
! F0 _( j  Q0 n
- u( Z3 P; ^- V命令功能介绍:

使用WinHttp的对象方式访问网页
命令类别:精易模块命令
5 s, D1 A7 w: h0 P8 B

命令使用说明:
* G) H, v& Q! c* v; R0 s) t7 s& {/ v& x子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
0 E) q6 F: J+ W. g& B    返回值类型：字节集
. u4 T+ ]; p+ Y8 C, L    参数<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。
# I. _  {3 P+ ]    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
( q2 ^) V( V6 h. O    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
8 }; i0 G% p, e* t* }8 F9 r    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
+ |$ |" _. p; l0 X6 l7 i    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
. y. [: @- K3 f' c, t* h    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
/ A, |& l5 X) i; N5 s    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
- Y; ~9 r2 m3 A0 E0 L  H: P    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
5 w0 ~7 z. I7 `, t( T    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
3 z! j/ |- U6 @2 `    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

' {7 g) {4 g, ]: ~




2 w! c/ }$ T2 |* L* d命令源码:
* N! e" H7 g7 C' t5 s  w

1. .版本 2
   
2. 
   3 n) i; I* n' K% Y- h
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   . T& E1 O1 _# |" X1 u
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   ; X' K; |' `' t* d+ H9 l
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   - |- v) {% T! L$ k# Y
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   1 R# A7 x" V! \1 \) h0 t! h+ C
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   - B% M6 H; f% J2 q% o; A
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    0 L5 f1 u% @. w# w
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    1 Q9 p6 o+ z9 C" y3 }4 C
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    " d1 }3 L/ O) a
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    4 [! J4 L! \0 N2 ^* o, j: }) L
17. .参数 代理密码, 文本型, 可空, 密码
    * P  j& u9 A. M, f3 `  x
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    1 U$ O5 Y- Z6 @
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    ( d( S- i# W  [* R8 F
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    % \- A  y) N) S& \% z# {
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    9 e: r( D/ v( _) K! `4 S
26. .局部变量 局_返回协议头, 文本型, , "0"
    7 s  C+ m6 O: W! w) N
27. .局部变量 局_计次, 整数型
    : F' _/ U/ X) o: d4 H
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    4 u# r# ~# U; _2 H6 h) ?4 H
30. 
    ( c& R! J% H* @( A7 P* {
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    9 \6 u- ~3 Q1 d  n7 _- M/ Q
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    + `' k, k* S! |- I- N" h% f1 I" f1 o
34. 
    ; v2 x8 I0 P, Y
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    # K% ~& o8 U, X% k+ A8 K; x0 n
37. .如果真结束
    8 h0 Z6 {& w# O! {# o, q! ]5 p; y. r
38. 
    # }0 y, |& Z! _
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    9 E3 s1 O9 I6 l- r8 q
41. .如果真结束
    % {) _! r6 ^+ c6 X: D7 }. V. H
42. 
    3 d( \' F: ^6 n; Z
43. 线程_初始化COM库 ()
    7 m1 g* e4 K3 p' e4 E8 M+ q
44. 
    ; n* V9 P) M0 O0 k! P7 l2 A
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    0 h( q- {. ~  G6 Z
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    " B/ {: |' E: u$ j0 e
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ; _4 f' O! X; X& G) m) v
52.         返回 ({  })
    3 b. p  x: Q- z
53.     .如果真结束
    
54. 
    1 C4 Q& I+ \  ?3 b0 P' t1 o* l2 }
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    # e4 _, t8 I6 G/ r3 E0 ?
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    : ]2 U5 p  X0 l) @- ~* q
61.         超时 ＝ 15000
    / Y2 Z$ r8 x+ P, \# w' t1 {5 W" N$ C
62.     .否则
    / h; C6 {. v" y9 G
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    4 g! j9 U  x$ ^: V9 T  @
70. .如果真结束
    3 }! s, K* J, q! p' ~. x2 O
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    ; c: B/ ?" `7 \
72. .如果真 (禁止重定向)
      ~" y3 X) S+ N$ c- f
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    9 F% d- Y- i6 I! T
77. 
    
78. 
    ; Y( X" Y; _% L2 Q% r4 h
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    - r/ ~6 U" U  V2 f% J" z  a9 C* o
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    6 Q+ ]8 R4 E9 V5 P
82.     .如果真结束
    
83. 
    . |. L& k) H- F5 F
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    ; k+ B# k8 d) U# B, u
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    3 v9 G5 @3 b, g  @' f) |; Z- K
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    7 J7 J' K+ Y3 B8 Z- H& P3 z9 j
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    ( Y$ n6 X! `6 Q% S1 @
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    1 j6 Q) E4 ~% s" f4 t- M
100. 
     
101.     .如果真结束
     # J: D) }, r* F* E+ u5 l, y
102. 
     ; h( S  B4 d; h; G9 M
103. .如果真结束
     " w- d1 P* Q) K, W
104. 
     ; J( O1 W3 K' ], f: Z
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     6 R: ^7 M0 u# B8 l, _. _+ u
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ' S- I- c4 A8 R
110.     .如果真 (是否为空 (代理标识))
     * {; X% X- F( c! e8 {8 ^
111.         代理标识 ＝ 1
     ; n: A  p' h& {7 U
112.     .如果真结束
     7 x' \3 ]+ h' ]- K/ X' F
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     . D& s2 l" l+ V$ _7 T
114.     .如果真 (代理标识 ＝ 1)
     ! e2 K5 S9 [2 l, z1 d- Y. L1 S
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     8 y& {& i; v% C3 r5 M# _
116.     .如果真结束
     0 r- Q6 ?( l2 |, N, t, I
117. 
     ! C9 v/ q4 _: g: Q/ m& |/ X  W
118. .如果真结束
     
119. 
     ) C/ t# d! y) r& X/ g0 ^
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     5 Z9 A9 m4 L+ l7 K  o* B% T
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     ( ~' Q* I1 m- [& X2 s2 t
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     3 |% X6 x: R& Z0 ]; O: T7 V4 o- h
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     ( i! \& a& F. e" j: K3 a' W
129. 
     
130. 
       G: X" w3 ^! a: c
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     ) S/ T. p  j7 Z! m: G
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     1 N; c. W! C" w; m7 a; T
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     0 ]. I/ ^0 N. b7 o- t8 U; T
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     : ^$ N6 U3 ]  ^( Z, n
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     7 t4 `4 }0 E: k! J
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     ! j" l5 R+ }& l4 G1 M& z' `3 e
140.                 .如果真结束
     
141. 
     
142.             .如果真结束
     
143. 
       |! m) v0 @  p5 D! V0 U+ H% t
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     9 _' h3 h5 _; i; m1 N2 A9 B
145.         .如果真结束
     
146. 
     2 j+ l0 y* u2 b
147.     .计次循环尾 ()
     # }7 @# Y; G) G8 \2 I
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     7 ]: N* e" s+ D+ W- T, ]3 H- f
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     9 f. K/ g% {# l, m1 K
153.     局_变体提交.赋值 (字节集提交, )
     * L2 I6 l9 \5 x- O& B" A/ L6 f
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     9 \) Z# k3 ~7 ^( D
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     0 U6 s$ B/ c2 c) h7 t/ B
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     " a- o5 x4 K- _+ ?1 {
161. 返回Cookies ＝ “”
     ! Y7 z# [; K6 w0 {5 k6 t
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     % G8 f# L1 C  `
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     % `* j% `' a1 ?* Y' {. b
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     0 B6 b1 h: b3 \; ?  T0 _+ N
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     . v& Z* |  U; F& E7 y
168.         .判断结束
     , S/ I( t+ k0 `4 Y6 x/ J# K* Q* P
169. 
     
170.     .如果真结束
     8 u! [, Q9 O, W( Q
171. 
     
172. .计次循环尾 ()
     7 w4 w* @* G  |# u+ O
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     ' ^: o2 q' Z" H1 D
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     + _( Y( U1 w$ k2 f& W% [
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     " g4 u* c3 }3 M; O, k4 A4 ~5 l2 ~
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     9 U& C! `9 I5 v+ M9 M$ t4 u
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     # k1 g& s1 Q4 C
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     / A9 _5 {! _, R2 f0 g0 u* q2 W+ A
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     : S, b% k: X) E1 R& A8 Y- e% d
187. 
     8 c# z- J% r6 ?) @+ q
188. .子程序 内部_协议头取名, 文本型
     ( g3 O; a1 ]# K# W  }! E
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     % w: Z" ?* y( X$ K5 o5 K+ b. q
191. .局部变量 结果, 文本型
     
192. 
     % h& Q6 |6 y; H, C- e% D
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     % u: Q8 G* ^4 D' C
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     & {* v6 h+ y% a2 O) Q/ D
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     % w9 s4 s' B* o9 w; U2 B" a
200. .参数 协议头, 文本型
     / Z4 {# |+ i4 n/ u3 S
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     . E" n& W$ J1 u
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     3 }2 C9 C* P* N7 _: O
205. .如果真 (位置 ≠ -1)
     6 A0 J& [! u2 Z
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     . q, \  H  S! \! l# N
208. 返回 (删首尾空 (结果))

复制代码

; x- O! J5 d1 ]# a( k7 D) C源码复制到易语言教程:

6 F6 t# K0 D- L# }9 u& Z, n首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


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

, E9 y* @7 ]- ^6 q即可插入易语言命令代码哦

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

$ O' x7 b8 j; V1 \


" i, x$ k( w: o

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

: e& y' f8 b# ~. l这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。