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

十万个为什么

易语言命令名称：
网页_访问_对象

命令功能介绍:
( y# M0 G3 Q& X
使用WinHttp的对象方式访问网页
命令类别:精易模块命令
) y! j8 r) \6 [& v% A! r
; s- K9 C$ h+ V* g+ H8 R2 m9 m
命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
( w3 I3 a5 i- }) c9 [    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
  l4 f: z* p' M7 s" b    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
' _, E9 g2 G7 X( v  u6 ?    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
5 i: D% D) G9 J# c% H2 @    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
4 ]  o8 v' b3 W9 d& z& G- D( {    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
* z9 \' J8 J4 j$ R+ Q5 ^    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
4 K# L# J5 L5 F, D9 f    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
  i* l4 M. p0 o9 s  q    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
5 h% |1 d* i' J, P2 q
7 W' B- F+ c6 b: M

( ~6 U+ B# U% Z" c0 t

" V; t  J; k! D# x! N
命令源码:
4 b! _' y4 N! Z. B
( m, ^! P8 l% ~7 z2 \

1. .版本 2
   
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
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
   . D2 w" q, i7 `% q; |7 [
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   & D& T9 \' r1 b, X' g, f$ R; r
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    " f1 z/ f( |8 h6 u# t" V( |: B
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    $ o7 K3 a# F3 V8 l. J
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    ! ~2 H8 U' {' M$ }5 T  T- ]
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    ; a6 h' n7 T$ `
17. .参数 代理密码, 文本型, 可空, 密码
    " |" X8 J% G) R; [, M& A* Q
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    % ^, Z& P- s, U  i' }. F
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    . m( K5 z4 M0 }0 V, C: i
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    5 h* \' \) p3 Q. {& z' ^( u, N
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    " T6 U" m6 x2 K5 ]
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    / l- A% f5 x# Q$ T5 h# A$ r
24. .局部变量 局_WinHttp, 对象
    2 c3 X% v7 z1 v1 t
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    0 @' D/ R3 x9 `2 B2 S# G" @7 ^
27. .局部变量 局_计次, 整数型
    7 _% z; w/ |+ `! @" k
28. .局部变量 局_网页数据, 字节集
    . G  {1 d0 Z+ x2 F# E/ X
29. .局部变量 局_变体提交, 变体型
    , ^" ^' p  q% [) o1 Z5 W
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    + `8 n5 p0 Z1 A" o; H& g, [8 \+ i
33. .如果真结束
    + n7 y/ g! [/ C5 p+ P) r& x
34. 
    ( \$ j) m7 `4 F2 _& w4 O0 |+ k
35. .如果真 (是否为空 (是否补全必要协议头))
    ! Y" l5 z+ O5 x7 Z1 {6 L3 w
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    3 {* Q! g0 q! y+ M) c: F/ X
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
      g1 I8 g9 p7 k4 r) x
41. .如果真结束
    
42. 
    
43. 线程_初始化COM库 ()
    
44. 
    0 H- I7 }" D; y( w
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    
47. .如果真结束
    + E3 u- s7 o# w( ^
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ' C0 I+ k# X5 d1 w7 r$ x
52.         返回 ({  })
    
53.     .如果真结束
    
54. 
    % x: s4 [3 B2 ?% [. X8 V
55. .默认
    ; U/ P1 t. y, U  E$ A0 ^2 _
56.     局_WinHttp ＝ 对象继承
    4 a0 r1 j* x+ D9 U. s
57. .判断结束
    7 i0 E, L$ b. X: v; \5 n
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    9 D- {# D1 D0 q) w: }
61.         超时 ＝ 15000
    $ [1 d) C4 |9 G/ N
62.     .否则
    . t4 r& F1 S$ y
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    2 D( V! M7 L% T6 ^
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
66. .如果真结束
    & Y! N1 \! P4 c  i5 G
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    & r0 D5 y8 g) x' z3 E- Q7 h4 u& R
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    ! g# G* b: ?9 }: P$ M
74. .如果真结束
    , u/ u0 A# u" S5 D4 Z
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    ' {. b1 j& s: h3 ?* j/ D" Z6 z
77. 
    
78. 
    
79. .如果真 (是否补全必要协议头)
    ; L8 {7 b0 d# q7 f! B! d
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    0 K, E' N; T: J' \. N. V7 T3 u, C" G
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    & j# q) _8 e0 r
82.     .如果真结束
    4 q/ t  m) @' F/ o
83. 
    7 v5 }! {. E( I& {& G9 E
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
      ^6 o' \6 f3 c+ g9 X. q+ k
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.     .如果真结束
    
95. 
    5 L& s2 f  E# |# }2 b: ~6 A
96.     .如果真 (访问方式 ＝ 1)
    + U# k  u& u6 u9 A) P* s, g
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    : }  |) Z; y; H) [
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    " s3 g$ s; n% s  K3 D' B
99.         .如果真结束
    , C1 ]+ f( N1 i% [0 K) K7 a! K
100. 
     
101.     .如果真结束
     
102. 
     $ \5 z( R/ R; d8 E4 p
103. .如果真结束
     
104. 
     5 E" e; S6 P3 E  l7 U3 i
105. .如果真 (是否处理协议头大小写)
     % p1 Y" L% C% o0 ~% J8 l% h
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     " z4 `& [4 f: }* f( n
107. .如果真结束
     1 ]$ \  O* s& K0 `
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
       Y  p- n! q8 g
110.     .如果真 (是否为空 (代理标识))
     ) Q5 X* d* D# N' q; T, ^
111.         代理标识 ＝ 1
     
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     2 U, e( z+ n" h* b  N
118. .如果真结束
     
119. 
     2 I+ C) K+ v7 @3 u) U( a
120. .如果真 (取反 (是否为空 (提交Cookies)))
     & R" N* }% k: Z/ I, a
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     2 E" ]6 q/ c  N3 ]
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     2 O( x) a* h3 ]: P4 `% E
124.         .如果真结束
     * v' w7 q; e( O3 _( t' C. a  B
125. 
     
126.     .如果真结束
       ]) Q+ [* t/ e
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     7 ~( g4 `: r% }. {+ G- ~: y
128. .如果真结束
     
129. 
     ' q* w6 D. G# z' d
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     + b: |) P; O* m7 E/ y  ]% I/ U% i
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     # J2 P" M( E" U4 c
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     ( ^( ^. D/ H- d/ M
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     5 V! r# E5 P& E4 D1 U
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     
141. 
     + w( A/ n7 v  z/ d4 G9 L. U$ s, P0 L
142.             .如果真结束
     5 C# T% h/ L3 T/ ^% I6 j
143. 
     ) w; \9 g4 u: ^$ w
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     0 K6 V5 B0 }. ~: ]% c3 T# R* D9 `. j
145.         .如果真结束
     ( _# H5 c) F7 n/ @
146. 
     # U: B# ^/ _5 m0 x. K
147.     .计次循环尾 ()
     
148. .判断结束
     1 `- o! M  F  `6 }1 \
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     ) E5 \. v% Q( R$ [" g# }8 w
152. .默认
     0 e  V& |' k8 M# `0 _8 j
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     0 H) X# _9 {- {7 d
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     ; S' J; c2 l5 P+ O" l8 O
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     * C" I  B1 [+ A" f* V
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     ; m' x, u# j! Q4 D: u' }
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     5 }- y  X$ \) F# x
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     5 Y- `# y+ Z3 }; V* g/ ^; H4 o5 z
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     8 F4 F% {( }2 _8 n
175. .如果真结束
     
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     ( V, b/ W9 W0 f/ O7 |( Y  U; x
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     ( B0 U5 V  @" b! o9 h
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     : V' b3 {; b3 I9 E! s5 p
181.     .如果真结束
     
182. 
     % k2 Q5 a: d" q( D! e
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     5 @/ n+ v/ u6 }
185. 线程_取消COM库 ()
     & X8 t3 o5 v. x. R' i
186. 返回 (局_网页数据)
     . r! Y9 r+ N: A4 Q' n
187. 
     7 l' M! I/ L5 r8 V
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     & ]( n0 @3 E8 Z  ^2 P+ h# v' k+ Y5 d* k
192. 
     ' S+ j  I4 l6 w& ]
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     $ I7 J  @! l: d$ A( K0 a* e- y
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     7 z4 I6 u! G) K& T: n7 f  Y$ f
198. 
     
199. .子程序 内部_协议头取值, 文本型
     " g9 f8 |5 m4 I9 v
200. .参数 协议头, 文本型
     / L% G# }1 x- g/ J2 Y6 F6 Z
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     ; v" |. P4 R& A$ i) @
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     , G- j9 y; C% l- p8 L/ G  G- \9 R
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     . T8 T8 U' C5 i  U; ?
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

* U! ~3 d( Z3 d' S7 ?
源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
6 L2 `$ j3 ]( U
* b- c5 w$ _6 T, E: V* W* _
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

8 O. u) ]7 Y& F即可插入易语言命令代码哦
, c( J6 S$ L1 K/ w
5 T2 i% ]& ^, ^( e# `DLL源码复制到易语言教程：
: e5 L4 l% Z* m

; C4 [# C  A9 _( V5 c

& n/ R+ r1 @9 J7 `& w

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
# Q7 R: I* S9 S- {

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

( Y# v' g( Q  o) a# s* ]这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。