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

十万个为什么

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

1 X/ s' i+ D$ r: C0 G命令功能介绍:
% \8 c' ^( l8 z% X2 r% s
& z4 M$ {2 D0 V& U( m使用WinHttp的对象方式访问网页
- l# j5 r. u/ U; w6 x命令类别:精易模块命令
( D7 ]/ P" G7 X8 t  x* B: U0 M

命令使用说明:
7 I9 P. a9 \: V& d6 I子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
" w  D0 U  W  `) ?    返回值类型：字节集
' @. J7 B( f( }  r% |. b    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
  p9 B3 D- L& Q% r    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
+ v& ~, R* m3 I! \4 [, c/ t' S2 M    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
4 G6 h. x. w6 \6 m  u    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
& e) @# p( y0 D. R    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
2 T" c5 B  {/ ^( G3 E. i  k5 H; p& Q    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
. R& s" E8 H$ M: V3 A6 E$ B    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
9 c1 {8 K0 |$ {# K8 I    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
6 |1 l* _3 d9 A- X+ M    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
. w: w3 W0 T( ]$ [' s, }' z) H    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
/ C' m/ R% u7 P! J5 U    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
  c! B1 C# [3 g    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
: V) Q$ g) a; c% e3 s
8 ?! H6 G- q" [
' ?. J9 ]! Z* H! f6 r, g6 E



8 l0 l0 N2 y' ^$ n, d+ Y命令源码:
& v' k  L: q1 b9 u# `

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   + a' _0 P8 d/ n7 `& K
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   3 ^8 k" d5 [( c( J
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   " R! i. M9 [/ f1 J$ w* P# {
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   8 A. b- _; G4 E
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   ; F8 y9 I$ O: `, D$ J
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    & v( f& N# ^9 _8 X
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    ( J! g, t2 y( f. Y: E
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    1 \2 c8 k! m4 j' t7 U
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    & Z' X# Y3 ~7 p! G) {6 I
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    3 i0 k3 N+ U1 L; V
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    . I& e/ p) E( n6 N9 L1 a
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    1 G8 f; u, o" g
23. .局部变量 局_访问方式, 文本型
    7 O% d: [, m( B0 f/ j! S' ?; P
24. .局部变量 局_WinHttp, 对象
    ! ]3 U3 J# H7 {9 e5 r9 N
25. .局部变量 局_发送协议头, 文本型, , "0"
    ) l5 k  B. E' e
26. .局部变量 局_返回协议头, 文本型, , "0"
    $ x/ x; J7 V5 p8 B& i% v: \
27. .局部变量 局_计次, 整数型
    1 A. E3 M" Y5 N4 b6 {
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    : w2 q% l! W; r/ a
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    . P# a* q" E/ X- m- m& D" L1 j& v
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    " {0 z1 T) g4 [$ p
34. 
    2 x  a7 z  X* d( T* u
35. .如果真 (是否为空 (是否补全必要协议头))
    9 \7 u& N  @# z/ G9 _, c. b
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    
42. 
    + S1 j: w" T2 Q0 T7 A( F; j- R" @- Y
43. 线程_初始化COM库 ()
      h+ G$ x6 x7 J1 u0 q  H
44. 
      M# k# {7 m; v) G, H. A
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    / V* H) @* W; U' L2 O; X
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ; d' m1 d5 G9 H, U: b. v" [
49. 
    
50. .判断开始 (是否为空 (对象继承))
    ( @. N2 @7 A6 @, g0 C, v6 q
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ! w9 f6 E5 Z/ e9 O( A( X
52.         返回 ({  })
    ! X! M3 e) @0 T. r0 @( Q% t& j# l
53.     .如果真结束
    
54. 
    
55. .默认
    : d3 E* P5 F" [6 o
56.     局_WinHttp ＝ 对象继承
    , s; D/ ]! Z0 Z" U4 P
57. .判断结束
    # j& r2 `, s0 [" I2 g
58. 
    
59. .如果真 (超时 ≠ -1)
    ' W: a, |4 ]$ ]- T# R& A. j' q: I
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    5 y) C3 K! y8 @6 u
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    , E1 [* c' h$ C
67. 
    & _# V) O" y: i. W3 e# h$ w6 r
68. .如果真 (代理地址 ≠ “”)
    . L% E/ ]: {+ ^2 \" B* ]
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    " A7 O9 L0 m) _% x0 P, {8 r
70. .如果真结束
    5 Y' y. O) F6 D( l" T' f& ~
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    2 D9 V  d0 S: p- p- C* z' s4 M
75. 
    ) D; H9 p0 L* H. D! Q, H7 E
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    ( N, E4 H9 p% g, Q# C* {/ J
77. 
    
78. 
    , G& L  T. G; Y, r
79. .如果真 (是否补全必要协议头)
    , u6 u+ A8 b0 A- b0 {' {
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    * |2 q) S( [5 S4 h
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    0 O* @/ m! z! @) U2 u4 P9 q( Q( j& D
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    ) U) }$ r; }; e/ k# h' [
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    ) a. Y- p: v) n9 z
86.     .如果真结束
    0 f  v$ C) o: Z% S- J
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    - h% O5 n2 C3 e* h% d
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
      _; z' C/ R5 W
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    . k8 a" j% F/ _% c
94.     .如果真结束
    2 j/ s6 X/ m) u9 V% f0 n
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    : k* D0 f- A8 m- i# U, z: v8 k; j' b
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    4 e& r; {$ }. m
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    ( {1 o7 K! p: ]$ h& \
99.         .如果真结束
    
100. 
     0 I+ p2 i) L) H( J2 N5 S
101.     .如果真结束
     ( `9 j: s5 ?5 l
102. 
     
103. .如果真结束
     ! Y  \( u( B; B* n: S9 G: Q
104. 
     
105. .如果真 (是否处理协议头大小写)
     . h3 U" T7 y1 ]9 l* P' _$ _7 K
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     * |+ S' ~% y- g3 C3 R
108. 
     & {# s, y5 F- {" _
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     3 q$ z& Z% |# U( ]  @0 W. e: P
111.         代理标识 ＝ 1
     
112.     .如果真结束
     5 u: _$ j, I3 A7 g. j) b
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     6 N7 J8 S6 y6 ^2 o* X4 n: r- F" `
117. 
     
118. .如果真结束
     
119. 
     ( J1 Y9 {# \, ]. @2 d
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     # D, M  X+ s% @  |- m$ a' W/ p, z# O
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
       `$ q( |4 V* r4 `
124.         .如果真结束
     & T0 X) s' R5 k
125. 
     
126.     .如果真结束
     ) u" p' N- e2 o& O
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     7 X" n/ R& e8 S6 w) W
128. .如果真结束
     
129. 
     
130. 
     6 w- l6 A2 b& ^3 ?% D
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     % Z' S* J; h2 ?' S/ E; K
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     " E& h3 Q1 d8 C" c
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
       S. d6 _9 K+ x1 r
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     % i0 m. c  C% g+ j1 H3 m
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     " m, H# G7 }. O" M7 V& `! m6 [
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     3 c" Q' z. x$ P0 n; _( j4 ]6 w8 d
140.                 .如果真结束
     
141. 
     
142.             .如果真结束
     
143. 
     ! D8 K( |) ~7 o
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     . b: @8 |& o8 C' S& N
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     7 d2 Q$ {0 W4 J: B
150. .判断开始 (字节集提交 ＝ {  })
     $ O8 x! I( W) f2 V$ G! ]
151.     局_WinHttp.方法 (“Send”, 提交信息)
     2 v: s; D/ |$ _' S
152. .默认
     ' L2 T( b( s, B/ ~% h( x3 i9 r
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     * [4 |6 g, E/ j3 |2 X" y$ b
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     . p6 e% }: y. o6 b) _, `+ w- j
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     , v" y3 |1 a% f4 O8 v; K5 _, E
161. 返回Cookies ＝ “”
     ! w. {& l2 C& S( z
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     0 r" i! J% l& D% i$ h
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     * c3 V$ V  K0 I. q( t$ J5 h. A
166.         .默认
     6 }1 L' i: ]+ H* y: e( [$ r
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     4 |7 |& g) w' u5 g" U7 c
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     " z% ]& ?5 U' w+ }: A
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     4 X$ j5 D6 d! X& g6 K* ~
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     . Y1 G' s+ X: N, A
182. 
     + V2 a0 _2 \0 h( O
183. .如果真结束
     # ?  y- o7 n3 Z& i, g! \4 \* [
184. 局_WinHttp.清除 ()
     ) D+ ^/ T4 u* R1 ~* p7 j$ n/ s
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     
187. 
     , J9 G, n3 E$ v  ^
188. .子程序 内部_协议头取名, 文本型
     # x9 A# J+ B8 L1 P: H# _
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
       z4 T8 X, H6 L& F! f$ N# Q
191. .局部变量 结果, 文本型
     
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ) {) [0 X. z' K# ~- J+ b
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     9 |  I2 `# ?6 @) o
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     $ Q7 q: r3 q# \  t0 x! z
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     * j# l2 o& n0 I
201. .局部变量 位置, 整数型
     8 E% J8 P4 a! Z. W  k1 ?; U" T
202. .局部变量 结果, 文本型
     - y1 i% h+ C1 b% H6 g8 O1 h
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     : }4 p3 k/ S* B, u
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     1 _( P1 B- I/ f$ F
208. 返回 (删首尾空 (结果))

复制代码

源码复制到易语言教程:

: J0 g% q$ K' E7 P( ]  l  ]; L首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
7 j! e& t2 n6 s3 k, ]% u. ~6 m
即可插入易语言命令代码哦

DLL源码复制到易语言教程：
8 C+ y) }  j3 M9 w7 L7 s
) a2 f* @" @/ A; y
- t& ]6 V! x( U- O4 H
3 {- x2 s+ Q& m

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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