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

十万个为什么

易语言命令名称：
& k% T; O5 c+ ^; q7 D网页_访问_对象

) Q1 ?, S( v( W  Q1 c9 M' N. `命令功能介绍:

6 |; O0 V+ o5 G6 S使用WinHttp的对象方式访问网页
# `, Z9 }* s  V" d" f' N# _9 p命令类别:精易模块命令
. K: [  r) U8 L7 O. Q0 |1 j
7 D* |  i0 i; S: d
命令使用说明:
子程序名：网页_访问_对象
( r3 H: n' m( ^% [" x2 k    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
3 c  J2 A1 x7 W6 h7 L5 O    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
, U6 T$ ]9 k; ]- ~    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
; T: V) _% C( u1 L# n: r    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
; _3 {4 C6 I, y8 ]! w1 }    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
6 e% U5 z$ `# O    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
! l5 R* r: M" Z. p5 T, g8 K    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
. W/ n% W' _3 @  w    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
& N. C1 `( B* q' g    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

) d! {. w6 [" E& R4 z7 c2 n- Q
$ j0 k, [: ?, H  S4 Z; N9 @
: K9 F+ w! F: E0 h' S+ V

6 R3 T. y( I! `) q2 X1 k: Y# M
+ o) e6 R3 n. A" D命令源码:

1. .版本 2
   0 K: b) G  v7 H& ^: m/ {" I- }, J! \
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   ! N- i1 @) |3 t9 L/ e8 ?5 k+ R
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   ! G" j0 D, A9 ?
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   1 N2 W, f# ^) m
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   % f& r. I# Q9 H$ M
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    5 C& P" H# r. c6 f$ x
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    ! \- x' Q7 _; g8 Z
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    3 c  `: o6 ^4 B
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    / k5 \! l/ U3 [
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    / \2 I7 U$ _0 l
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    . G2 O9 y! W7 I$ m9 W- i$ P6 {/ x
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    ' E) C, [2 e9 G4 B9 o: H
27. .局部变量 局_计次, 整数型
    3 Z0 [* l2 e7 y) C: d
28. .局部变量 局_网页数据, 字节集
    / E& e7 g/ Z" M, j
29. .局部变量 局_变体提交, 变体型
    1 p' o2 i: y( p* T* }) H. k
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    1 x* x6 J% T9 w0 j- A7 N9 Q
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    . ?) V3 U! Q% c. i
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    + C* s" X# _7 u: q3 p
38. 
    ; @, R2 C3 J; l* a# P/ j' `7 H5 [% `
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    1 k2 R) S: |# [2 H
41. .如果真结束
    
42. 
    
43. 线程_初始化COM库 ()
    0 P4 ]7 l* u+ D$ N
44. 
    - Q: P: N- |4 w: W6 X( P
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    ( _8 A' L  `( ?/ y' B! w
46.     访问方式 ＝ 0
    0 P0 z* e6 m1 Y8 k
47. .如果真结束
      F7 m% n1 i5 `
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    3 {  ]1 W# K! f5 o8 o) o
49. 
    * {( s8 D6 k* k' Z# |# j
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ; @( T- o2 \6 W1 X- J
52.         返回 ({  })
    
53.     .如果真结束
    ( B, x& \! j* P4 I, R
54. 
    - j/ s- G8 n7 {
55. .默认
      B" y: w6 B; e& {/ e. m: I
56.     局_WinHttp ＝ 对象继承
    # F  D; _" h2 K- }
57. .判断结束
    " z& {" U2 V- d$ y
58. 
    
59. .如果真 (超时 ≠ -1)
    0 L  @$ v, u! Q4 s2 B! W0 Q
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    2 j+ Q8 C) s$ F! O  p4 [
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    % I$ O3 a  O% V  X( o7 k. M
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    # @8 ^$ c0 ^9 [/ M- A8 ^% ~
67. 
    5 e: p" J" A4 J- {9 H# Q& k" T# L
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    6 s6 H- J. k" M8 c% v: v- G
70. .如果真结束
    2 n5 \0 \0 Y" O( V
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    . G  m3 {8 k9 \; V8 |9 ]6 }4 {$ m- [4 `
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    . {' N+ o- g1 L& f9 Z8 v
79. .如果真 (是否补全必要协议头)
      t0 }; [& r) w2 B; @3 F, `
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    ' t7 e, m$ O0 R7 S
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    7 I# r% f$ u2 O
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    4 v, H5 m/ ^, ~' P' F
86.     .如果真结束
    ! ]6 }: c/ Z  R4 L0 _/ `6 I
87. 
    & S1 A8 z- A* A$ m2 `* o& A) o
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    ( u/ K" C6 a+ g8 C
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    : c$ a$ V6 [6 d4 [7 G6 r* s
95. 
    0 z7 j' @. v, l$ r* t9 H1 j
96.     .如果真 (访问方式 ＝ 1)
    ) V2 l7 \( E1 B3 ^: Z
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    ! q) z. w5 n! S! x. A+ ~5 T6 O
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    / a; v5 Q# }: D5 ~6 }: d7 K6 X
99.         .如果真结束
    5 z9 u" [1 U% H- Z0 f) T
100. 
     4 B: M5 j* J" K
101.     .如果真结束
     
102. 
     
103. .如果真结束
     / V8 o' w, ?5 }  z( C
104. 
     
105. .如果真 (是否处理协议头大小写)
     + v8 {4 t$ x; X
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     # F3 |7 N3 m9 `% V) Z
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     + ]+ D9 ?, f* r6 A8 }0 t
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     7 r: l0 }+ \- k& c; E5 Y, ?
116.     .如果真结束
     $ {' O" G  r6 H2 P; e0 D
117. 
     
118. .如果真结束
     " S  Q5 J- O: B. @  e+ ]) O1 Q
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     7 P% g: Y, S5 V, l- d
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     8 b: n! j& M: g1 T' y' Q2 y# A
124.         .如果真结束
     0 r) g8 O) {9 a( k% p$ N$ Y2 Z
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     
129. 
     
130. 
     # G: C) p' v. |+ v' J1 Y3 p# T, H
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     ) ~0 p3 k/ @0 Z( A% u
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     2 E' `5 J" T; T4 o
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     / c) Q* t1 f( }& N
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     : p1 t) C9 [4 Z5 O& Y/ O
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     ' n+ E# d; |) G: B
140.                 .如果真结束
     8 A3 `; U( Z  E6 ~
141. 
     
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     1 v, X! B, o7 Y& o+ ]
145.         .如果真结束
     4 Z8 l" {- S6 u7 r
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     $ J1 v* A0 p" w/ V: P+ ^" l
149. 
     7 A/ ?0 [! v8 V' H
150. .判断开始 (字节集提交 ＝ {  })
     ; d* _8 l0 x: x+ L. N% q
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     * m# ^( P* F3 {( }: {- h; K
153.     局_变体提交.赋值 (字节集提交, )
     6 V& _; s+ x: T, W6 p
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     6 z$ a- T! E5 x7 L( l9 {
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     3 ~/ h5 K" u* b2 ]0 m/ \( u
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     0 W" ~- x& \/ H. p- S
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     0 Z; W# o0 s) {5 _
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     4 [& V$ C8 s1 i/ {7 B5 D
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     % u2 k1 l. U5 [5 @: l
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     & h: I. Z& L, b/ H6 U" O
166.         .默认
     4 w  J3 O5 n- l( e1 C5 ^
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     ! E) x) m: U; h9 U$ x3 h
169. 
     
170.     .如果真结束
     + k: g4 P3 R6 f+ a% U) t! _6 c0 {4 l
171. 
     6 N( x" ^( F+ T+ U+ J& ~& G
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     0 r5 V1 o5 b, D! B3 b/ l& e
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     3 k4 A0 g& s" q5 x5 H" G
175. .如果真结束
     ! S5 R2 K& ^  f1 F7 s
176. 
     4 h# x- T2 g: i3 `/ m9 M
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     ' j" X+ ~" u, g. O  D7 X+ r$ l
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     9 A1 I& Z+ S% E1 |4 g7 ^' O
181.     .如果真结束
     2 P" _: R) A2 I
182. 
     
183. .如果真结束
     ) Q4 k0 C" k- b# x8 i
