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

十万个为什么

易语言命令名称：
网页_访问_对象
" ~6 a& l% H, \. ~
命令功能介绍:

. [4 R: u" l( N' q1 z, N4 S& }使用WinHttp的对象方式访问网页
" K7 e+ }. Z, e  {( S/ f/ B命令类别:精易模块命令
& ~7 S* \7 }; n* K( l

$ Z' C( ^8 M  o# C) `命令使用说明:
6 E% f' U0 B' U子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
+ `7 X. Q# N# B    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
7 ?* ?, x4 Z7 C: h* u    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
' n/ A0 O( }. z! ~3 [, b1 w3 L    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
' e' c+ \# `3 c: M# H& p8 D    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
& N3 Z9 b5 c: ]# ~" G3 o    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
4 h6 b& x9 X5 O* T7 \    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
, p5 e0 Q6 }6 P! m- v4 @1 V    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
$ a! b) K! N7 z, D9 N1 E& H    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
: u& u. _" [" Q$ B: P2 I# j    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
- _) l( g1 v- K* z$ D1 m8 Z    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
7 Y5 H* t: t$ a0 M) F9 ?5 r8 k" |    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
1 k( ?9 Z1 B7 Y9 F) g, p    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
, u# X9 k! e. |6 y8 |





命令源码:

8 x2 M5 O% t! f

1. .版本 2
   
2. 
   * m# @3 U4 L9 W" e  }
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
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
   & P" X- }; v2 l  ]3 I4 m
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   7 X, e' e! U* G$ J% S' B  B
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   : L7 z- s3 b3 F! L# k$ l1 m
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    5 L# _& g+ P2 @, j4 ]0 U: L
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    2 u# i- J2 W) U% ?7 B' ^3 s) `  I
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    / k8 a# R& X% \
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    8 P1 V/ w; f( ?$ E& y; _' d; R# Q
17. .参数 代理密码, 文本型, 可空, 密码
    8 ]6 d! l) i& x
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    , Q$ y0 _" p- E  B7 i( z# {
24. .局部变量 局_WinHttp, 对象
    7 K6 k7 i& }: W# l0 H
25. .局部变量 局_发送协议头, 文本型, , "0"
    - E6 u7 U5 _* ^
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    # Q2 @$ u7 _% N6 ^5 Q! T, M
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    ! {# I$ e' `9 |9 C/ }- ~( g% q! K% _
30. 
    . C' p. n5 i. G- \( G' S* r
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    ( f$ }% M$ r+ O  L' J8 @
37. .如果真结束
    " x# M# J: ]' A+ y
38. 
    # t0 C, t4 V( _; u. ^* b  f0 F0 P8 k( d
39. .如果真 (是否为空 (是否处理协议头大小写))
    , l! N& E" _( _% Q# L
40.     是否处理协议头大小写 ＝ 真
    , D; e7 M7 S. I3 l/ b6 l) R) O
41. .如果真结束
    
42. 
    
