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

十万个为什么

易语言命令名称：
网页_访问_对象
7 h* D0 D7 j: z
命令功能介绍:

  [4 Q  V/ x  e' n+ j使用WinHttp的对象方式访问网页
6 u4 l6 t7 C6 u9 X3 b4 F- D" {命令类别:精易模块命令
# P: u" E6 Z; d# h1 C
: N5 J' a* U/ z" i3 L
. e0 i  q0 e2 F9 x' T/ R命令使用说明:
" s% Y) d7 x% n子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
- |/ N( F# l: C8 o3 {- G7 U, |    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
* I; \8 |+ s2 u    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
; I2 K3 d9 |* u    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
) K" i/ R/ w! n/ L( U! }    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
) M9 u0 K4 H+ o7 a& B; i, f8 N    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
/ H5 }$ I- d7 ^  Y0 n: b) Y  r7 W, y& y    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
. _7 ~& u& i6 ^7 j9 G. H& v9 }    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
0 p! Z- h* k' E! N7 @, N3 _    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
5 r1 p! x/ e7 t  e2 _3 n    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

, z3 W! l$ Z! [& E5 r' \


% H+ g  w* z2 @! ^2 S) y
& R' B: V6 x( B3 L% l& ?
命令源码:

0 _- k! x+ A5 I  `1 r

1. .版本 2
   # [& G1 S( [1 u% t  L
2. 
   ( R. A$ ~% q5 m" D* M( A* j' g
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   / o8 o$ G$ @. K( h
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
     E  x; V& x' H
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    ) F3 b7 g# n/ _  u  [
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    : X* s' W' c0 c7 B. Q
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
      m; [7 Y. o! [5 i! z
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    ' |* T$ d" b6 |2 f. [
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    $ P7 y4 a8 }% m$ `9 U5 p
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    4 y& a/ {; R/ k$ h! @$ ]. o: @3 ?( f0 r
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    , E9 B1 a3 q; m/ N9 d
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    * P1 I" J# w& R' t% |
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    0 d* A% E2 @" {2 \
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    - x& m; |) G. O) _! @
27. .局部变量 局_计次, 整数型
    7 U- M' V9 x2 l7 {
28. .局部变量 局_网页数据, 字节集
    6 X& q8 @+ n- w! T& j
29. .局部变量 局_变体提交, 变体型
    $ I- Q# _, S. X: s% j
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    , Y! V1 o3 d& A+ D
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    # `( R( n; z3 }
34. 
    6 k* \* P6 p# Q; R
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    / C" g, U. i. l6 H" _
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    0 t4 g& C% K; w+ e
41. .如果真结束
    # N* C- q/ T+ J. ]% c, E# k0 X/ d9 W
42. 
    
43. 线程_初始化COM库 ()
    
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    - Y1 H& r) N5 ?% ]
46.     访问方式 ＝ 0
    , Y6 ^. Z0 A( Y0 H- H7 u: y
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ! z: F+ Q$ I0 R- Y" }  g1 g
49. 
    % B  S6 J: p" N( ~4 t/ ^1 q4 |
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ) m  @- E+ t: w1 Q7 ~1 v4 \# v
52.         返回 ({  })
    
53.     .如果真结束
    ; t! ~& M# ], g: R$ X
54. 
    
55. .默认
    3 V0 O2 ?8 g# n+ _
