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

十万个为什么

易语言命令名称：
( }! A1 H1 C2 Z$ q0 h$ N网页_访问_对象
; M5 F" X! v# w, f/ v. R0 Q! s) C) y
命令功能介绍:

使用WinHttp的对象方式访问网页
, u- o% p/ U0 f& R& M命令类别:精易模块命令


命令使用说明:
$ W( `2 {; ^2 B子程序名：网页_访问_对象
  l% P4 w' O7 p. ]' q    使用WinHttp的对象方式访问网页
: K/ E; T( o9 e. A) F. y$ r7 ]( Q5 K% e- }    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
+ B, L- c& f' ~! Y$ B    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
5 ^0 b" l7 N4 O. c) X    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
1 Z, i3 D3 V; j3 y/ a8 M    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
/ b, p; ^* b, f" g' ]3 m+ m! Y- e  `    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
3 k% t" D% W. X5 H    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
: t3 I3 U( k1 K& j- N# d$ g! I$ o    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
$ e' R" V0 u' `' d9 z) W* S# s    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
4 j5 D# {" t7 K    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
3 p, h6 w4 K0 L5 C+ G) [$ V    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
( X' d! F4 \1 M

* o* E7 }$ M4 g, `0 c


' }# N- p8 s) ^
" ~# X  U& J, Q0 V, z8 l  k+ K命令源码:

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   ! I7 K9 O( M. ~' ~
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   ! o9 S/ `7 s# U/ K8 w' g
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   % y3 f4 p' z8 k- l
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   9 [1 p, ~$ }- i  F
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   / q# O' a2 R% Z- E5 @) B  M
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    ; v4 H$ \4 f& T
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    % s* i# O, m$ q; ~- m
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    ' L# v0 Q& _+ a
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    4 G- B/ M  y4 I- N! J; G5 E* G
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    + d7 v- s2 s6 t( m1 V/ Q
23. .局部变量 局_访问方式, 文本型
    3 }* u+ U2 [3 P( C; H7 s% a! L
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    ) F; M( ~$ i/ w) @
26. .局部变量 局_返回协议头, 文本型, , "0"
    1 p3 }! I; A7 ?7 K- }' Q- Q/ B
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    ) x  E' Y; V8 A
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    : ^+ v  w. k% N2 D" U" I  D4 I
35. .如果真 (是否为空 (是否补全必要协议头))
    / T6 ~) x1 d- V, T( r( \8 o
36.     是否补全必要协议头 ＝ 真
      o& G- ]. w+ W5 D( j' w
37. .如果真结束
    1 ?2 d4 j% N1 K9 h- S3 I2 ]
38. 
    0 N5 P4 Z: V# G2 a. r: @, `0 j
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    
42. 
    - Y0 P  x" M  {0 K0 E+ s7 y5 U! e. F
43. 线程_初始化COM库 ()
    
44. 
    ' Q% k5 }0 [% ~+ w. w) V: M: q& |
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    ) v) v* A' \! `" [9 \
46.     访问方式 ＝ 0
    
47. .如果真结束
    ' c: ?# O# ~' Z, y
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    ' ]8 n- Z7 ~) a0 J& R2 f) P1 |  ^
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    ; r, }( ]- A4 ]8 k
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    8 B0 r# N9 b1 z6 u; v, T4 `
57. .判断结束
    - y! U  I) j' ^$ R( Q6 d
58. 
    
59. .如果真 (超时 ≠ -1)
    2 g% ^1 o! t( w5 ^  t, ~/ v  v( I
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    4 F  o- O9 y. m1 i4 J* _1 d
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    2 ?. E3 o5 h8 F9 a0 @; M0 {2 J
66. .如果真结束
    , m+ c# ]" m1 p2 z; _9 t. R
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    % ?2 e. f" h  a3 N% z
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    7 U7 u/ z9 W5 M6 E, Q
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    * Q& k( O  L& b2 G- J3 u) O$ G
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    : Z/ F' q+ E# L7 D1 K8 A$ l8 y4 a
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    9 s: J4 B5 q! }2 {' g* G
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    ' V& C4 F$ m# ?
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    * z' M1 u. j7 h
82.     .如果真结束
    " m4 k+ p* L0 j2 g) @- D
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    / ^# `/ _2 P' \/ b
86.     .如果真结束
    
87. 
    & ~0 B' v: j) r' F
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    ; p6 r7 ?" X$ @
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    1 T- g# {+ S: W& |  [
90.     .如果真结束
    # Z2 p+ B  |- l8 y) o; K* f1 F
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    3 a/ O" }* K4 I
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    1 j& ]+ B& o. M* A8 ]
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    ( x6 Q% h6 B/ A9 @% V
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    ( M( ^. O4 [# W; m4 [4 m  ]
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    - o' \8 k6 S% z
100. 
     
101.     .如果真结束
     9 H; O3 G" n. K
102. 
     + L0 \9 ]8 |; Y) R4 c
103. .如果真结束
     
104. 
     2 B6 X9 d# ~1 s9 Z) r# P% M
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     % r* ]9 W3 r: K: \" I2 t
108. 
     / H, i0 X' `: }2 j" a* W* T/ W
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     $ E: A' C0 [' m7 G+ e/ F: }7 `
110.     .如果真 (是否为空 (代理标识))
     & Q7 ?6 G, U8 K
111.         代理标识 ＝ 1
     
112.     .如果真结束
     - v; Z# `) T* _1 h, F2 b/ a# h! G
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     9 x# z  g* U( G
114.     .如果真 (代理标识 ＝ 1)
     ; ^1 W7 ^0 F" E5 V/ r( D& f
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     
118. .如果真结束
       n' v' P! ?# D7 r% p
