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

十万个为什么

易语言命令名称：
网页_访问_对象
% t6 x4 B# y# b* V! O* U% B
命令功能介绍:

使用WinHttp的对象方式访问网页
0 D1 ?: v; Z, E. O+ |" d, m命令类别:精易模块命令
1 }  Z, g2 B& l+ n. n
- M. l  @0 x$ h3 L! u. j
命令使用说明:
) \" Z1 Y2 i9 s6 B& L, n: R子程序名：网页_访问_对象
% j+ t+ K$ G; _8 ]2 b1 D0 @    使用WinHttp的对象方式访问网页
& u0 k- X, H* P% n    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
" N7 w1 [; g4 f( \" V. F) c    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
% V. z5 |) X4 m' t9 M; n. Y- H    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
' J6 M* J, e! M; G9 P& k    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
& N; e7 q( k& T! j' f- h6 `    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
% o- r$ Q- c/ _' a    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
; _- a- @+ j9 L0 H; e* _    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
! m0 m2 z% q0 E. V    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
# J' M( [1 A2 }0 `! r; R+ L) K# @: \    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
! }8 a$ j$ C* a& X) Q2 N5 F! _    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。



0 _0 J; `  z" {% z, r


1 T: t% H9 G! _( c2 i- t命令源码:
( Y- n5 r4 n! c. p( y9 l/ g

1. .版本 2
   
2. 
   ) {9 F5 ^) j  \: O2 H. b" J  `, T- u
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   # a6 W3 _! g" Z2 k
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   ' V6 p( e1 M& r
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   3 Y) Z' i/ R1 e
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   1 Y- M5 f. K4 K, h" `
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   ) ]: N" k. P, Z1 h( @0 o
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    : N( T- ?, o' U0 n/ ]6 J( Y- I
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    6 U; @; g" W4 t, g
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    7 c; I! ]9 h# s. L5 Z6 @
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    - `  n7 H0 B; L2 B; R
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    3 K4 [# g& D$ w! k7 q" H
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    1 O, m4 [7 m' i/ _( L6 |
23. .局部变量 局_访问方式, 文本型
    1 X' q9 @; E6 S* Q' k  @- Y6 K% n7 J8 P
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    5 X2 k) h, ?+ R6 R* O! @! a9 {  I: F
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    ! l( G7 h+ X! Z% l+ S
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    6 Y! I2 }, W- ~4 f+ ?2 x# T
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    6 i2 I% u! x2 q8 Z0 J
34. 
    4 h: h4 u  J* w1 ?* R' N$ L) l& B
35. .如果真 (是否为空 (是否补全必要协议头))
    ) c0 F# Z* I) K5 I( V
36.     是否补全必要协议头 ＝ 真
    / P* |( `+ n# B$ J# c8 o
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    ! M  O1 |6 @9 X! N
41. .如果真结束
    
42. 
    
43. 线程_初始化COM库 ()
    
44. 
    " X4 ^" W- l/ S/ N
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    
47. .如果真结束
    / p8 }  h% g9 r: u. J
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ) T: T* J2 _, g7 x" b) e
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    " ]8 `# f; Z$ r; L7 F
54. 
    
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    . O. @5 }, ^1 V
57. .判断结束
    , t. Q8 Z8 c4 G" Y# F2 E
