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

十万个为什么

易语言命令名称：
) _, c6 C; n3 p, K0 V) O0 X网页_访问_对象

命令功能介绍:
) i0 l9 H! N8 \$ y8 L) `
使用WinHttp的对象方式访问网页
5 r! e1 h1 B" k4 K8 a7 K5 w命令类别:精易模块命令

) y" K- f0 @" h- r  d2 Z" A
命令使用说明:
3 ~7 ^% b, ~4 V/ ?5 H子程序名：网页_访问_对象
8 i6 }# h. z: K+ F# D+ J: D1 M    使用WinHttp的对象方式访问网页
! d( q7 W. e' }. D; H7 b    返回值类型：字节集
    参数<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。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
$ K) B! i3 k4 L6 k! S0 J: n; a    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
: g$ j/ f2 ]. d/ Y) O; X/ S    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
& ~2 |  W- N% c- @: ~% ~    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
0 c5 S6 m1 q5 n6 E( v5 t% B    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
: t( C/ [* S/ @5 f$ T1 e. W6 G8 E    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。



+ F6 E5 W7 V7 V$ ]0 U6 n8 T
+ ]8 U& v3 s4 r" q( n
/ g1 t0 r; E' b. y( e1 N/ m6 G
+ i) n/ Q+ W! U命令源码:

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   $ U$ i7 F7 l" M; K& D0 C
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   . R/ S1 g$ T! i8 L) n0 W
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    " x2 x# E* G5 o! J, j
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    ( H# {& J/ y) b% L# s
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    ! W" B7 A+ C& @! o- y* p; A! A9 Y
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    3 V; U: d3 z2 O- D
16. .参数 代理用户名, 文本型, 可空, 用户名
    6 `* q# G& I+ I2 \  h8 |8 R6 Y
