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

十万个为什么

易语言命令名称：
/ F+ m  G& `8 d6 ?+ t& v( i网页_访问_对象

& }6 j" x% r9 X命令功能介绍:

7 x) K% R" V% L# c使用WinHttp的对象方式访问网页
  D  T) t7 B$ ?: l  _  S命令类别:精易模块命令
# [0 K4 C" s- m. d$ E, J0 v
. U9 Y$ ]1 j9 s8 G
命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
$ d4 k7 K1 f, g3 z    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
6 e! Y7 m* S1 m( C    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
  _9 b9 V$ P& I! e2 U6 F1 Z2 c# P    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
3 m- i, b5 S! F$ o  w$ Y" E  p    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
. G+ Y# Q  @0 [% G  _# B; D    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
4 a: H, g5 T( b, |" K7 P7 l    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
+ ~# f& ~: f8 d" i" Z# P: ]    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
: ?) W$ V" c; P5 `; A2 Z    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
! w* _* f% o( K    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
8 I2 ?* }5 `4 @4 L
0 Y$ K* W+ t! g3 T. l$ J' [

& Z! p8 Q- x5 f8 ]2 c


- g1 m4 S4 ^" ~9 q: h% {命令源码:

1. .版本 2
   
2. 
   ) T- p4 \( d! R4 ]  C  [: s
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   9 {7 G, E0 _5 v9 q) ]
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   2 j, e5 T  J  }4 h+ B3 f
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   ' w' Y" i% {, `; R+ A! t3 t+ u4 F
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    2 \8 J( h9 G6 i
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    + B2 j' N% ~" D+ z' |3 R7 b
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    " `# j3 h# B  ]0 A# @1 \, {
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    ' p) ?" v* c# p3 f8 H
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    3 d  v3 t3 _" o$ C0 A) r% ?, t# ]. T
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    - c3 m- p& {( t# Z) X6 z% ?
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    . u4 M/ a3 B# o  V
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    7 {4 S7 n( N' y
25. .局部变量 局_发送协议头, 文本型, , "0"
    7 I4 W9 o2 ]: V
26. .局部变量 局_返回协议头, 文本型, , "0"
    1 p+ @- i5 l# m% B
27. .局部变量 局_计次, 整数型
    7 F/ u: T  \9 K
28. .局部变量 局_网页数据, 字节集
    - t3 y( A# i( X8 o, v" v  V2 s. S
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    ' r5 \! b6 \- L, A: u8 D3 h  N1 E
35. .如果真 (是否为空 (是否补全必要协议头))
    . N/ h) S. `+ I2 o$ V- ^
36.     是否补全必要协议头 ＝ 真
    8 K5 V  l. j) u# ?
37. .如果真结束
    
38. 
    $ p7 w' r  U. r' A6 M  O
39. .如果真 (是否为空 (是否处理协议头大小写))
    ( E0 z2 |1 c! N
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    0 m4 u, C4 m' }/ e  u  B
42. 
    $ s2 _  d6 R3 z1 S" R3 t7 j
43. 线程_初始化COM库 ()
    $ Z) u. c& X* [
44. 
    5 @& Q, O, y) y! D& a7 g+ y/ _
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    8 e/ L3 p3 T7 i- c% c
46.     访问方式 ＝ 0
    
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    1 T& h' G. s2 D; i* _7 Y8 w
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    8 E! S1 B$ E# m  a
53.     .如果真结束
    
54. 
    # N, y: G% O6 b- \
55. .默认
      e) @/ K! X0 p* O( D& L
56.     局_WinHttp ＝ 对象继承
    ( |; `4 p4 U( l" c
57. .判断结束
    
58. 
    7 r4 ^7 N) R( c7 _1 o+ }4 ~
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    8 E& X+ o/ @: y  u( `8 z, e
62.     .否则
    " P8 Y6 U$ l8 t5 V8 |  A- w/ D" J
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    6 T% e! d) ^5 S1 }" @' d: D, m
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    % H6 L# W$ x/ S7 M6 H
66. .如果真结束
    ' f% e9 `; I7 {* D( F4 P  H: w! f
67. 
    ) Y5 `" A% x, c0 B# I' r4 N
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    " p/ {+ ]2 p- ?) `: f% j5 T& @
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    9 p  ]% U( J; T9 _. g; Y+ w
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    + d6 ~# ?2 A) [5 Q
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    8 r9 m8 [2 }6 F! O$ X7 Q/ G
77. 
    
78. 
    * h/ t( W) W: _4 \1 i7 q
79. .如果真 (是否补全必要协议头)
    # O' {' [. i$ u: f* j+ b; G
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    / I& u  T- g1 i7 q
82.     .如果真结束
    ! W8 W4 E- Q7 w! `* c) C- y
83. 
    $ {2 U$ r! n2 \8 q6 p
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    0 j/ M- a. o4 R( N
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    1 K1 t+ J$ o. Y, k; w+ c% T. |/ u) P" m
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    ( ?1 v! {8 T# R; [
90.     .如果真结束
    0 }& |0 g+ M# t1 C& s' G3 v  ^
91. 
    $ u2 m% t* M4 u8 I5 w! f
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    $ P; y' Y3 Y" O- G
95. 
    $ F+ @# n% Y2 _' ^! T
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    $ ?* I1 @5 w$ O. h0 C  {) {
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    . G3 {8 z  I8 l8 z. r: e8 Z
99.         .如果真结束
    ) `; |, i0 m0 I$ p" g! H8 T6 F
100. 
     5 b7 c1 s- A5 u2 D- c! C- ^
101.     .如果真结束
     3 E9 W2 M3 I6 R+ J) A
102. 
     
103. .如果真结束
     
104. 
     ) K) J8 o& T* y! ^9 G, m; c
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     3 X" h/ I5 H8 o% |% Y" H
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
       M1 R0 t; Z, U; k1 N
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     2 Q" I8 s; C& S8 m! W4 O) F
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     % k5 k, Q- r7 s# M& K" U/ I
116.     .如果真结束
     
117. 
     # b1 ~+ L( w8 I) Q& ?6 A. Y* {5 \
118. .如果真结束
       i' q& ~) P" @+ H7 N
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     % C- D! f4 O, h) [7 J/ o
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     4 G3 H4 K7 s" r4 ?0 o- B
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     0 w- B; g0 B5 \) S; [% }
124.         .如果真结束
     
125. 
     ; o" V3 ~3 [3 ?' h& T& m
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     & l" ^$ |2 U0 j" q7 r+ C; @
129. 
     
130. 
     ( y% S: R' f" ~% R$ s( U4 [9 K
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     ) m( t$ j0 f% T: v
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     " ]' h1 c) x7 N: E: J9 F+ k# p2 H
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     2 {1 O) P& O4 b4 N+ f- L4 J
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
       |8 V8 C% ^0 x) ^& P0 I
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     ) V! ^& _( K0 u
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     
141. 
     ! _! y2 ~+ c; }' x& i- U. G
142.             .如果真结束
     : P8 }( u0 Q7 B/ J4 a
143. 
     ; I# E7 _  i* }, g. n7 O
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     ! ~3 a! w* A/ o6 `( N
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     - U% _; q! P3 {9 H
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ; j2 X% X# U, X: z/ V) x9 y
152. .默认
     : V3 X8 b, ?5 u2 x. v
153.     局_变体提交.赋值 (字节集提交, )
     . e/ y3 c$ [$ X0 X( A$ F
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     / B( q% K! i! P. w/ c: w
155. .判断结束
     0 _4 y; i3 v* x% S
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     3 p! |2 J/ ?( S# @* K8 g
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     / j5 b2 |0 @% K- D/ P$ d- `
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
       Y2 i0 O" U7 C0 I/ s
161. 返回Cookies ＝ “”
     + L6 b- f" U" \; K4 Q% i: C$ ^6 h% V- L) m
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     ' n1 A+ y$ ~2 x( |$ {7 f0 U. {" c
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     - _. U0 v' ]" p$ g9 c. [
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     8 m; }. s+ A6 _& |& g$ u
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     + c( C; l  t% M; [. \! j% |9 T6 X
168.         .判断结束
     
169. 
     2 {/ v# }# T: y  {# q
170.     .如果真结束
     8 N9 Q3 V; o+ X, `. I' E1 k
171. 
     " u1 y9 p# t( S! v8 B
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     
177. 
     - Q4 C" j; Q/ A* P/ h8 f0 O
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     8 ]2 I' I1 N) J. i& a
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     " x; i# Z* n/ q1 y
181.     .如果真结束
     5 ?$ k* ]" u7 J/ O* t% N
182. 
     , o9 l, ^1 P5 ^- J5 Q' Y* ]- `) F
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     5 [# M4 a3 U7 G+ @
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     9 u6 S9 h. b4 q9 h5 ]9 Z
190. .局部变量 位置, 整数型
     & |3 c2 T& r& ~" C7 U6 G4 `! m+ ~' B. M
191. .局部变量 结果, 文本型
     
192. 
     5 Q9 p8 |  x! }5 v0 q) v( W
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     2 O4 k. @' U( E" r9 W( [3 S8 C/ s# D
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     6 c. B: q; G+ E, L. `, Z
197. 返回 (删首尾空 (结果))
     & @, p) p$ V: j' D6 N' ?
198. 
     3 t5 W8 b. A9 P2 L$ u# A2 l* A( l- n+ s
199. .子程序 内部_协议头取值, 文本型
     ) V; N4 n! Y& u6 o
200. .参数 协议头, 文本型
     6 U! S* C2 E' ?8 h
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     : T+ F0 r& f# z9 M6 E0 m1 @5 `
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     + t' a6 E3 |  R+ _- K
205. .如果真 (位置 ≠ -1)
     . W6 M" @6 \# O* ?( D: x* _, `! {9 U
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     / N9 _" q! J8 |0 t) J6 F4 Q9 u
208. 返回 (删首尾空 (结果))

复制代码

$ h  y3 i# J( T7 r# N5 F% \6 R源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
4 ~2 X/ J3 U9 M, ?; ]/ K
) ]) M$ ]: x4 c" W5 L, _" k
3 ]( t8 N4 e3 I9 @. [& @+ Q2 X然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

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

DLL源码复制到易语言教程：
# m7 F% u! k& i. i- z! ]% j
0 I( e5 }' L8 i& J2 x# D3 {  F
* ~/ K8 S9 x9 [
1 F/ o$ V* W; h9 m; T
  Y& M* H9 O) v% ~

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
6 f3 N, }/ H! z2 A4 C

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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