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

十万个为什么

易语言命令名称：
网页_访问_对象
2 w1 f5 i( c" V/ L4 J
命令功能介绍:
& f6 A/ G( J) {* ~8 ~
, H. I0 O% g4 e# J4 A8 J7 z7 A. Q使用WinHttp的对象方式访问网页
& l1 I3 Z/ g; ]7 k命令类别:精易模块命令

3 Q& c; O! v, M& B% |5 H
命令使用说明:
8 I; h6 v) Y' `" F2 ^) D. F) @9 C子程序名：网页_访问_对象
! N. W2 |; H* i8 o) |& S    使用WinHttp的对象方式访问网页
7 a* b6 X* \- a' ^  s    返回值类型：字节集
7 V! y3 f: h! Y5 n    参数<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。
) v8 g$ B, {& n/ U9 j    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
2 U7 f4 q5 n* ?3 B  b    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
9 g, @$ o2 X1 M" `$ x    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
) y( S; `- @5 D+ R    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。






命令源码:

" Q1 o5 z3 F3 Z

1. .版本 2
   ! j) \! f7 H# Y5 U# A* u
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   . _  o. |8 y- n, Z" V- R: k
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   9 `1 P+ c8 B3 G* r4 w
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   1 T4 ]! {9 n+ L2 z" N4 a+ \: Z
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   ) k* T9 G3 `! a7 X1 G7 s
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   0 q* I) W# S' G9 q# L6 |/ H: _& j5 k
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    7 n' `8 m! |! Y- ^
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    & M* X' E1 z% |
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    % |5 L; z$ H9 M3 w9 l! i
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    % b$ r5 k$ I! X0 y
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    ! q# c. a5 c  d7 e0 r$ [4 s/ z
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    2 O' R, b7 N3 ^% w
34. 
    3 _" Q/ \5 Y) b3 k* i( E
35. .如果真 (是否为空 (是否补全必要协议头))
    & ~4 Q; T/ U/ j  b
36.     是否补全必要协议头 ＝ 真
    4 B, K" f* J& r; r# r' H
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    , o4 w2 O+ a$ x# M: A6 S* R
42. 
    - @* U0 w0 g; j+ I2 S: @9 U5 u
