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

十万个为什么

易语言命令名称：
2 n. ]4 w& p/ S网页_访问_对象

0 Q8 @, R+ s* Z  G1 e: U5 B命令功能介绍:

使用WinHttp的对象方式访问网页
命令类别:精易模块命令
" g  D" ^- w7 J" W/ X# d/ o
; h/ q2 {7 g1 ~; F4 O6 l
命令使用说明:
子程序名：网页_访问_对象
9 u4 }! Q( X3 F    使用WinHttp的对象方式访问网页
    返回值类型：字节集
2 B- Q. }, f/ Y% G% `5 a0 w    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
& {0 U' |+ Y9 K& l& O! o    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
8 K! a8 z; I* M. p  A8 x, l    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
1 G0 ]: A8 l6 ]    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
9 N1 M* {* b2 U) J6 J, \8 `# g    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
2 e  T( `3 r+ g4 [6 M4 x/ F# n    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
8 l, j' p: L. \; j, D    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
+ _' ^. S7 k( n: u
9 N% o" a  w6 V, M! N5 x, F


8 M$ ~0 G2 ~. @
8 S; Z* N! e% W* s  m* Z
命令源码:

. l  x; A; ~' z4 c* \$ G

1. .版本 2
   # _" N5 ~! S, `- G8 e$ V
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   - f# R: X7 i& q
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   # u  p7 I8 ?/ s" Z9 y, K
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   8 \  P) k8 u" k/ b* u9 G. y7 D& o
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   7 i9 K6 p5 Q2 m: {2 G
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    : V$ c4 |* s7 k/ p9 S# g; Q
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    7 N9 r' t3 X! x  h4 c
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    & @' I2 R: R% P6 t8 H+ [0 f/ q
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    2 f+ a( i/ ?0 }" a7 s' Z4 @1 n' p) q
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    % X/ r6 d% r: E  E
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    8 V+ i, N* ~' J9 K  k
24. .局部变量 局_WinHttp, 对象
    7 p7 T: M& _8 A2 d: d- }; j
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    & O1 n2 A2 A7 q
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    6 U/ S8 o" f) k& P( L$ J. \
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    0 t& g7 G- p" R
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    
34. 
    % l* ]0 d. j1 D/ ^( a! v8 b+ W
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    . R7 T* ], ^& a# J# Z/ L) C% i
38. 
    & ^2 o( c; I! C2 E4 ^
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    2 k( O+ T' \' \
41. .如果真结束
    
42. 
    3 [+ ^# \( c' _; Y
43. 线程_初始化COM库 ()
    
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    + |6 c+ z% t0 |; k
47. .如果真结束
    ! E. J( X: e$ _
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    
50. .判断开始 (是否为空 (对象继承))
    4 \$ X5 a1 J' Y# J/ d4 i
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    # f, M( \' X. |0 U) z4 V* C, n
52.         返回 ({  })
    % l4 J$ \( d  n" e- i5 E' u! g
53.     .如果真结束
    
54. 
    & c4 r: d0 J0 O9 H4 O
55. .默认
    5 s6 m0 J4 ^" s* o2 q( m7 r
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    * z8 a2 E6 E+ l) O# I
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
      q& Y8 Z- Q6 t# r
63.         超时 ＝ 超时 × 1000
    ( F# F, @. V: C, b
64.     .如果结束
    & w, L1 C5 j6 G) S; \/ B
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    " @& q4 w* w! D5 H( I' ]1 ~$ ~
66. .如果真结束
    
67. 
    $ i2 I6 q1 m6 X+ m5 e
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    3 u' L+ K) L5 }; s( Z. J
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    ! y* k7 c7 G* R9 k. v
78. 
    ( `- d% S1 m" H+ ]
79. .如果真 (是否补全必要协议头)
    ) {9 Z- S1 K4 Z4 a1 }
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    / n% `* x8 s% ^) \6 q' x! k
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    
83. 
    $ j8 g5 e" E3 W: @6 g
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    . F  c: ?" ~2 {% `7 D. L. h  z
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    3 |. w) {8 M% @" D
90.     .如果真结束
    # i0 Q5 T1 z/ _' I9 f; R) u
91. 
    
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    # t) `6 R2 S3 N8 G( O# i) U
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    * j$ O2 f, c; X- R" t# O5 Z0 s- w5 ]
94.     .如果真结束
    
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    9 B/ C. e# n9 o. F& X8 D
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    6 R7 E+ K/ \$ S6 Q+ T
99.         .如果真结束
    
100. 
     9 C0 M' V. W5 S$ s4 j  M
101.     .如果真结束
     
102. 
     / X: \2 p$ s( p6 r! Y! a4 j
103. .如果真结束
     
104. 
     - T, U. |7 e+ p9 K5 x
105. .如果真 (是否处理协议头大小写)
     # o. F1 S/ V' x  ~. N+ d, A
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     " s( a5 m2 n- u' G
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     7 r4 N* P0 S" R. m# a
111.         代理标识 ＝ 1
     
112.     .如果真结束
     3 Z5 K/ D6 t( C* W+ C0 Q8 S
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     & q2 {  q: D5 |9 P* \6 m/ O% t
114.     .如果真 (代理标识 ＝ 1)
     3 E- I4 g+ j$ w. o" z' f+ q
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     8 L3 u! F0 k5 ]1 r$ a& ?0 }
117. 
     3 c+ @5 ?. U+ m" \# Z' l
118. .如果真结束
     + X/ X# O0 n- V: ]1 [9 U% H
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
       x& Z6 Z# |- j* }6 S: P, K
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     " Z# M+ d* G; m
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     , O% X: z9 x4 {& k- q
126.     .如果真结束
     9 M4 U  y& j4 M& A0 c! ?1 n
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     9 I( j! |& }: n8 i/ e% A# H
128. .如果真结束
     * Y4 h- _$ x/ C8 t2 P
129. 
     
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     1 \8 d3 i1 u3 @
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     0 {4 Y$ z, [6 G5 v+ M
133. .默认
     * B7 d* K" Y& N9 a% C
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     ( L# z1 }( r: l8 m# I, ?. j- Y
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     2 A* ]: F9 y1 E4 A- Z5 Z& N
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     4 x3 {! g3 o+ m7 M' L, a2 t5 Q
140.                 .如果真结束
     , ?6 T# ~; W- c8 ~1 j7 m( F0 w  \1 T
141. 
     $ j1 l, a, G4 H% _. b  _
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     : b2 V& \; C# k/ E' |
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     
148. .判断结束
     $ ~7 H# b2 Q( p2 r4 N3 z
149. 
     ( `! t, D  M% e0 ?) f6 S
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
       n# x- o; x* k% S9 u/ E) g- k
152. .默认
       S5 e, H. ^  v( e2 S4 `
153.     局_变体提交.赋值 (字节集提交, )
     / A" E. N) z- V5 E& e! r: w
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     1 N/ H9 w; \: E/ J8 t
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     2 n* v# I! |6 _4 R- {9 r
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     4 j; Z& c; `( M: d2 z/ Z; z" o6 a: c# J
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     1 G" ~! {" |6 c0 i3 d' Y
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     % I9 E' {* h3 `& X4 x0 N% d
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     6 H- Z+ S3 i' x# v/ h4 x+ T9 b& V
166.         .默认
     0 u4 p" A2 F. _; |! e& A" H7 H
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     ) k+ V6 K( ?; C7 R
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     * ]" r. C$ ~* F( `& v# M- D4 O
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     $ x7 ?. E' V  x7 T' k
175. .如果真结束
     
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     3 Y6 {8 w, ^- x6 l
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     + W2 R2 b  l; M) b
181.     .如果真结束
     , h) n+ b7 S3 [2 K
182. 
       O; N( b9 e, L, z  v
183. .如果真结束
     ; V& m! d6 ]0 [
184. 局_WinHttp.清除 ()
     5 z) J5 t2 T. u$ g
185. 线程_取消COM库 ()
       T7 d; K3 ^% [. b! [; G
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     ) V0 }0 |' U/ j/ n" P1 G0 a: _5 v
190. .局部变量 位置, 整数型
     
191. .局部变量 结果, 文本型
     5 k, B; n: s, |2 D  v: p
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     6 _; @& O1 Y- F7 R
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     + r4 }  C, S  `8 \
202. .局部变量 结果, 文本型
     
203. 
     7 o! S: v) u- z" X& x
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     " p) t- F3 L* J+ \  R6 \( h
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     ( Q+ M2 h3 L. T* \! v
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

+ l  X- H  h; m7 [3 K* F- k; x
6 ~* u' A; D) G  H# l源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
9 P# S5 ]' R  I* W1 L
' B4 x1 t- c* m. N3 R4 b7 R
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
! q( g" P* x) f4 C  K8 ?
3 u, R6 S* O0 f$ ~! G" p即可插入易语言命令代码哦

DLL源码复制到易语言教程：
$ |" R2 U) U7 _" x6 I$ p7 T
, n& v* u& G: V- y3 m; t
0 j! p. y& Z& Y5 W+ Y7 l
  O' d+ A# ^4 T( t3 V! V

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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