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

十万个为什么

易语言命令名称：
网页_访问_对象

8 h, O  @% I* U' E7 l* d6 E6 ]0 N命令功能介绍:

4 @; k) p4 x; P2 U2 r使用WinHttp的对象方式访问网页
. {+ n- F: j$ M8 d# @6 C3 c3 i命令类别:精易模块命令
/ i, Q( }& R) K7 w5 A

+ H; O1 B* o6 r& |" Y/ u命令使用说明:
子程序名：网页_访问_对象
( e% M1 r3 n' u  i5 _- X4 Q/ H    使用WinHttp的对象方式访问网页
- ]3 g  S! u4 _1 P    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
2 P! i" x1 D' [5 j" x( `, {$ J4 @    参数<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。
  u  [3 _) V9 }% f! h+ e% O3 u; B    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
: q; B  Z" _& e, j6 n# N    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
% C1 y- V9 `! A( G" L    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
" q* k# @9 I$ I# `; e6 t    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
! }" [4 G4 D7 H/ W    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
8 |+ Y/ l. L. z% S    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
' g/ q+ h' x" C  j    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
' X4 y" `  u+ N1 j, I$ K. w' n$ A    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
( x( L8 D5 e7 \5 ^0 y7 b0 t    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。


! }# o3 L5 e# w1 i# l! D
) F. c( y- z" ?3 a" |* Q0 n
6 P% C& e6 V% F& P- u$ S/ I2 m

命令源码:

) u+ J+ P# X& [8 n

1. .版本 2
   7 I' A7 J, T) ^# o0 ]7 t/ Z
2. 
     ]6 K4 o! f( N9 G  d- ^
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   # y$ g  s+ ?1 r* Y: q8 Q
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   & O9 h& c: M0 m$ N$ e
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    + P( W' `; I5 t2 j
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    8 V8 R2 c' u* A1 l
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    " Z2 S; S8 A% y3 k1 z
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    9 E+ C5 I5 Q* {$ |3 l# D5 D
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    8 q! g: }9 W% ]0 E
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    ( c: s* S/ {1 U( D
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    / g" `0 _; N: s" w6 t2 O
23. .局部变量 局_访问方式, 文本型
    7 X/ j; y: `! K6 `+ I
24. .局部变量 局_WinHttp, 对象
    , Z' f6 h# s8 r0 X6 B9 l
25. .局部变量 局_发送协议头, 文本型, , "0"
    6 f" w: J: z7 \+ x' w# D' g: V9 n
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    * x) T5 {- C- I) R3 R- X
28. .局部变量 局_网页数据, 字节集
    $ P4 D6 ]& h0 a4 E* v4 {$ @
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    ' D2 k# d0 ~/ K2 i$ |1 A8 ^5 p
36.     是否补全必要协议头 ＝ 真
    4 ~; Q8 v, m+ R
37. .如果真结束
    # f4 n& i1 @0 H: n
38. 
    ; D' U$ L1 j" L9 v0 T6 ?9 [
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    
42. 
    & ^( r) y- Z$ {4 ?& ?5 n: Z
43. 线程_初始化COM库 ()
    & n" |: d" ?3 y* f0 p! H: ~; u0 j3 v
44. 
    ! O7 y, b4 A5 D
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    : X$ X( \4 ]* ^) p9 \" `
46.     访问方式 ＝ 0
    9 j* l* `0 B  x2 {
47. .如果真结束
    : v7 Z3 x/ C. W% ?0 ^2 o: f
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    
50. .判断开始 (是否为空 (对象继承))
    ! z; F8 @- p, J. K: B& I6 c4 L
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    / z  J2 P% Q- R9 R0 o3 N
54. 
    : c% W  S, R: s5 \
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    4 t  W, ^+ j7 e7 c. @; U2 }5 G
57. .判断结束
    ( t) E6 I. l) M! J  k5 Z" T. e
58. 
    , _2 g' t( G2 F- ~. t; _3 E
59. .如果真 (超时 ≠ -1)
    0 z6 y, P$ J; M* g. s9 W
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    / ^( u0 x& |9 H. J
64.     .如果结束
    , r0 M1 h/ j/ C" ]
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    " P: @" i+ r% o6 d
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    # d5 i9 X# Z# Z" k! a* K
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    ) Q7 i1 ]# U+ H' K
74. .如果真结束
    # a; g$ X' l! y( S, X' \, a+ z: J
75. 
    6 d6 \- O1 u$ C! L
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    5 f4 J8 W6 n4 N1 e- i# ]" F: {$ Y
77. 
    2 h6 G; I5 |6 V* \0 V
78. 
    
79. .如果真 (是否补全必要协议头)
    , \9 j! K% N. J' Z" S. M, w
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    0 C0 s4 i$ D5 w. }, G4 j
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    " n# j' U6 P( f1 h
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    1 `; e, k* {2 |; ~- D! W
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    / P4 [$ ?8 i# T
90.     .如果真结束
    
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    ! v& w4 Z% a/ e$ J9 |( z2 v
94.     .如果真结束
    5 {$ r- A) ]" _& p) Q- s% J
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    . K3 x. z: h' H" P
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    ( v8 i% ?' c7 T: Z2 \
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    6 {; v( J+ g; b
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     - H6 H0 ], l  l, S
102. 
     . p$ D$ M+ `: A
103. .如果真结束
     1 t. x; I7 B3 P( C0 U0 v7 u
104. 
     
105. .如果真 (是否处理协议头大小写)
     - r* b: k1 ]) V0 ^. M
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     # ~3 o6 u6 T3 N/ o) v
107. .如果真结束
     
108. 
     - ]" A0 U, k4 C! s8 o& n/ B1 F. J
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ' M1 R! [! V/ z; Q
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     9 Q' @, N. O, F2 ?
116.     .如果真结束
     3 y" ?  p" Y6 y1 D3 ?
117. 
       l3 t) I, J2 G% u% |$ K6 T9 S
118. .如果真结束
     : H8 X+ l* r7 c- P& k
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     8 V5 ^5 m% _  {& N7 ?
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     ( @; ^5 E. U9 {9 t
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     ; Q9 k, R2 s3 M% U) R; M
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     - ^0 ?" V4 R0 f" n& n0 W
124.         .如果真结束
     % Z2 i$ l, L; S' `. c- o8 l
125. 
     ! K1 g. H/ e- I( |! g& H
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     : [* r: ?6 V: C1 g' g
128. .如果真结束
     ( t0 V3 i+ K- Q, I+ X. d
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     , F6 u8 r& r3 j% K
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     7 v/ h2 p% n9 t
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     ! P* m* V: \0 ^* w7 ^8 D, I
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     " w: u7 \8 @; D5 I8 l/ f; x
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     . H8 q( E. g! `+ w! x
140.                 .如果真结束
     7 g) t3 U# M$ G2 n
141. 
     6 q' w6 z8 C' K2 h$ ]) E
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     ! }6 b3 g5 _# F& ?. q
145.         .如果真结束
     . j) I1 @# J1 _& C
146. 
     
147.     .计次循环尾 ()
     ' w" M) G" x+ l) @
148. .判断结束
     " n8 u) G6 Y, g
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     9 f! V* q5 p$ M1 X
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
       M% T0 P2 V# Y6 I; l0 R
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     : u! D  ?4 m! C: ?" s, z& H9 P
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     2 _. C+ O9 J3 ^; g2 M
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     5 i+ y" u/ e8 i: ^* v  k/ q! Z
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     . \# s, F& q! l7 y
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     6 n! D0 m- n4 Y
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     1 O! v- m* h( G
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     1 P. l# `1 Q( `  e7 R
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     : d5 m) @, c  {1 F
176. 
     
177. 
     / V- S. H. a1 w0 O& Z- g
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     6 z+ \: D- }% v  O3 q5 O8 M8 g
182. 
     7 c* v" U2 p# K6 l$ G6 s
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     $ o; Z7 u7 l: k- M& j
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     
187. 
     9 j' @7 _2 k" G  I$ c# p
188. .子程序 内部_协议头取名, 文本型
     - a  a2 g( \2 [/ \4 K, W4 E
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     # n: V( h4 }6 u0 H. c4 w. O
192. 
       |/ s& E7 K" D+ V( p. V2 H
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     2 ~, [6 H- R/ \$ b
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     
198. 
     / q5 t- m, t% ^8 Y- C5 Z
199. .子程序 内部_协议头取值, 文本型
     1 g) G' Y" Y- ]* F, r
200. .参数 协议头, 文本型
     ' }' x7 F. Q9 g* o  K
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     5 k. S5 r, W* M
203. 
     8 J& }$ |3 W- g, B/ m5 o* n
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     . A" Z8 d; e; H" Q" H1 e
208. 返回 (删首尾空 (结果))

复制代码

0 O* N+ g5 T6 |9 e
; _/ f, U$ I" R1 d& Y3 _7 ^源码复制到易语言教程:

. k  w6 F6 m/ m, F2 B首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

( i0 X+ y5 r& ?% z& k* v
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
4 }4 ~3 P/ L; D# u8 c
/ g; ]5 q. }2 N( X即可插入易语言命令代码哦

& H8 b: m, }9 q9 j- LDLL源码复制到易语言教程：

9 t; u- Z5 b% ]+ g4 ]
- o" H! L& y. B( ?

4 `- u7 }& L" }; ^/ z9 I

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
4 O5 @2 |! D  W3 A

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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