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

十万个为什么

易语言命令名称：
0 m7 u7 G+ J2 A' {9 n网页_访问_对象

命令功能介绍:

3 H: a# o& d4 c5 ]1 R  g; b$ |使用WinHttp的对象方式访问网页
% T: ]( _" \" m3 e/ V命令类别:精易模块命令
$ c: M' @2 X. M+ {/ V4 q3 `# g; w

命令使用说明:
: b0 h4 `3 ]$ |% B+ ~7 P子程序名：网页_访问_对象
7 y; [0 s! F2 [4 C    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
. ~1 i: G- V7 K; B' h4 v/ o  B    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
0 o. [% f5 {: e7 P+ f    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
4 p) u* c- \1 b, |- i8 a& o/ ~    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
  C  G; y5 I+ Z. P  B0 x! C    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
7 N! \  _% Z6 I# h$ a' p( P    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
! h) Q! q* k1 N" p# r. r3 ?    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
) I' R) Z  v1 i4 @, R* N. R    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
% L8 F" B. E) j! F& w; ~    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
5 ~0 p/ w# D( y/ D5 S& }

/ ?0 V$ [4 A9 v2 ^! j) Q: b

/ @8 u2 n2 l5 J1 b$ e6 w: L
) J8 t3 @7 A( C, }6 C% D
- R1 X3 @( C7 I9 J命令源码:

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   - s" X% s2 @: B2 Z+ a) ^
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   + V7 j& @; h; h: P3 D) H. H8 |; x
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   " `; Y. O; V: j9 s  x6 B
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   . W& }( b' |$ N. ^, X/ m1 p
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   * L7 f% h, P" E2 ^, P& S$ N
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    ) z8 t7 n1 M' c) ^+ w* T
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    # S. e" c' u4 K) A7 U( S8 p4 ?8 b
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    7 g$ f( ~" M3 [- q6 J) `9 |
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    2 a1 g/ t8 i7 v' P0 H
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    $ A, o# |2 ?8 a# A: }/ ?
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    ! s: g4 x; t2 t$ B" r/ |6 J) X
26. .局部变量 局_返回协议头, 文本型, , "0"
    6 T2 i' j0 w9 `4 m
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    " j( U- d; ?3 M; k
29. .局部变量 局_变体提交, 变体型
    1 x6 o* A9 |" M# J' K( F1 V: J
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    7 z0 X" x  w8 @- O( m/ p
32.     是否自动合并更新Cookie ＝ 真
    8 s2 \' q* Y4 \+ v, m
33. .如果真结束
    3 m  m$ l8 g8 f) ?
34. 
    : W2 V/ r) J1 G
35. .如果真 (是否为空 (是否补全必要协议头))
    0 |  ^% T- ~  d- C- H' Z
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    ) [. Z: v/ q9 V
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    
42. 
    $ y) L" o* T/ |
43. 线程_初始化COM库 ()
    