17. .参数 代理密码, 文本型, 可空, 密码
    % s" Z; m. ~& b9 a/ @* T. v7 p1 y
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    / R6 @( v6 T7 \2 e: J
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    2 d1 R5 {  y) {- N; [
27. .局部变量 局_计次, 整数型
    & N3 H+ y; S) {
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    6 K& E" |' L) A8 r+ r
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    ' H* j  c9 I* \" B$ p
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    / q: X+ c: m% t3 \
38. 
    9 L* M% x4 X, p( x6 }) a
39. .如果真 (是否为空 (是否处理协议头大小写))
    ) k, T' Q5 j" M' Z* C: Q1 A
40.     是否处理协议头大小写 ＝ 真
    ( @5 R- X( P9 |6 a! @+ ?
41. .如果真结束
    
42. 
    & F, d% p" a% a- P) Z
43. 线程_初始化COM库 ()
    2 J3 ~8 ?. M, }( Z
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    6 U- p, @( g2 ^$ h$ D
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    * I2 W; k/ g  f  Q% a
49. 
    ; r8 M" [% N/ x  _( Z% }% S1 g
50. .判断开始 (是否为空 (对象继承))
    / F8 c5 n$ g( U; V( M% `
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    7 D4 L& g3 a) M7 R
52.         返回 ({  })
    6 ~' J3 A# z# s0 g6 a3 Q! g: I2 @
53.     .如果真结束
    % X) v; b4 ?" W
54. 
    7 b  S2 R! L0 L- c7 b
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    : R$ J0 G( j, _/ z2 |* D
63.         超时 ＝ 超时 × 1000
    & ^- B5 o; S5 l# ~
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    ' @1 J: t' H( h& z
67. 
    
68. .如果真 (代理地址 ≠ “”)
    4 c/ @- i1 \  A
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    " m5 S; S1 D" {. N4 O9 P
72. .如果真 (禁止重定向)
    " b. [' a/ e) M8 q' X' o' O
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    3 Z, e+ Q6 }/ R' `9 V
74. .如果真结束
    
75. 
    6 l: E/ e( S8 N6 m: F  P  a2 K
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    . }. M1 j$ j8 I: Q
78. 
    
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    1 ?. A9 q* w# Q3 v4 a8 m5 {
82.     .如果真结束
    
83. 
    ) n6 h! W% [- r
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    6 |  X& o* F$ u; E1 Y
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    1 v6 d3 S( ^' W4 a8 Z0 D5 l
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    + C1 S+ b0 ^, y* w8 z. c: }1 }
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    8 H$ k& @% @# g2 T. [- _
90.     .如果真结束
    3 R# v/ P3 z$ M- n; R/ p* [1 n
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    ' a; {+ N8 Z2 v  v! T! G2 [4 `
94.     .如果真结束
    5 H- }: n. k, J" ?* t
95. 
    1 U: E9 `% p. _( ^3 j( ^8 a5 p
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    " e5 r* L* i, R9 Z5 y7 R9 T& ]
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    & e  w1 `8 f  y# o. x' v
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     
102. 
     
103. .如果真结束
     , b( J6 U/ r9 ?$ M# I% u. R
104. 
     5 m$ |- A! K# k  ~- A4 [3 t
105. .如果真 (是否处理协议头大小写)
     / q" C0 C. i% C- e1 K2 n& I0 n
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     - ]) b" T; C8 Y; T7 F
107. .如果真结束
     . g# `4 f  b* y+ f
108. 
     ; F# S! Q% ^4 h& X
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     / X! j  m+ E4 T  x. f* ]
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     , `% t2 ]0 A6 N6 a( c% s$ M! B) E8 x
117. 
     
118. .如果真结束
     6 Z2 v+ b+ K/ L! u3 k7 O
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ) i7 }3 |, y1 }2 |1 {) t8 T) m. Q0 n
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     ! v$ }: p( h, [
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     1 R. d4 A% b& S% v0 ^# |
124.         .如果真结束
     
125. 
     
126.     .如果真结束
     ' k. W- F# S$ e! q6 E8 b
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     : c9 j6 t" A* o( Q6 c- E5 c+ g
128. .如果真结束
     5 {( T3 Q" l2 E' h
129. 
     * L  m1 H, X' S) s4 y, ?0 T
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     ( _# {: d2 p- {, G
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     0 d) s! o6 F9 ^$ c) q0 n3 R
133. .默认
     , D2 D# c: c" g* t$ @; u$ r3 w
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     9 l) ]3 u* \7 C
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     ' |) B  p- }$ r/ a8 f
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     0 e  u4 K; w% X/ q- @; @& \/ j8 Q
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     # ^1 ^3 r3 y# U2 F; B
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     " C$ c& @3 x6 E" q; k# U& O& D
141. 
     + I6 _% O4 e& \. `; d# K* d
142.             .如果真结束
     / {( o4 B  h$ Z7 |; Q6 R; |
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     ' R  |! \' B; g% b- [5 q' t
145.         .如果真结束
     
146. 
     $ G, a* m+ ~5 ^, p* d
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     , X1 `6 X8 n6 W2 G4 {5 k- D2 a
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     2 |9 X4 y2 A4 h/ l7 g
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     # b7 E8 `  |0 D, v3 ?4 j5 Q
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     # ]  B" [8 n% |& U0 k
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     . ?5 T' s( ^+ c2 s$ N3 I5 A
166.         .默认
     9 f7 z% ^" D0 t+ R. I  ^
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     # `% x+ b$ L' C6 S# W
169. 
     - S/ P% J6 f6 U0 f" M
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     " q1 E  F& _; f5 C
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     ; A: D& D& }: {1 m6 H) D/ r
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     , B# A, ~% G; F, Z9 i7 ^
176. 
     3 d% u1 d' j- H( A* i  b
177. 
       T, w* T/ ^1 P+ ]* H4 h
178. .如果真 (是否自动合并更新Cookie)
     2 R* d% L7 K$ s2 Q# a* i/ `1 T
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     % R& n$ |$ J6 P# x
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     . c; [& q* d# `/ m& D
181.     .如果真结束
     $ `0 j6 a  [& ~
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     5 L% I' R. j0 Y) G: S; N! f
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     , N6 C8 ]' u6 X( p- Z
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
       `9 W" }% m, V& u8 Y( v
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     6 i# a' E9 h2 F: }' \$ C& B4 i0 g
194. .如果真 (位置 ≠ -1)
     ! Y, z, ~. d: o( O  H5 r  n
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     9 l1 z6 R, j4 k5 `
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     9 ]6 G- |3 T* h0 ^6 Q. g8 A! \8 B
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     # o* s$ W# s+ J7 ?0 A# }6 @* E7 j# Q
201. .局部变量 位置, 整数型
     8 y, p  z8 h1 [6 G) {; U% V
202. .局部变量 结果, 文本型
     8 F1 `: q, G; r* j( N
203. 
     / j) {% r6 e  \1 Y& j4 W7 ]  H' H
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ; W( v9 r8 s7 r3 E! r4 c
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     . j4 E+ e4 @) i4 X  k* S! G
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

# w, [9 |3 I" }7 ~' d' E
源码复制到易语言教程:

- q$ |6 A& L- L: f0 `首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
" K  F- s. S/ \1 g5 e) m

然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
5 _' B3 p2 ]; l) O
即可插入易语言命令代码哦
! y3 M- t3 B1 `- }( w8 F2 G
! `; d6 p& y, G% N+ G4 @DLL源码复制到易语言教程：
6 E; D9 s0 \1 V8 t; j2 `



9 z$ R% j) ]) w  g, Z9 d  M

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
  ?5 W" B3 ]& n% v# L" C) w

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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