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

十万个为什么

易语言命令名称：
( a) m: J  D+ ]9 g' |- c网页_访问_对象

命令功能介绍:

) Y, X! V+ f( l6 |& H  k使用WinHttp的对象方式访问网页
命令类别:精易模块命令


4 C. l& I4 x8 ?命令使用说明:
子程序名：网页_访问_对象
6 u! a1 f6 n5 }: Y  t8 h& |  V  s    使用WinHttp的对象方式访问网页
9 V' ]; C' H9 l/ Y    返回值类型：字节集
    参数<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。
* ~0 _1 O& F! ?6 B. a1 C+ z    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
2 `* D' l* X6 a    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
6 L  u  w8 M3 Z    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
4 `2 s0 ~" h( O8 h    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
1 d' D7 [  b1 \: S5 Z    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
5 V' X: N" }7 `# T    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
" p5 o) e. z! T& t8 ]. z    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
( H( J+ ], W; G4 c' S4 _    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

) M! S. g1 F# ^- t3 I4 c
: q2 n/ Z3 m' t! |- p
' p: K6 U1 d: c0 a* w) w: z

$ k0 y; `* W) c" N* d
命令源码:
# Z/ f  Y- O  d/ W

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   , E/ m8 Y# @3 b+ B! e! `0 c
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   1 O% k/ O, w4 ?+ A, Y3 E- g
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   + r+ `* A1 ?  W/ \! X' l! ?1 a/ c, I) n
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
      u0 B) x: q, L2 C3 Y: Z) f
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    & W+ o( P5 P, u7 j/ l. O
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    * @. X8 d$ I0 y4 j, v& l- t
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    2 g* x7 @) e- T
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    0 G, j- q2 f3 X* v+ e; U2 P  i
16. .参数 代理用户名, 文本型, 可空, 用户名
    / P% s/ L6 l& h. \: f* Z# s6 D
17. .参数 代理密码, 文本型, 可空, 密码
    9 A& _0 d/ {9 r7 q( ?, L
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    1 b% o* Y; R, ~% v: h! A& O; `
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    8 |3 o% k. c* p7 T; ^$ ^6 b
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    $ j, N' s3 z: d6 `- C1 g
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    0 C7 U, [# p$ i4 `  l
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    0 G5 p7 |9 w2 z2 O1 _5 Z: D# x& L
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
      R, P0 G0 i4 c' @* h
27. .局部变量 局_计次, 整数型
    3 x4 f) T+ T* \* v
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    5 I, L: P2 d6 Z" P2 b: P% \( I0 s5 i% D! x3 \
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    ) }# k* b- s- ~4 y4 Y1 q/ @. u7 Y
35. .如果真 (是否为空 (是否补全必要协议头))
    " ]% h4 ~- |* e& x
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    ) r! s8 ?. h9 X  n! N
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    6 S3 K) u! Z' j8 A, J" P
40.     是否处理协议头大小写 ＝ 真
    " s& Y8 {$ J# `5 Z* p& J, ]# j
41. .如果真结束
    
42. 
    3 C5 k8 n1 y& a0 x) H# E
43. 线程_初始化COM库 ()
    
44. 
    8 m8 a5 N9 m1 }8 O* z
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    / j' j4 W  g; l/ J/ Q
46.     访问方式 ＝ 0
    
47. .如果真结束
      r* `# t, K) H( }  p6 v
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    9 H( V# o3 x% @8 z1 X& ?2 X
50. .判断开始 (是否为空 (对象继承))
    9 ?4 ~4 N, A5 a( V, U
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    0 Z1 e: n/ I: A* A- w
52.         返回 ({  })
    
53.     .如果真结束
    ! S0 y% F' X  M) J. x5 x- o% F
54. 
    
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    3 {0 H3 @8 t4 `5 t' O4 V% p; i. Q
62.     .否则
    2 @: Z4 W' q( v) f, T- Y5 }* o
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    # {6 `- F5 ^4 }7 i7 [/ t2 A. J4 t
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    1 @* E8 d5 q2 [0 X: D/ w1 j9 }
66. .如果真结束
    , j& N3 n% A& J9 \7 y; o+ b1 C! Z& U
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    * s- x! [/ R' r: A
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    " r' i8 c) j) b4 M; n; A# I
74. .如果真结束
    * E1 F# q" K5 I* z4 o
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    5 n, z( H1 |# P6 S- D; \
77. 
    
78. 
    ; F& S. O" {; \* q% C
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    8 D$ n. u! t3 j2 Y  n/ L- L' o) U' ~+ [
82.     .如果真结束
    
83. 
    5 K$ \& u% C+ R. r1 L) {
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    5 s) K5 u6 n) }% `, I! C
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    $ q! v- K8 o; P
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    / D8 e9 {  n, C* l4 Q
90.     .如果真结束
    * g2 b. V8 J! i2 n  g
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    ' Q, k" ]  U" v
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    - q; K- }. @2 W* S& ?
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    % m2 U: k( R* ?0 y* ^/ m! x
100. 
     
101.     .如果真结束
     
102. 
     
103. .如果真结束
     % M, k+ i  V7 h6 c! n
104. 
     + ~7 {; p7 Z5 f. Y* J- \* u8 N6 y  P7 P
105. .如果真 (是否处理协议头大小写)
     # L2 }  f- q* N' b5 J
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     8 c% j5 M- q5 q1 T: E4 j# `
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     * w% u  a- Z# @( |+ t
112.     .如果真结束
     9 F- G& s4 w7 b
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     7 G/ t1 }4 e$ @# G# o
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
       o: ]/ f% k* K6 n
