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

十万个为什么

易语言命令名称：
3 M/ p+ i) @2 i( h: l网页_访问_对象

命令功能介绍:
" B3 y9 M* N3 b: a- M
1 ?* i, ^2 U! _+ A5 w9 L' `使用WinHttp的对象方式访问网页
- r) E# i) v. R! S/ C5 N- T命令类别:精易模块命令
! q: z. X  o( Y, ?+ P& i/ O+ ^/ F
: T0 P  G8 ?# b* T
命令使用说明:
7 T; E! ]# l3 C0 z8 \; Y子程序名：网页_访问_对象
$ T- m9 q  s  [4 L5 X    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
, {0 X* T( m: v# r! Y, {# V( y; s    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
3 x9 H+ c* ]- h- E1 C/ E    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
% Q% {# w; y. f3 W0 r    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
' U3 Z( Z1 L- r/ F) Y    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
2 c* T& s: J9 M. G6 n    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
9 _. S' A& J0 T, A" U0 J( o1 X- v+ ~    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
, j# W6 G( o+ ], i1 I& z    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
3 u4 X; D- S3 a4 V& X) {- _    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
3 H* g5 N& c* T- y  ]( ~+ V' l& a& h
( }) ^) z* R. L# E5 S+ `0 U

% |& Q8 z2 b: V) P


7 p2 m! T5 V. ?, ?, D/ X) P. @命令源码:
! f) ~7 I2 ~0 C4 |& G6 g4 A
$ z3 D/ k/ p5 S/ U/ f0 G& }

1. .版本 2
   