44. 
    5 s1 f; B3 \  i5 d; I& B. F+ k5 g
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    # H$ {2 J- g/ N+ T. `
46.     访问方式 ＝ 0
    ; k; n* r) e# N$ s
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    % E1 ^& l3 q. P/ U2 m/ |# Y
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    $ z: M, p% ~" `6 f0 a
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
      Y7 s8 W& W: |4 \
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    0 ]5 A) q, n- p# k& m5 \% p& l/ g
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    9 f  e  y; a) E- D; M, Y0 H( N  L( t7 {/ f
63.         超时 ＝ 超时 × 1000
    8 ?9 ?6 z2 c3 n
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    ' ^6 s9 Z  I1 |0 l! g6 ^& X
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    ( q: S2 |0 B* n, z6 |
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    % h# W" }) F2 k3 P# d2 d
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    ( r9 e/ H8 T# C5 d3 y% B
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    1 M% h: V4 ?+ E' H& R
77. 
    8 H, l5 Z/ b; y$ z5 i/ }% s7 C% a; v
78. 
    : N- q$ c) |4 o7 |- B, J
79. .如果真 (是否补全必要协议头)
    % t$ X. j3 L& _+ K: }5 {
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    9 B' n* D0 }! u# Z' q% z
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    9 ?! K9 w; C2 p% m5 u0 i
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    + `) ?( b" n2 l$ m! J4 Q% W
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
      O! _4 U# i( T1 I0 e: T: G
86.     .如果真结束
    
87. 
    * H; L" Z8 |$ B! K7 m! F4 S6 M# f$ }
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    2 V' `4 d: A9 I* ]3 \
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    0 ?4 o; p, D- O5 ^
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    3 R+ E/ D% h# N) V2 c0 L
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    & [) t5 h, q. Y& b: L: Q1 R+ ^; z
99.         .如果真结束
    8 C0 {' M& M( W$ \6 g
100. 
     ( P7 A2 ]1 }( P; C( P' N
101.     .如果真结束
     
102. 
     
103. .如果真结束
     
104. 
     3 E( X' e  [8 O9 W9 Y
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     , q5 Z' t; S; D$ V/ E- ^
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     * H2 H  {0 c# z! _5 ?! W/ X" G
110.     .如果真 (是否为空 (代理标识))
     2 J# ~: S: _# g0 N1 r/ z! {
111.         代理标识 ＝ 1
     
112.     .如果真结束
     : w' V5 a" T( [8 [+ t) {" e* [
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     0 N1 h1 ~. I; e# k0 w- G$ H3 E
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     ! m+ u$ Y+ |& v1 ~% `9 Q/ I' w! M
117. 
     
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     3 t5 V& L2 [9 d& q: r( }8 C- f! W! ]
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     " l: @* ]' r5 Y# M# O
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     , v7 q2 l9 P  [( j4 N2 b
124.         .如果真结束
     
125. 
     
126.     .如果真结束
     ; p7 Z3 h. }7 g$ \/ V" j5 g
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     # U! r) b8 P" @+ ^
128. .如果真结束
     # e7 q( k' b9 {8 P6 Y) K5 I5 p3 g
129. 
     
130. 
     , w- y) ^* R% D; y+ p
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     ' V7 O( C" _5 a% v/ H) w  y
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     2 s" i* J% ~# P9 n: |" ]
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     $ P+ F. _; C+ h; W, Z
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     ! `( |4 a& y  g" {1 W. r
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     & [7 D* |' `0 b5 J" j- e
140.                 .如果真结束
     7 w8 _" r7 O  ~
141. 
     
142.             .如果真结束
     5 a* P) t' @; g: o. s/ {
143. 
     0 M6 q' I6 A  i  G2 @8 h1 c
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     4 ?# q6 V% V! F' b% E8 X
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     5 h, {* y) [7 t: ~3 c
150. .判断开始 (字节集提交 ＝ {  })
     5 P" J9 L4 D. n3 d: S0 k
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
       j1 O+ i+ T* K) n  s
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     $ F/ q8 y  L, c; E8 q
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     . d, s1 T  y+ I( b" `/ w) U
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     0 X1 U$ P1 j' T9 Z
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     - i& G% m, _) E
166.         .默认
     ' \4 M# b. ^; m8 C
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     5 j: x/ y7 o* h5 q  G
169. 
       {8 f  O; h, T- F+ j# g/ U7 q9 _
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     $ O& e' D. w5 ~; y" d7 O& l! B
177. 
     6 Z3 {% q9 l" g  {8 [
178. .如果真 (是否自动合并更新Cookie)
     / R+ W! p( w# P5 t, }, I
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     ) t+ }; s, {2 N2 `/ }
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     3 u2 G/ u+ e& v
181.     .如果真结束
     / n" y8 m3 ]( d2 T
182. 
     - h0 b$ {+ Z6 |
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     ' r2 H$ P$ D, L4 o& c
186. 返回 (局_网页数据)
     4 @% q3 g3 x3 m/ ?# {2 t
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     ! r( ^7 Y, r7 S9 a. g( N1 @/ Z, h& N
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     
192. 
     * u# A5 S: ]7 O; g
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     - @. w- F" u* y, {/ |0 T7 n' w$ b. b
194. .如果真 (位置 ≠ -1)
     ; A/ K- s) \. r7 {# L$ m2 ]
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     0 K' o0 S6 u" J1 N) B" t  D: P7 U
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     . H0 l3 f& [1 K* o; [$ V
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     4 i' h$ [" A! h9 l, x7 N
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     * j4 t  e. f8 Q& e  r- ~4 i, G' R
207. .如果真结束
     & F0 ?. S8 f" P0 p
208. 返回 (删首尾空 (结果))

复制代码

. i) g0 v* V. H6 Z源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
) y6 y+ F9 X$ W$ T; x# R- z- V( T

& s* z1 b( z" f然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

) M: q/ v) o+ N- o2 F1 q9 h/ `7 U即可插入易语言命令代码哦

DLL源码复制到易语言教程：
7 T; L1 ^$ ]7 Z3 Z

+ z( Z$ x/ ?* x
- l+ D# N- R+ P* @4 w- E' o

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

' v3 M; Y, ]& ]/ }4 z这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。