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

十万个为什么

易语言命令名称：
( C2 ?% @+ _2 H, q网页_访问_对象

命令功能介绍:
! g& D" y) y8 C4 C
  i. B; e& E8 k: n# j使用WinHttp的对象方式访问网页
( Z& y+ e4 O5 j; m  Z4 P9 I& C/ d命令类别:精易模块命令
# J- o) x& k+ r( M- A# P4 P

命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
6 x6 F' M& |8 f    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
) K* S/ j. h; B7 R! r. _( y2 n$ ~    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
/ u* m9 E; z7 J% h! O    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
, }1 H, _! M" A5 D. s    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
, ^  w9 t; c7 w: L' R4 S: {. y    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
' d& S# i" n6 O7 {* P# ~" D    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
) n2 a  W+ j7 ?! Y( s- L$ w    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
' @6 F- c! o* d7 i8 [- t8 C    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
- ^# |, |( `/ e1 t    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
. j3 K7 b4 o% M' T    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
) u  n( _+ V6 g    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
' P1 S6 O3 m- e    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

$ b- j, x. ^( L1 K1 L3 d

) p' b2 S% a- O$ ?+ t
8 N2 f6 M0 I" L, g

命令源码:

; s9 C$ P" ?% l( @

1. .版本 2
   ) n9 N0 l/ n& C
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   * l+ P% F* `& J) h; ]) ]
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   9 h$ m/ N% u8 S( K
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   ) t# }5 N4 i: z3 b6 w
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   ' _0 d. x/ j0 O+ e( v! V
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   7 f9 x4 A" s' U# g' w/ i
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    # G/ r9 q" n: Z1 f( A
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    : r9 p1 X4 f. D( n1 ]: ?$ A3 H
16. .参数 代理用户名, 文本型, 可空, 用户名
    $ ^$ j( G& G9 A- c4 b7 G; T; y
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    ; q+ @# T1 \- [9 e9 n
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    / V. L# |! l" O. Z1 b
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    # e$ G6 |) n* l5 y! M; k9 F4 b
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    ( m5 Q' _! ]# ]1 c
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    - @$ K5 I' \' O7 |: R! c
27. .局部变量 局_计次, 整数型
    2 s% S, I$ l# Y5 D
28. .局部变量 局_网页数据, 字节集
    3 [3 l# g% ~" a, x5 S- M
29. .局部变量 局_变体提交, 变体型
    
30. 
    . b7 |# {% U9 Y0 N5 n
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    7 A2 t  q( W6 w+ [: O% W! y" A- g) g
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    & m( q" J# W. O" T
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    4 ]6 G9 Z; A; R# `
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    ) }8 |4 A9 ?/ ~- G, E: ~
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    ' I' `! K2 t' X% H, q1 [& V
42. 
    / y4 c/ V$ E" ?
43. 线程_初始化COM库 ()
    
44. 
    # J! y& E* B, `. O+ `
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    7 @7 K: c% I; @8 P( J
47. .如果真结束
    ! W) U% _& t) p
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    % S! |' u# e& w3 x9 P' t
49. 
    
50. .判断开始 (是否为空 (对象继承))
    1 p7 R' Z- ]7 G/ m+ D
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    2 r. f  o' s' v4 n# s, x+ h
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    / S2 w8 G$ z% k" Q* ]. d
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    ) i: i& O. i/ e- X/ d" [, q
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    - {) ]) f1 Z! E5 n+ R- o
60.     .如果 (超时 ＜ 1)
    5 {4 H1 R8 m$ U3 y3 _
61.         超时 ＝ 15000
    # ^' |' j8 \- N( A& p' a
62.     .否则
    ; ~& X, d6 ?- `+ A
63.         超时 ＝ 超时 × 1000
    6 l9 O2 }% u  F4 W; ]8 g
64.     .如果结束
    6 }" I. I: A9 u! ?8 v
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    $ _) M- z% ]" R) l' B$ i/ z
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    2 v: [" C5 [% d8 n$ q# `2 m+ L5 w
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    : i( @  n/ y; a  E) K
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    8 y& d1 X9 `% Q6 w- b$ N- G
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    3 o% i# e) [  y7 ]8 T* `
78. 
    6 }, h" f3 w3 R4 I# Q: E) }5 b7 n