119. 
     + Q6 r8 T7 ?1 h6 Y7 \* _- K
120. .如果真 (取反 (是否为空 (提交Cookies)))
     - C3 \- K! P5 Z$ p2 x
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     ! `+ D+ i) g' _+ L& T4 C' k0 G
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     8 f" B2 N1 u9 u; k3 v7 g) x
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     6 Y. j' p: s, N" @& m' y6 e5 ]
126.     .如果真结束
     - \- ?8 I; h1 T, ^2 f
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     9 ?' {0 `0 V) k% h3 x  Q9 _
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     0 C) y+ a* k6 K, u- d) n
140.                 .如果真结束
     # ~  C2 \: [8 G7 ^7 L6 j' k
141. 
     
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     * Q' R( T7 j0 O4 i% w( a$ p
146. 
     8 |* P0 o" |, V' C; N, f2 u
147.     .计次循环尾 ()
     
148. .判断结束
     1 B+ q/ w9 t% T9 c
149. 
     9 r! W3 \/ q5 d* l, U) S$ N7 G
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     . `* M/ C1 {9 ~# c- L' I) m/ x
152. .默认
     * o  @6 g" G9 f& Q
153.     局_变体提交.赋值 (字节集提交, )
     " G3 o$ L; @) h3 a, Z& n
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     . ?: U; w( H5 p7 H& s
155. .判断结束
     7 k, b* m# E. |2 {9 O7 V  s6 w; r
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     * J( ?( ]  a* p7 @9 w" v
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     9 l, F3 g8 L& M8 J) J
159. 局_WinHttp.读文本属性 (“StatusText”, )
     4 |4 m6 Y+ H( P% e
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     3 @, d/ K9 k& h! m6 B
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     . t6 x3 c* {1 k% E0 c! j& Y
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     4 u, X; T4 }' d4 l" c2 I
166.         .默认
     , I' q7 a8 ?" u" S/ d$ n
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     / C$ R: E6 P3 \; x1 v/ P" e0 E
168.         .判断结束
     
169. 
     
170.     .如果真结束
     6 o  f* \- l2 M$ u/ I: V
171. 
     " y6 R' U5 S& Y3 H# H7 b" J- |+ z
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     4 E' z8 X6 i  ], ?& I! `/ ?
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     8 @. Q/ h" w& B' X
175. .如果真结束
     7 l" b2 u& f" n! E/ c, H
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     9 z& b  l/ ^4 j( k- H2 ?2 p4 [
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     3 D' f0 S! ^6 l* E8 ~
182. 
     " ?' Z7 i: q0 f
183. .如果真结束
     4 q: ], D1 g9 F% z6 d
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     : Z3 ^; J0 D3 P, C: f2 A
186. 返回 (局_网页数据)
     . d1 X; g$ c: M, j
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     1 M) h# [+ }) g+ W# @7 d( b; f
194. .如果真 (位置 ≠ -1)
     + e: a5 O! n, \* V4 b2 f9 t
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     4 ^' E* O; x8 {! r9 f: p4 @$ _
196. .如果真结束
     % H# q3 \% `. K( q+ N5 p
197. 返回 (删首尾空 (结果))
     
198. 
       \  S3 Y! [9 t2 ]8 E  a
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     ) u/ x& S+ u6 A: |0 c6 @) @
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

9 m; O3 z. `) k2 i
源码复制到易语言教程:

: J: }3 ~" F1 j) t  n' y首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


9 `/ `, {" }. F+ {. n7 M然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
( `- z! F/ O; `6 T" `4 ^, E& s2 A
* S' K8 [- v/ j6 o9 W即可插入易语言命令代码哦
' F4 I& I+ p# p* V9 f: Q7 Z
DLL源码复制到易语言教程：
  q$ e% Q& B# |; e% r1 y+ k; s- q



# v  ^/ `: A# Q' u) F+ N

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

" s) B9 [- L% w- r3 F; |这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。