58. 
    3 h( e  o0 D5 I" P
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    & Q) N2 h- O, A1 v% a6 b
61.         超时 ＝ 15000
    
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    5 t5 [  o0 E7 Z. Y: z' }4 }7 x
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    . n' E1 B3 |# A% f
68. .如果真 (代理地址 ≠ “”)
    ' @. V1 b" |% p3 h
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    # O% C( H, X0 c% ~  e9 |
70. .如果真结束
    5 [% R, h( L: c8 Z# d; g9 L
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    7 o0 P; o' d2 e+ O, Z- Q
74. .如果真结束
    ( I5 z1 }+ X3 q- S
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    ) z$ B  E- w, z
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    5 o8 H( Y3 P' A1 X8 Q
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    # b0 A) V2 @0 X' O8 b, \
86.     .如果真结束
    
87. 
    # C7 P$ n4 v# O* ^
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    " L( P7 C" R" _. c- o2 Q) K! s! ]
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    * Y  @" n$ _/ B* P+ M' J
90.     .如果真结束
    
91. 
    ( _# R* j- J! s2 a: ^
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    5 e$ d: `- T# e8 [( f
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    7 ?: y; I& d# K1 S0 j
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     
102. 
     ; G/ v  T' S. H
103. .如果真结束
     
104. 
     
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     ( _7 l- C5 n! i' J
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     & k0 x$ b8 `3 J0 Y3 U1 Y* _" W
111.         代理标识 ＝ 1
     2 U4 D7 h2 G' y) N7 u; `
112.     .如果真结束
     / a# }. \9 P* l# E
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     8 S! y1 \+ a8 f1 ]% [: _1 g
114.     .如果真 (代理标识 ＝ 1)
     9 N5 C* O2 l2 P/ q
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     ! z9 M8 h; M( L' @
118. .如果真结束
     6 ]+ l" N+ {* C, D# ^3 `( U( D
119. 
     0 |/ P4 N$ N" u) Y
120. .如果真 (取反 (是否为空 (提交Cookies)))
     8 }, Y2 u& e0 Z" f. T+ O( v) J
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
       Z( \. N) E# t7 l- z
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     - \1 }* y- d" j& o% A% z
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     - C( [# b+ n& L8 L
124.         .如果真结束
     
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     0 a/ a" N" Z$ @# s- Z: v
129. 
     , f! b3 r- _1 o" C) c: P
130. 
     " q% U, x: J* v# h- O
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     " R# P  R6 \) Z* r# n( a9 P
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     0 e; m8 L6 P3 \/ r
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     6 P( m# ~5 D( T+ w" G+ Q) w4 I
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
       T1 m( B  ?% n
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     , t8 \: q% w) z' N4 [0 d
141. 
     
142.             .如果真结束
     
143. 
     ' K0 n  q# `6 n5 u7 a
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     0 Q6 K2 \! L. A6 g/ p1 G
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
       P. l7 g/ ?' x; j3 D
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ! o, c: ^9 G- P) ^
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     5 J# J/ u6 M6 R( B6 O8 i8 {: P/ w
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     / X/ R+ d- @4 ?6 i( Y  A& L: N+ N+ p
155. .判断结束
     5 X& |0 X: [' e, ^" R5 v
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     # c0 M3 ^4 H. D9 _& h: z
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     ' g% w4 W5 Q, v# Y) B
161. 返回Cookies ＝ “”
     - c4 U; {" @1 N. a
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     9 _4 x7 o% z! u
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
       k5 p3 X9 W& x7 E
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     1 K. C3 b. ]6 D3 s1 f- K+ z
168.         .判断结束
     1 [* J& h9 N' p) |+ g9 ]
169. 
     ( |% F0 y9 a6 Q2 C; c" z
170.     .如果真结束
     
171. 
     ! z& ]8 a: h" L0 m
172. .计次循环尾 ()
     * a/ A2 t. ^+ U' b
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     ! p- O2 n5 g5 x9 i% v
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     * Z7 d3 b( t# J* Z7 m, L4 S
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     $ R* c3 n) x) U
182. 
     2 t# T+ T  }) g* M' F
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     8 S6 r9 @0 x+ |- G, W8 h
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     6 e0 q1 }. }! |: V9 b
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     
192. 
     4 y- B) v1 Q; v( @; P$ P
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     9 Z) Z0 r+ ^# d* f7 I  e
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     : I  F" g% X# R/ e; N! a
198. 
     * D" B, V4 I! W. \# k0 ?5 _
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     - `; z& O! W  u  \6 I( K  }
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     5 s# s8 `) j5 ~' i. w7 X4 c% |8 _# V
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

, G- T3 t4 G- u# {
源码复制到易语言教程:
) _5 |% [8 L' R& v
+ A& K4 P5 T, o5 @首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

" t8 p# y* J9 t0 {
/ w: r+ a' C' e' Q! D0 O2 U2 Z+ \然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

0 s  H$ z7 Q8 c4 x- j9 w5 H即可插入易语言命令代码哦
; |  X" P2 c! @6 @
) M; `1 }# D1 A  v3 {% i# FDLL源码复制到易语言教程：
  {( w5 t# k. B% P, A
* w' X. U: J2 \$ F! n/ O+ J( L
7 o& V" ^, \3 c2 I2 F

+ P4 i% S' n7 `  L

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

# V1 z" g3 B" g. s( f$ h8 f这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。