79. .如果真 (是否补全必要协议头)
    6 C! w4 ?4 r3 Q4 v. |
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    . b0 w, B1 L( D
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    ) a6 F, p1 ?7 F7 \, N
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    3 U9 Q! _2 z4 A
86.     .如果真结束
    : [, R8 x( y8 a2 N9 l* c. ^% Z
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    , z/ l  N  a7 J- |
90.     .如果真结束
      l/ l: X, P& n: i" `- [8 W- ^
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    % }% |, o0 E4 u* K* F
96.     .如果真 (访问方式 ＝ 1)
    4 u% \1 ~( Q8 \% W8 ^( R( ]1 `4 V
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    . I& j9 q6 k" B2 y( @4 C
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    ; K5 G; N  x! v
99.         .如果真结束
    / f& t( p9 _# }- j5 y
100. 
     
101.     .如果真结束
     
102. 
     + n% f% n2 V: |; s
103. .如果真结束
     
104. 
     : e$ X: g+ S1 A3 }$ y! o3 h
105. .如果真 (是否处理协议头大小写)
     ( B2 u; \! o) M" m& H
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     * t2 N' J$ v4 m$ y" ]7 E
110.     .如果真 (是否为空 (代理标识))
     " }" s+ I$ B: F6 \. a+ A
111.         代理标识 ＝ 1
     3 D+ {  s" i/ K3 Y8 ^
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     
118. .如果真结束
     1 Q, \+ W  o0 G$ ^* P, `* F' d' C
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     + q$ ~9 e3 k0 {/ o
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     1 ^1 H% \- n& U: I
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     5 J7 R4 n3 J0 @, j$ ]$ Q
129. 
     
130. 
     1 e, U8 V  H/ u3 i
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     2 K4 e) r5 Q" Z6 w2 X/ `( I
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     8 o* g! G  e2 |: f8 g; J
133. .默认
     & H$ q4 H, Y+ W
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     * h5 J% a: V0 u3 M
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     3 ]  d$ @$ |8 r. c. q
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     8 C; {2 a2 P$ G2 Q: n
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     - f5 O. k# n, Z: z3 R# {
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     & ^# j+ G6 b5 b
140.                 .如果真结束
     * {" U" Z. f1 y$ x5 H
141. 
     : L1 Z+ [* M4 ^( D+ `
142.             .如果真结束
     - B8 ?  M) v& m' G7 E
143. 
     5 s4 b" l4 m$ J! ]
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     ( `. \" j; Z% p- U9 u% V
146. 
     5 A, Z7 h8 {7 o
147.     .计次循环尾 ()
     ( H. h/ b: G, v
148. .判断结束
     ( m. N4 p: q' F! S7 O
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     0 X& B8 ?1 s: T2 o. X% h5 V6 Y
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ' l) Y* A% N5 u5 I- ^8 ^
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     ' M$ S! g6 I, d
155. .判断结束
     ! m6 N1 R. q  {/ Q3 X9 n
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     & d5 M) ]1 t' X9 m* t& ^5 m( f
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     0 R/ Z* f/ m! ?1 ^$ q* [  C6 P
159. 局_WinHttp.读文本属性 (“StatusText”, )
     / g3 J9 X; ~8 Y; p: k. A9 I, h
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     4 H; x0 u4 n3 j, h3 h+ s* c5 ~$ Y! E8 b
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     7 D+ m& q( }, v. I
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     , X/ W, z$ ?8 s( L0 O' N4 i
169. 
     & g% o# w, ~, n+ u9 G
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     # p& a+ ^" T+ ?# o
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     & ]* f& o0 B9 k0 r; S. X4 L2 r
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     3 y% [4 s0 e+ B. O5 k
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
       ^- N: z: A9 G  U0 g' M" I
187. 
     4 v2 _% ^( ^3 A) c, _
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     * K  X% T* C  s8 K0 s
190. .局部变量 位置, 整数型
     , ^: C1 }# @7 }0 C0 r* n0 @
191. .局部变量 结果, 文本型
     
192. 
     7 U. N# ?" E) G& C8 J5 N8 g
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
       r8 }# S0 N% e; t9 D( V
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     % x3 T0 v+ r1 @& C" E
197. 返回 (删首尾空 (结果))
     $ J- Z+ j1 G# |/ s; e
198. 
     # [( k( G( M7 A. g
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     - ]1 Z. |0 X7 q# s5 O8 w6 W
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

: s6 V3 O, l- c4 ~; j; }' l* h
& k7 ^2 `$ ]; ?/ b5 a# D  R" D. J源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
4 L) v; U' D( V2 m  C/ S

0 ?" @4 @0 {! j1 |$ i# R' g% v然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦

* c! q" Z9 e# uDLL源码复制到易语言教程：


4 o/ q" v% W" _. b6 `! E. A

. y; }' J1 o9 @* \: l0 h) z) l. Y

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
0 d3 {/ i* m, N, _- G) p

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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