116.     .如果真结束
     9 O% ^2 Y! n+ V# u7 G+ w. Y1 H
117. 
     : N3 z) ]8 I, u! m9 a& i8 X
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ! J* T* c+ \" G3 L
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     ( J* w- a4 z5 R, ~: c
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     : X. Q" j/ ]) ^- o+ w; f6 x0 z7 |4 \
124.         .如果真结束
     " n  `( B1 r0 n% B0 q. \6 ]
125. 
     
126.     .如果真结束
     ; J% \$ m4 ~5 J  T1 [
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     
129. 
     
130. 
     : @( Q7 @. @% X( s* H3 U+ y! v
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     - l4 s1 n% I; e! Y/ L$ @0 I
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     - T$ d; K3 I* F
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     & W! \; ?& c6 D+ Q& E0 [
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     2 j# V" ~7 i  O# x' W1 ]7 u
140.                 .如果真结束
     
141. 
     
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     ( b( S( h7 n; {& P4 R: ?
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     ; M$ z1 g/ R, W) H4 t
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     * k& C" N1 @8 r" Z
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     ( }- _/ o6 a- @8 r
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     3 _2 |' |+ H! M, e/ i: K
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     + `' I0 L) `) P5 c
161. 返回Cookies ＝ “”
     ( n) u- O5 ]# T: n
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     - @. b- U, Z+ c; A9 m7 s
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     : q* z: j1 ~( y+ q; N# T- I& E
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     , ]0 }  _) R1 M4 `0 O+ \
170.     .如果真结束
     + r3 l4 Z# i4 X* a
171. 
     
172. .计次循环尾 ()
     9 A! T/ o' A. W; K" o, k$ t# q6 _
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     9 W0 a, {9 o4 L; }2 o, G& q0 E9 N
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     5 u3 N3 e! {/ b2 Q: `
177. 
     ' I1 @/ R$ }* B! _1 H
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     / A+ j% {7 N! F$ q- ~% e
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     6 c% K% Y! A! a: b+ M# E5 w
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     $ B7 w+ X! D7 e' X/ I
185. 线程_取消COM库 ()
     $ T2 G1 j" A) G( ]
186. 返回 (局_网页数据)
     7 k; ^/ s2 [! ^: g5 P/ u/ Z
187. 
     % a% K' c' \/ b4 h9 _
188. .子程序 内部_协议头取名, 文本型
     5 \/ f$ |7 o( b8 J9 R. m/ Q2 y
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     
192. 
     ( U  r# f0 I+ O8 \  V& F
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     % O+ M, C( |( C  l# j
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     / Z! A- o4 j* C0 G" `% J
196. .如果真结束
     $ m" r$ s5 u! o) c# o0 A# x
197. 返回 (删首尾空 (结果))
     5 Y. ~" S4 R4 s( ^0 i
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     % p5 K3 q7 {6 `6 T. g9 t7 J* Y
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     5 z- [$ O. Y! P3 p
203. 
     6 N4 ~3 Z  @0 _) o9 r4 @
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     : ^! W- w" t! ]5 A, X
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     ! X  j# M! c# O& v
208. 返回 (删首尾空 (结果))

复制代码

源码复制到易语言教程:
; t! ]* t" ]* Y1 L
% ?3 f2 u: ~* m0 L首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
" F2 ~' L0 l& t8 s

, h, A7 c5 p0 a- o: H/ E然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

/ Z9 J+ p, e3 I! P* @" c( r即可插入易语言命令代码哦
& ^5 T! W" i- e4 L9 n% J  Q1 R# e. f
9 n7 L0 |9 N: WDLL源码复制到易语言教程：
) @; t2 A0 W9 C9 l+ \


0 t4 U0 o7 K  c+ A" U( g
; z! a& ?% H" S  d" M; v* X5 A

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

2 Y/ r, Z% n, M- w9 t# }) s这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。