43. 线程_初始化COM库 ()
    
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ) ^8 D4 U$ k9 ~, X
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    9 U! g. s+ u( \4 P  \( U$ s
53.     .如果真结束
    
54. 
    
55. .默认
    / y: O$ b0 c9 b& ?  u
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    ! E( U' d  L- F; X" `. Z. M8 |
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    & @' t9 V3 y9 T! b, H
63.         超时 ＝ 超时 × 1000
    & g5 y* u: S6 H; d6 g! @
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    : X3 _. G5 Q8 x8 s7 n
68. .如果真 (代理地址 ≠ “”)
    8 y/ @& z( r0 {/ ]8 P6 R9 I
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    2 X8 t# x0 S9 S: i4 ?2 X
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    ) E1 f2 w& [2 e7 D* e+ a
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    & z* q& U7 d* q+ a, V6 J) n
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    8 g% s8 w9 j" {4 J6 T
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    2 \6 a, q. y# Z( s8 x' Q
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    ; Z" B) @" L( j$ h7 i
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    % c( {9 D! d( J9 l* J  i" d( \
87. 
      e3 M; R9 p) k% a' A" ?1 p2 I1 \
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    - L7 C$ T5 j/ v2 @" S' [2 n
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    , u2 I0 b6 X$ g+ C  K
91. 
    ; I  Q( Z4 B- M1 h% l
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    * @# a4 ?  a2 l- C) l$ `4 J$ D
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    . F* d# ^2 `3 B, z/ {4 m
94.     .如果真结束
    
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    ) Y% K; k! F% P2 d4 F' o
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    ; D: d5 }1 ~/ s+ `! D. O; {; E' ?
100. 
       t8 H# Q- F2 o# y% w9 y. H
101.     .如果真结束
     / W! M+ U0 D! B7 G" X8 u
102. 
     6 R6 a1 w* [  V' j: A9 X
103. .如果真结束
     ; K3 s/ L9 ^9 l; S, q3 {* N
104. 
     / i2 V: ?# x+ t4 `2 |
105. .如果真 (是否处理协议头大小写)
     7 A  d) C2 K9 U5 c  f( a0 h/ X
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     0 ^* f# S0 G5 l$ g; h8 g
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ' K' l  m8 H* w; z( v1 H4 |
110.     .如果真 (是否为空 (代理标识))
     9 B& ?! `4 Z/ t" K8 `
111.         代理标识 ＝ 1
     
112.     .如果真结束
     ' H0 G) Y% |& a, y) r. n3 H
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     ; U1 e7 `) Q% {; M1 G
116.     .如果真结束
     ) ]" `: C; R3 P8 _7 z7 q
117. 
     
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     % H# J$ J7 l) X1 L
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     ' T. x2 w9 ^" `3 I
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     , z8 p* Z* H# f0 H; e3 Y
125. 
     1 B2 v" K( p* W% y5 Y0 `
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     " H# O3 ^1 [# e8 h& [; K: q
128. .如果真结束
     
129. 
     ( b/ p, Q: R2 F4 H9 D7 Z
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     ! \) s# }' z0 f4 M
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     0 T5 R3 w( V7 C3 o
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     5 K' p* V# @' F2 T) U7 D
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     7 F2 \5 O* _& h" s3 ?9 j
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     / ]' x; ~4 s3 y/ J' ^/ T! k
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     ! D# h/ ~* ^2 S/ }$ E% A7 i+ u
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     3 P: _: ^# ?8 F" e
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     $ V3 Q0 T- L* w% y$ E4 k4 |( c" V
140.                 .如果真结束
     0 k" r: z' S- @* W3 s$ u4 V
141. 
     
142.             .如果真结束
     0 P; x  a2 x) O7 z. F0 ~0 s. _
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     - w- O. M3 S( b6 N1 @7 B. M, S
145.         .如果真结束
     
146. 
     9 n! s) G' y' {8 a1 |. ^/ e# p
147.     .计次循环尾 ()
     # w6 r' Z# @/ N( b( I
148. .判断结束
     
149. 
     . x1 |6 c4 G5 u% n% t& w1 g/ ~  |8 c
150. .判断开始 (字节集提交 ＝ {  })
     . O" ^1 S; C3 z$ ^5 D% l0 t
151.     局_WinHttp.方法 (“Send”, 提交信息)
     - d2 v" N. l" y, q
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     6 q+ w/ e9 ?) ?# F& D1 w1 C
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     + _7 k9 P; R7 s. x, i8 E
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     ( @  Z3 b* e! a2 S9 I; ~0 v
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     : Y8 G. p+ b6 Y* |$ o% @
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     9 Q- d5 H) D  ]0 Q
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     ; Q+ d# q, {( _1 h
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     % r9 Q# h& P, P# }
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
       Y( T1 @, Z  |' R) |; f# A3 p
168.         .判断结束
     3 |9 i5 r9 @) _" t! ?9 O
169. 
     
170.     .如果真结束
     
171. 
     3 x( s4 A( n' v. j
172. .计次循环尾 ()
     . t4 ]5 s0 \9 O: Z! g
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     8 w( \' ^$ N8 H' ~3 Y; @+ _" @5 [9 c
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     4 t, {  l8 `: m- I6 Y
176. 
     
177. 
     # q: F3 B! R" o
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     3 C, @' X; h4 t: N
182. 
     
183. .如果真结束
     ( g% w) `( k* Q
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     * f: a( f+ t6 {% J
187. 
     
188. .子程序 内部_协议头取名, 文本型
     7 H! o$ ]: W7 q1 N4 F7 h" |
189. .参数 协议头, 文本型
     6 z6 k3 C$ W* j' q
190. .局部变量 位置, 整数型
     3 @2 P) @! D/ H- f3 I
191. .局部变量 结果, 文本型
     2 y7 n# A# `9 P9 x( O- F3 `" y
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     & m8 L$ f$ }$ T) u
194. .如果真 (位置 ≠ -1)
     3 R' E- M: l# w
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     ! n' Y& Q( V8 }! u' ~. V
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
       d* o! Y6 T7 p4 w1 E5 m3 X9 p
200. .参数 协议头, 文本型
     8 F5 {3 t$ o- z5 }/ E- f- T2 `
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     2 y0 s$ r7 Z, O7 L: r+ M% }! s
205. .如果真 (位置 ≠ -1)
     , ]+ j1 z) m2 Y! [9 g1 g' m. Z8 Y
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     & v3 S5 J/ R' t2 l
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

源码复制到易语言教程:

0 g& \' V0 q" K- A5 c4 C4 u首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
7 {' t- m( P) a$ l) Y( l( n
; q& L9 i, v5 |1 h' Y8 _: X7 w
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

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

DLL源码复制到易语言教程：
$ @4 s+ Q9 J* a$ S2 L

9 z+ R! H2 N0 q- G/ R$ R

8 b, ~6 Y9 G8 A7 L, @2 V: _

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
7 f6 E; k. Z5 n7 |$ n9 O9 T

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

1 p# r; I3 X9 C- U  a这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。