2. 
   ; J: j4 L& W* r
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   " m* y; R2 G6 q, h5 X5 Z
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   7 c4 y/ E1 o! p; B, X
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   2 b. y$ {5 R0 B/ u
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   9 K2 R, p8 `6 s+ E
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
     c- _4 O. j% K0 o  I6 y" @
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    $ c$ x' |9 P# q+ d
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    0 p$ n, {$ Z. t, f" a+ U
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    ; N$ H  O8 [- t; x2 f' v
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    / [  M* h- ]9 p! y! v$ {" W' A- E* X
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    6 `% G. C: q" Z! D
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    . T! q6 U+ `  ]2 E2 T* c
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    1 a) i4 j: d* N# f2 G
24. .局部变量 局_WinHttp, 对象
    ' K& B$ x' i. ]) n- Q8 E3 Q$ H
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    , x" q5 I& C; V
28. .局部变量 局_网页数据, 字节集
    ' H, W; q; X- V/ s
29. .局部变量 局_变体提交, 变体型
      ~% ]& O. P7 y
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    5 ^3 m. x  S* d
32.     是否自动合并更新Cookie ＝ 真
    $ ?; p3 p4 z8 a8 U! w1 k- I
33. .如果真结束
    0 T5 m1 g1 l4 Q7 g3 _: U
34. 
    ! v& P. X0 o# x) w. m: E
35. .如果真 (是否为空 (是否补全必要协议头))
    7 x# {; h; z$ `9 d
36.     是否补全必要协议头 ＝ 真
    + _* `7 m& m1 F0 V
37. .如果真结束
    
38. 
    / u) c$ k# e9 k5 I
39. .如果真 (是否为空 (是否处理协议头大小写))
    + F$ O1 ]% `* N% z
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    ! a& \/ `4 w! ~4 D! F- p
42. 
    
43. 线程_初始化COM库 ()
    
44. 
      ~  ]9 g, T0 ^7 J; c
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    
47. .如果真结束
    % I" V$ `2 g% L
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ! ^. w0 m% i3 q7 [  W0 B1 m5 \3 i
49. 
    ! i. [" X# c6 L
50. .判断开始 (是否为空 (对象继承))
    , `7 a3 f. p2 g; R$ D" s, X) R$ U
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    4 |9 ~( C5 j' k* i0 s1 j
54. 
    
55. .默认
    . g' k5 r5 N; H  q
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    4 u: P; {  l6 E5 A6 w
62.     .否则
    # j  |( s+ k, R; V* w. Q6 E" G6 }% w
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    $ c2 Y2 H6 y: d4 ]( d; Y: J7 t3 S
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    1 j$ o# U$ ?$ _- ^1 t# s. u+ {3 e
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    " @& O: `! n$ z* n
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    9 x; N& K4 ^/ C
74. .如果真结束
    
75. 
    ( U+ T4 C; [) C* B$ ^
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    4 W/ k  P3 S/ {) ~! D% p1 O
78. 
    : R* w: G0 i! G* u$ _+ q
79. .如果真 (是否补全必要协议头)
    5 t0 F6 W- f+ A3 K2 _% W* U& V
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    / X& I% `% G6 U8 w1 n
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    " |( _/ k: C& \; g
86.     .如果真结束
    : U4 I# M% z' H* J1 i! Z  l" q8 s
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    7 v) A. @5 s; y  H. R  {
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    ' ]5 h2 h9 D. ?9 t0 U
90.     .如果真结束
    
91. 
    6 \% q) S" `! d( d1 a
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    ( F1 f3 S1 b2 v5 u
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    $ S  U% O9 `# t& S5 {4 z3 _
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    
100. 
     1 f5 c" W! ]8 X( x
101.     .如果真结束
     ' _; m4 \* g0 r, Y7 s" @
102. 
     
103. .如果真结束
     & m# F+ c: h' B$ q1 l
104. 
     
105. .如果真 (是否处理协议头大小写)
     5 E% Y6 M- o; S' M1 y2 m1 K
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
       B# ]( K. {* M8 T' }" ?  b9 a
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
       C; O  q- n8 m8 `4 x# a# H( w
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     $ J; P. u) @( M' ~
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     6 a" j0 @; E% v3 f
116.     .如果真结束
     8 a6 P8 X' g" D9 q* i( w
117. 
     7 H6 a2 @: x6 X0 Z" N
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ' J5 f5 `3 ^0 M9 {8 n- ?
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     / d2 e2 m7 r( k& ?% r9 g2 K
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     4 h: e  R: _) M
128. .如果真结束
     
129. 
     ; Y# ?" b5 Z7 ?0 ?5 o( Q+ n
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     4 Q  B* k/ z/ Z
133. .默认
     $ o* M) c  Z8 R2 q  h! }- D
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     . I- L+ e& @3 w& s
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     5 t( Y8 ~8 \: b# K% m) L* L
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     " A! O3 c8 b4 S* N1 d8 A9 B  v* _
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
       \2 u9 u! ]/ k  ~" ^
140.                 .如果真结束
     
141. 
     " [3 I+ H, k# I6 k  F5 I) w9 N! q. |
142.             .如果真结束
     
143. 
     9 X1 n9 t8 I" d8 F  H
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     3 ~  J; R4 y9 m, Z; O
146. 
     
147.     .计次循环尾 ()
     8 _3 y# j7 Q( f$ T' C$ a* c
148. .判断结束
     
149. 
     8 Q1 j8 i( d% R0 h
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     8 w# B2 p( S% p# q
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     * Q1 V4 {  d) U, `" _  x) I6 ~
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     7 ^! k9 [$ @  F: n$ d
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     $ a( X) x8 x0 g; t. r$ u3 b
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     ( G" d% r3 L$ S5 {
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     0 f3 n' L5 j4 Y3 y7 k8 S
166.         .默认
     5 |) i, Y# w: W" o2 r/ [, L
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     4 ^+ {  U( w1 Y/ H9 W% F8 H
168.         .判断结束
     
169. 
     8 ~, {' r( C! T& b+ m* Y) w$ C
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     9 \) _5 X' g9 I% |, P6 A/ L
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     2 v( S( x( c% m0 G1 c; n3 f% O
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     5 W: E: @/ S, g9 \+ T9 [
176. 
     0 q# W6 V5 R9 a5 S
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     9 G, _$ w/ ?( [& D
183. .如果真结束
     . K+ g. t* b2 W( o
184. 局_WinHttp.清除 ()
     7 Y  y( r0 c% s4 B: ]5 l4 L; L5 N
185. 线程_取消COM库 ()
     2 \5 T  ~& ?: o5 T
186. 返回 (局_网页数据)
     2 P8 Q) g  d0 |, G+ o
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     3 k% b9 u& _1 z4 \3 @/ y% v( l
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     ! u% W0 B' e# w8 r3 u
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     1 q8 @4 U9 f0 O7 R7 j
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     1 T2 p, N  ~& U" H. Q2 t4 c. U
203. 
     " j5 S" ^" J+ U1 S" u/ a& e6 X8 K
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ! ]+ V( J3 e/ w/ g: J3 u2 q+ R
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     - G+ N9 D) b# K/ m
207. .如果真结束
     # Z5 G. _7 d$ z: |% s0 Y
208. 返回 (删首尾空 (结果))

复制代码

! [1 }/ L- H2 S. C* K) d- k9 o0 Z源码复制到易语言教程:

! x  k+ n, a% E! n( {- i首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示


! h! v5 }. b) H" P$ z4 o0 ^6 Y然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
! l5 h+ k8 I) d; l
即可插入易语言命令代码哦
- v- o( }1 u) w
0 ]- n+ s: B$ g6 p& @7 @DLL源码复制到易语言教程：

" V6 |: S% |2 W" [, d2 b

0 n% g; ^( S8 x8 Y

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
# h* m: [8 E$ J: e/ j. r

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

3 U* v& W4 [  D4 I$ b  ~这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。