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

十万个为什么

易语言命令名称：
5 D# q2 L, L% H: |% A4 M5 p' e网页_访问_对象
, Z; V3 D% T* Y3 r& D+ w
$ u- f0 Q+ ]3 T命令功能介绍:

4 Q! D4 o# A8 I# }+ u0 j% Z* s! r( p使用WinHttp的对象方式访问网页
, J! }2 H& ]3 U5 K* m9 V0 S命令类别:精易模块命令

0 p* r% E) t6 B) M$ D
命令使用说明:
子程序名：网页_访问_对象
, d3 I7 y4 k' r6 N    使用WinHttp的对象方式访问网页
    返回值类型：字节集
% F( i. n! k, E    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
2 }* _5 @7 ?: k, H: n7 c    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
4 c% K& k9 R2 ^% h/ P    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
" u% }0 l6 J2 s4 @) `$ L    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
, J9 G2 d& D7 j" A# i1 O    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
9 y! j5 h3 f4 j! T    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
4 ^% _: K% g* c' J    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
9 Z; p  h' h. i. L    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
4 W8 l: _, d9 B/ ?" D. I  B  Z    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
/ O6 c4 I4 r: |4 O$ c. g    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
3 |  [, z! A0 P0 F, x, g: H* L" b0 B    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
+ ^' b) J2 ~3 ?1 L0 k3 j

/ f2 N9 f6 C7 O
8 ]( \% H+ z7 h7 y


命令源码:

1. .版本 2
   
2. 
   , t1 S/ W) A& `' B9 r- B
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   8 y# r! u& d0 g1 c' q$ y7 |
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   ( a5 g& @0 r: v8 j$ m, Q/ u
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   7 ?" E2 m7 T8 T
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   . L+ v1 B* Y3 A1 L' s) d
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   4 T# G: W/ u# b4 M+ A5 V4 N1 u, t
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    6 {& L. ?" {  H% }- g: X+ T- x
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    5 L* b7 f0 m1 w
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    " B: D, u1 ~. w2 S; A. }$ U- ?
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    / n0 g2 Z% n, [7 r: w
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    * ^& d% z# y/ G) L
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    4 }3 {3 U0 p, ^3 N( k. k7 L9 q3 x
25. .局部变量 局_发送协议头, 文本型, , "0"
    0 z! [0 F4 s) z2 @! e
26. .局部变量 局_返回协议头, 文本型, , "0"
    & v& K( g, I% u) i
27. .局部变量 局_计次, 整数型
    2 R/ J7 z; n6 }
28. .局部变量 局_网页数据, 字节集
    + |0 i& t, D- h8 D/ ^
29. .局部变量 局_变体提交, 变体型
    6 `$ ^. q6 _. E; k# e! q
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    8 O* E4 S; k0 P
32.     是否自动合并更新Cookie ＝ 真
    8 \4 E3 F& k' g, ~% Z
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    ; |* @( `1 A5 o* G$ @! |5 Y
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    2 m% k" t7 P% W
40.     是否处理协议头大小写 ＝ 真
    # ~0 [  q! q+ B$ l0 \/ l! j4 \
41. .如果真结束
    
42. 
    2 D' \. n* Z$ u! z* o" E2 G: @
43. 线程_初始化COM库 ()
    2 x0 Z/ W  G% d, f
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    1 o' k8 K3 |- T. V/ ]+ s8 d% z
46.     访问方式 ＝ 0
    
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    7 w! b$ ~: U: ]! u
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    ) r4 b/ \* ^7 [4 D2 @, ~9 b
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    1 ^4 Q+ g+ S6 ]7 @/ o/ W+ H+ k" {
57. .判断结束
    ! d- ?# l3 W" P* P
58. 
    & @, x! \4 w/ l) d& e7 |0 Q
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    % y' p3 a5 G, f7 E1 i
63.         超时 ＝ 超时 × 1000
    $ ]  q! l/ x* P
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    
67. 
      ]! K9 r; z+ \/ N" y( o
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    9 P& o9 P- z$ p4 L0 p
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    , @2 a7 j: A3 _6 `
77. 
    : o% a; |4 A/ z2 T
78. 
    % Z1 W9 [1 A$ X6 Y
79. .如果真 (是否补全必要协议头)
    8 D0 ^9 M1 ]7 v0 O# B
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    : f: G; n$ X( ~/ k3 @) w. S( s
82.     .如果真结束
    
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    9 v5 P- R( h+ Z+ X* R1 w
86.     .如果真结束
    
87. 
    % h- a2 E$ V9 G- E, o1 G
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
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.     .如果真结束
    ! e" T9 S( R6 g
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    8 j, _% m$ b2 i$ o/ r
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    $ {& H* V4 F! p& z" ]
99.         .如果真结束
    6 z/ m8 C: W+ L  o
100. 
     2 T% W: c. ~5 Y
101.     .如果真结束
     : e- p) x+ i0 ^) B  D3 n7 d  a
102. 
     5 D: K5 |, f7 x6 h
103. .如果真结束
     
104. 
     
105. .如果真 (是否处理协议头大小写)
     
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     3 w. U, J4 t9 K2 Q1 `- g6 c
107. .如果真结束
     # k  S- L0 @( g, y; {3 B
108. 
     7 g2 h5 A% Y7 r  Z8 K" e
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     & z) |$ H# D1 I' J
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     . ]- ~* F5 j5 ^" T+ ?
114.     .如果真 (代理标识 ＝ 1)
     0 A0 c* z0 f$ [' o) L
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     ; C1 }" F# l& N& q0 t+ Y
116.     .如果真结束
     1 o% H( E0 S/ B: |% h. s
117. 
     " Y1 V+ A. g- B- {1 k# b0 E
118. .如果真结束
     . G. ^' f6 a' U* R) Y* U; t
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ; h# W4 {) C) ~6 \
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     - v4 b7 p, j1 Z+ Y
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     1 W3 m' h( P$ `$ B8 S! I" U0 V% H( @
125. 
     
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     ' m" G4 w) ^# A5 R6 s
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     3 O# @, b3 G# G- V$ f( E
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     ! g$ d- j+ p, M) [
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     / m- M8 `/ T8 c/ k
141. 
     
142.             .如果真结束
     3 w4 I7 {( U. H' M
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     , w3 r  q- q9 ?; C# `% z" g
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     + r! A* A: X3 X5 S  Q+ h( P
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     ! O0 e: E1 q4 D6 n1 y8 E/ c# }, h
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     * {( Y4 N: `$ s# g2 B1 H0 l
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
       W) _' s# Y  v1 Q4 m
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     ; }+ n5 v$ U% A
161. 返回Cookies ＝ “”
     7 f5 R. q. W3 E8 \/ V
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     9 R4 F: e! u6 `. ]; ~
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     " c/ y+ g2 T( U, `5 }9 R1 x; t# s
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
       y! l: p1 e. J% l
166.         .默认
     5 ?; `: c" X# {: f9 J" ~  l
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     ' Y% i& I% \# q- q0 Z7 b7 S! ]0 J) ~' r
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     4 ]" a- w* ^' P( [: F- K
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     8 }# B/ ~1 t" A; ]
175. .如果真结束
     
176. 
     
177. 
     % b9 y5 k" t7 z+ V7 `
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     9 Q+ {2 B4 v# ~5 k3 a3 T4 M/ v: d
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     & X: \; ?8 C" M9 J2 P5 T' S9 n
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     & P$ b7 H* S, \7 S
187. 
     ; Z6 A8 P- l& _7 L6 i6 Q8 Z7 Q
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     4 z, o: t) s; [
190. .局部变量 位置, 整数型
     % b. e( w( l3 X# P: B( E9 Z$ f7 Y
191. .局部变量 结果, 文本型
     - H* ~' _5 b9 K  b5 L# u* @
192. 
     3 \4 W( x! u0 B, a* \' U( z6 q! w( |/ ]
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     2 \- }4 @/ T0 m& G# O% t8 {
194. .如果真 (位置 ≠ -1)
     1 d) m. a; Z- O
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     , R- x; O, a% j* m3 W2 f
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     ' M2 P. K# l1 r$ w8 F
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     $ c9 j; _- N1 `7 J  q+ H' N
205. .如果真 (位置 ≠ -1)
     + J; [6 w% B( j  U+ |) f2 j
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

' K& m# o! L: L/ ?, B2 O9 M3 s
源码复制到易语言教程:
' w+ E! m* B2 J- K" F
首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
6 N: s2 L6 H: K. [% g

然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

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

DLL源码复制到易语言教程：
4 I2 j" b2 ~! c$ A9 n
" c: {$ O. E) P5 @! {; h! a
* E8 @4 k: K: M) I. f- t( y
6 E5 x4 x5 Q& r: O9 \& B
+ A/ Q: _) m" k& }1 G; W$ S

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
1 r8 E; P' w7 P

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

  ?. q0 o' _3 z5 |1 I; X这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。