56.     局_WinHttp ＝ 对象继承
    / g( Z& n" ?. Z9 l- h
57. .判断结束
    
58. 
    6 ]  y  D1 W( _
59. .如果真 (超时 ≠ -1)
    # @/ B/ v; s: K6 A7 J0 t
60.     .如果 (超时 ＜ 1)
    7 e( R2 u! A9 N6 ?6 V
61.         超时 ＝ 15000
    . u" C* o" Q) A4 [3 W# r
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    % X  _2 d7 F( J* z: R
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    & t& T; r* N9 ]3 T: G/ }& Q* r9 u
67. 
    2 m# b$ i9 _) @, N2 ^0 p
68. .如果真 (代理地址 ≠ “”)
    + t+ x( Z1 v, h7 c9 S4 Q: ]
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    2 F% R6 r9 S& ?. K: o
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    % G( d% b+ ~( B& h1 @. W
74. .如果真结束
    6 f+ H5 _. X$ N
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    % r3 s+ B' Z& [9 _; G2 i0 C
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    ( |- f0 H' p) {" w5 T8 \
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    3 v  D4 P0 u% X' a
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    % k( j. a3 t+ J  o
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)”
    ) M/ C4 l, t( U& X$ a- W
94.     .如果真结束
    # h& E; U: U: N! c0 a8 R9 J
95. 
    
96.     .如果真 (访问方式 ＝ 1)
      e( k* v/ h4 M* Y+ `3 u3 }) `
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    8 ^' i6 L2 K/ B& y, q/ y! J. E
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    
100. 
     + [4 f+ i/ ~" O, c* [
101.     .如果真结束
     
102. 
     
103. .如果真结束
     - ^6 i& b# z" g+ B' o
104. 
     : \$ D, s, u( G. p0 E8 X
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     " _& y4 r. Y8 o
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     + `: N$ z# b1 W: J$ V  L) Y  V
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     ( O% ^& P) \8 O$ ?4 ~3 x& a
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     ( s1 y5 i& `; j$ y7 C
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     ! ^! p3 y8 O0 X. j( ~% n; e1 Q
117. 
     ' A  [7 s! f) m5 v# h4 E1 ?
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     0 E! n' }0 H" P
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     & Q: T# Q- R0 E: ?) X4 `- \
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     " ^- F" M/ i; O7 Z
124.         .如果真结束
     
125. 
       e% O& G# w( [1 p
126.     .如果真结束
     # z' M- e# ^0 {
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     6 |7 U( g0 j( V  J/ F$ ~! }0 L
129. 
     6 U1 I- E, N9 a. ~* ]: {$ ?; B
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     ; ]6 v2 c* Y4 b3 a4 h& Y
133. .默认
     ( m! S! W$ p: k; Z+ h
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     5 Y3 L0 d0 c$ \9 ^5 H
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     7 ?; i) w) v) o6 I# @' E. o# z
141. 
     
142.             .如果真结束
     
143. 
     # i$ m( {( R0 S
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     1 O4 o+ j2 g# _3 y4 I0 D
145.         .如果真结束
     + M% t! Q4 |! d8 l0 r5 [* ^
146. 
     % l( L2 y( i8 x  Y+ }: ?0 n
147.     .计次循环尾 ()
     / e! ~. A- V) M% t/ Z2 V
148. .判断结束
     $ f" i3 m  O1 a. Q% T+ C/ W& A
149. 
     9 O! A7 x/ ~; V1 h: Z$ o
150. .判断开始 (字节集提交 ＝ {  })
     . m# |' o3 Y9 E/ K# I% x/ Y' g3 {
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ) f  J) E! C, X5 V+ [1 U
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     : o7 h/ |) ?& g, m$ Q0 g
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     # V' c/ z( [3 E# ^2 N- Y5 J3 p2 [
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     9 b( r7 l# r  n
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     ( }- c' m# b% l' p# A
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     * Q/ ?3 X, M! ?$ [
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     0 r* `" M6 L  g& d0 y3 T* e
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     : w* S% |# O- ?
170.     .如果真结束
     6 Z8 v9 C) Q; P4 c* h3 n# M
171. 
     
172. .计次循环尾 ()
     6 m% T4 T( W* g6 R" Y) [
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     1 p) ?: q0 c, W8 j* E' ^
175. .如果真结束
     
176. 
       Y' H" `7 r# M6 U) R
177. 
     # _7 g$ l  n: f, A9 k
178. .如果真 (是否自动合并更新Cookie)
     , N2 m4 Y0 f3 v2 y9 D/ h6 v1 U3 G
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     ! ?# i0 e3 K7 P
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     + A6 b6 ?" P6 p: m! p% z
189. .参数 协议头, 文本型
     + i# f" Z1 a% N6 m% ~+ E& M. x0 i
190. .局部变量 位置, 整数型
     ; q  l5 O+ U6 Z  K0 P3 L
191. .局部变量 结果, 文本型
     % K  P  f' S0 ^$ V: ~
192. 
     : ~) V* a% x" O" O& `6 q
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ) r8 q; L& |* Q! z2 V5 C
194. .如果真 (位置 ≠ -1)
     * `( D+ J$ I* S0 z$ ~; t# h+ x9 M
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     0 Z9 b0 K2 R7 |
196. .如果真结束
     * s. ]4 x6 g5 Q3 _8 `4 W
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     1 f: I/ Z" E% C. y& |2 [7 ?  S
202. .局部变量 结果, 文本型
     ; f9 d" u$ H$ E5 m3 Q* j6 S4 b+ m( A
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     4 L$ x  V$ {4 d( r5 ?* F# N0 Y
207. .如果真结束
     1 D# t9 w9 g, ?: z' ^) X6 C0 _5 H
208. 返回 (删首尾空 (结果))

复制代码

' d! O5 A. G/ P" Q  \" o源码复制到易语言教程:
. ?8 }* p, Q0 `) a& l
9 {( e6 A+ p/ o, x- K/ T% h首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
! \6 m# y$ w$ l1 |9 n6 {$ [7 H2 B( c1 A# y
  {6 \6 i- @# h; A3 [
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

) m% |5 D( n. M/ {2 T0 @% H即可插入易语言命令代码哦
8 N  K2 O1 i0 D
1 ?- n/ r( G" i0 s, vDLL源码复制到易语言教程：

, v- N. `9 g9 l
, ]; e, j3 e$ i# y0 U$ R  F
8 z0 V0 ~; H( f% @$ `3 O- k
( A! r) x" A" ?+ M

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
2 s3 ~1 a: J* g* w

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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