43. 线程_初始化COM库 ()
    
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    " s, d& g: l, k2 O
46.     访问方式 ＝ 0
    8 s! W9 [& E+ N9 b9 t$ }% d
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    & {5 T' o( p3 o  y
49. 
    % T* {- [) m+ _
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    6 s; U% p6 O' |( l, l
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    4 @  R% ~  m% ?6 A) @& T* b1 [8 |
55. .默认
    4 R" ], n1 M  U3 D# z0 I- m
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    9 C$ h: Y5 Y) g7 {
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    $ S3 ^3 u! P+ P& V6 b
61.         超时 ＝ 15000
    
62.     .否则
    / {, W' ~; x8 Q2 J5 o( w  a. h
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    1 g! ]8 u; A2 N
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    , L' S1 g& Y. Q( d7 L2 Y
68. .如果真 (代理地址 ≠ “”)
    & L9 x5 V$ r# I( s
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    , _  K' m  G: n0 r, g2 |! _% l1 n9 z
70. .如果真结束
    4 x8 g# [2 |! u7 L
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    2 ?+ A! z4 |: r8 \
74. .如果真结束
    
75. 
    % G7 j% N* _! j$ ?* {7 o
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    0 S4 |8 a3 o  ~( g/ H
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    & M7 z( \+ S* |) \& i
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    ( z& z+ E! h3 Y. }# s% f
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    * V' }' g- m* r2 v
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    ) ^0 H1 x6 A( w; @. u2 {
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    * d$ Q$ s/ }+ P6 m' U+ i. b( C% T
90.     .如果真结束
    . a' L, @9 w' G; X
91. 
    4 E  g/ a6 w. K
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    ! N3 n5 i5 J2 E- f
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    9 H4 ^4 H3 F& a
96.     .如果真 (访问方式 ＝ 1)
    / y- L" `( W( n/ o% E% h5 E  G
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    6 d# H5 X) Y! {
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     
102. 
     
103. .如果真结束
     5 K! N0 ?2 c  J8 x
104. 
     
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     3 w$ V* v2 K: @; K7 J3 t7 J% S
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ! V' R2 f& m( e4 ~$ j; l
110.     .如果真 (是否为空 (代理标识))
     5 v8 a6 f6 n7 B4 ~' H5 K
111.         代理标识 ＝ 1
     % P+ x; t5 }' W) q$ \. N3 G
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     " B- j, p) ]! K, D/ V; x
117. 
     
118. .如果真结束
     
119. 
     6 \3 n% c7 K, o5 a( E! x( l
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ' o2 X; ~: V8 D/ T. I$ _( h# B
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     " }$ q/ q+ {+ u5 V7 N4 V& z: |
124.         .如果真结束
     
125. 
     # s( w9 j. D( _" b
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     
129. 
     ! @# m! _" u  _+ T
130. 
       M1 D* t4 ], j# O) g# J
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     9 P; ~8 N4 Z& z; K( }+ B. i
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     # _/ Q% k( E+ t2 j$ E" s$ [' C
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     ) \: I7 Y, ?. Q6 S+ @
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     8 f3 J6 A* ~* @& A
140.                 .如果真结束
     
141. 
     4 q5 C! R: u% t% J" m
142.             .如果真结束
     
143. 
     ; z$ t( _; k; N6 Y; k
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     6 G2 w; B( l" y+ S! E
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     4 U. n$ f1 w3 C5 r
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ; Q" y' c% T& `/ C% w/ S8 q' l0 D
152. .默认
     7 d8 d# s4 ^) @) S' n
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     - f$ p" b- Q0 L" [/ |
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     8 a% n/ T: M) Z5 x, ]  j2 I  x
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     9 s4 \" K  ?# X& U7 h
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     ' W' B9 t9 a1 A+ }3 \8 [9 \+ r
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     ( f7 o; ?, `$ b% ?
166.         .默认
     , b+ n! r6 a) f# L$ i! r
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
       _, B; e6 A0 C" t! a
169. 
     9 X+ {' o, d* H2 w; q/ @+ T1 r
170.     .如果真结束
     & u1 l+ Z# _! z. l2 _: _
171. 
     6 H: `9 K. y3 ^& N4 S+ p  f
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     8 E1 W8 Y$ {% Z5 u9 C5 q' _! v
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     + U+ x! j0 E+ r0 [/ c2 t& H
176. 
     , o) ?# _  h2 i; d7 W
177. 
     $ _) o  _3 E  B0 R
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     * ~* v! _9 h  A. e
181.     .如果真结束
     ; a# O$ C. O2 P  ^/ }6 L2 m7 |
182. 
     ) c/ N9 {8 W# w% o# e; x
183. .如果真结束
     0 ]7 \0 [1 @6 h# d! a
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     8 ?( R/ R1 X. ]* z! Q6 e
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     $ h, ]& J5 p3 B3 j2 D0 d' K
189. .参数 协议头, 文本型
     1 M( t5 i- F# G! b- ~' Q" k1 D2 G% I
190. .局部变量 位置, 整数型
     0 A( R2 W  s* f: Z' w
191. .局部变量 结果, 文本型
     7 Y' q, u: h. R2 u" }
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     + i" O2 w* B9 y8 N, s9 S
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     " R0 B; X0 K: u& k- f3 ]
196. .如果真结束
     2 `5 b( \0 k0 ]( Z: `6 G4 c; j. i  r
197. 返回 (删首尾空 (结果))
     8 f5 X5 k; D) v  w/ p  \1 F
198. 
     1 |# y3 T0 R6 ]8 V
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     " U. M3 G, E$ ?. }! W2 {
202. .局部变量 结果, 文本型
     4 A$ D6 F( F4 `' M- I
203. 
     9 |& Y. }; L( a7 S, V! D
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     + `2 o, h4 t9 \9 ]* P+ R9 R. n: k
205. .如果真 (位置 ≠ -1)
     * ]3 O, ^; s+ W7 S
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     : U  e: W- c1 _( x( z8 J  v8 \3 j
207. .如果真结束
     8 v  w% G! F# G3 K5 P
208. 返回 (删首尾空 (结果))

复制代码

& J5 p  i& h. U; [; }! \$ c: V& W
源码复制到易语言教程:

+ \' W, A: W% ~首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

2 r" c$ z# C, |
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

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

# x: L4 h- z+ L) L; C7 {1 b8 CDLL源码复制到易语言教程：



3 l" j3 b9 {. z( g
0 \  V% \: Y4 m3 v7 x! W2 i

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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