184. 局_WinHttp.清除 ()
     ) [. y- `+ P9 ~
185. 线程_取消COM库 ()
     * c& f: j0 c& B& w
186. 返回 (局_网页数据)
     
187. 
     0 n, o% N7 T: A& b0 q8 m9 J* [! Y
188. .子程序 内部_协议头取名, 文本型
     ; k2 n& K/ m6 A4 v& ^
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     & ?% N# a! m7 J
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     $ q/ l2 r3 A1 X: W
194. .如果真 (位置 ≠ -1)
     ( H# A, M: h4 R( Y
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     2 G  ^- W- G# e2 ]6 r) K
197. 返回 (删首尾空 (结果))
     
198. 
     2 C1 v" P- L) q1 i( d' E- D& s
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     % e8 e+ U6 I$ n8 w& Q
201. .局部变量 位置, 整数型
     9 {3 ^- R: _/ c
202. .局部变量 结果, 文本型
     8 @2 ^$ x4 C% t- i9 ^
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     + V" }2 m; y3 y
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     0 O; Y/ ?& J& D0 V1 P7 }
207. .如果真结束
     4 W& k4 L: U% e3 ~8 w
208. 返回 (删首尾空 (结果))

复制代码

& a! k$ g3 t+ j9 w3 |源码复制到易语言教程:
1 @7 i0 ]1 i: @
, J; r& q5 B* j. D4 R首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
6 f" g! Z1 b( k# k& [8 p! c2 k
. U7 p" Q# G5 _
0 ]3 e+ [+ v: w然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
  v2 C* @' g. e0 h. {" q/ x
. z! U2 V, Z- j: F  t& l* h9 D4 _即可插入易语言命令代码哦

DLL源码复制到易语言教程：

$ d; a4 s/ W' @* y7 v
! U! a& h3 ~! |* Q% V
  U. D1 |- a' H( a% K3 b+ K: D

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
" J8 e# C/ p7 v2 i7 o

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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