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

十万个为什么

易语言命令名称：
网页_访问_对象
+ m( W9 J- u& E4 T7 i2 q8 X8 s
命令功能介绍:

! T# P( K( P) S% f1 r使用WinHttp的对象方式访问网页
" E8 }6 T. E4 [- {命令类别:精易模块命令
. A9 D! d8 p- S8 K9 {, K& c
! G( A+ Z5 M/ B9 z& Q
命令使用说明:
0 C6 H6 _+ R0 v) @. d3 {& [) ^子程序名：网页_访问_对象
& m/ A' o8 I0 B3 A4 a, }    使用WinHttp的对象方式访问网页
5 d4 z" V1 P7 M. \  ^    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
5 s  {9 ^( t" o& k( v2 _' R    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
: ^/ d/ }, F+ i6 q    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
% Z' T3 c" `* U" h    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
8 R7 X9 y% D5 h8 l' w! R" W    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
- i1 n% w& ]+ b7 O+ F2 u  M' n    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
9 L. z5 V9 f6 e$ c2 t    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
" n* e1 q1 v% R  m    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
0 Q3 K# A3 |" k4 _( v6 C. N    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。


( R4 S4 G# U$ F( z$ b

6 e3 k" l9 f% Q: t
! k) J. f4 _6 N* X: x
5 M8 O# d) C: M  m命令源码:

6 r  M* X, n+ h/ J- d; d* P

1. .版本 2
   ! S' o3 D5 X3 c' }: f0 h
2. 
   
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   / F, r, y; y& S6 D8 E% q
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   , a# T+ A! l' M3 m  }2 T& l
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   9 v% `+ w! {4 w5 S# Q: M  ?; E
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   , ?' j& e. r% ^! I9 a% g- r. n
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    9 I# ?2 F" X1 a1 t7 O% A5 Q* }
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    ) ]$ T+ L+ ?( a3 J
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
      G: a. n1 ~2 \3 @  k* B
16. .参数 代理用户名, 文本型, 可空, 用户名
    
17. .参数 代理密码, 文本型, 可空, 密码
    : }! A. @# i! y7 W! @0 o
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    4 D4 p8 B. W6 Z. c5 b+ v% [, }
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    6 r: V; E, O( [7 P" d
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    ! H- n7 c% f- T7 e6 |7 V' k0 k
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    / C- T0 D# a; J3 R( T0 z4 x: i
23. .局部变量 局_访问方式, 文本型
    % c8 I: ~* a! _+ L3 w. K6 J- S8 v7 _
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    ) Y5 a  }3 d" _' _; [
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    + X5 g0 @/ ?0 W
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    / u$ s! B+ q) z6 S9 A  W5 G
33. .如果真结束
    7 P& e/ d* A# B7 i8 n& M/ |1 O
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    + A- I" E! `3 H. I6 N7 d8 j
37. .如果真结束
    8 `/ d1 K& |5 N5 [; y; v; y+ n
38. 
    ! Q: E" Z+ |2 l7 |
39. .如果真 (是否为空 (是否处理协议头大小写))
    # c) T, F) D% ~* B; I$ Q
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    : E$ v* K& j0 i1 g6 X, L
42. 
    
43. 线程_初始化COM库 ()
    / `2 i. O) p$ {4 o( ]& y' [
44. 
    9 Y$ @- H% r* \" M' E2 K  B3 G
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    7 y% A2 u  v7 u) p" ?
46.     访问方式 ＝ 0
    # n3 J% p8 V% d! E8 e
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    2 ~7 j# @  u) I2 j" c& C
50. .判断开始 (是否为空 (对象继承))
    ) m( w: M- g, w  N! k# G
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    & J/ [4 J! E3 k4 M; W  [
52.         返回 ({  })
    
53.     .如果真结束
    6 x- l! v: p; f  @: X
54. 
    
55. .默认
    + E, T7 B3 B5 B( B1 a
56.     局_WinHttp ＝ 对象继承
    % e  ?5 Q: s- ?! X
57. .判断结束
    0 o) O4 `& P$ z8 M+ U5 T  ?
58. 
    8 H6 }( v( I* ^- R9 z/ u1 H
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    
63.         超时 ＝ 超时 × 1000
    ; O. [( |* R& F( M' Z& m% l2 m/ x
64.     .如果结束
    5 V% `9 w. j4 U8 q4 w" d1 i# }
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    + Q( h/ k) x6 o- i0 c- l
66. .如果真结束
    8 v2 y6 |# ]" H0 h. F
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    8 ?5 l3 g3 T3 b
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
    9 z5 J/ ]' u- {% l
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    ( S# d4 Y  [! e
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    
78. 
    " }0 s- @+ W9 N0 z
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    9 w5 a( d" j- i
82.     .如果真结束
    ! b  s1 ~7 ^  y# ^6 p
83. 
    
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    0 `4 v& [/ ]1 Q
86.     .如果真结束
    5 M; ^' v% j6 u  }3 s* Q4 @
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    ( g, ?3 Z& O& Z; O3 a/ U7 f+ F
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    2 Z8 @1 D* \7 B7 N( D& S8 o* r( e
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    
95. 
    5 t4 M3 Q! H0 M, x: x+ ?2 @
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    - {4 m$ A+ c3 a1 S
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    9 C* C" o/ G  x3 \( j. |
100. 
     
101.     .如果真结束
     - ^  I/ i& I+ R/ o
102. 
     
103. .如果真结束
     
104. 
     4 u4 u  P# J$ O( q. Y5 U6 u
105. .如果真 (是否处理协议头大小写)
     * X7 }1 }- a7 x0 D
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     & L/ ?; B% p2 h& X
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     * I; B5 l+ J, N1 h  Q
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     % v  h* T8 R# ]' ~  o; T
112.     .如果真结束
     ) o. V6 g$ ^; {3 R0 }' O
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     3 V9 w' |( W0 D( m4 g$ V' I
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     " {: Y" L; ]0 H
116.     .如果真结束
     . k" [. G8 L+ f1 ^" i* ^
117. 
     ' @' c  J0 p7 m; N  y% D/ t
118. .如果真结束
     
119. 
     % y( z9 F4 g9 ]4 q- i
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ' l4 }3 `: A& h/ T* B+ n) l
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     ) h8 j! q: l0 H' \
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     - E( y# G! g8 z$ ~
126.     .如果真结束
     : [8 }4 [( M/ X4 ]$ L& J
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     0 ?9 [2 X) \9 z% L' n
128. .如果真结束
     . ^8 q& \" a( m9 Z# m: _
129. 
     ' t: l% l& e  H: c6 I8 i
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     ; \/ S/ R% G& p! T9 ~2 z
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     + }. i- l* d7 H- W
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     1 O) U- d1 i, `, c" U# c
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     & a. A% g7 \1 @3 D/ s7 ]2 ]
141. 
     6 `& e  {6 M2 ~. f  L; C( x
142.             .如果真结束
     ' ]. r9 @& b' d2 K  k* t$ z$ `
143. 
     8 J& y1 k+ P8 \8 U
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     
146. 
     - U+ X( E2 C1 ?: h1 z
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     : b* m3 m1 b5 F1 S) D
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
155. .判断结束
     # ]6 \- L+ l2 C& D4 T
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     % o  w  n! F2 J8 }1 ~( e
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     6 r  r, e7 I* G3 N. ]* ^$ U3 j0 y
159. 局_WinHttp.读文本属性 (“StatusText”, )
     ) A9 d/ T& s1 T3 }
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     4 v) ~7 P- W6 v1 f* u
161. 返回Cookies ＝ “”
     0 {$ ^# v7 Z3 P+ f4 Y! B
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     " k$ x+ b3 d3 T6 a5 C+ O
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     : H2 ?- q4 H' e6 d
166.         .默认
     9 e% W1 s" f6 a# u
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     
169. 
     
170.     .如果真结束
     
171. 
     
172. .计次循环尾 ()
     ) ^3 ~9 z7 l8 {  a
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     6 q! W0 c9 Q/ ^; A4 R
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
175. .如果真结束
     
176. 
     
177. 
       l. N( h: Y; _2 L* z; t+ T
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     1 W) u- \! a# l# f" s+ t
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
181.     .如果真结束
     
182. 
     
183. .如果真结束
     : k' h; r" Q+ w# o5 l
184. 局_WinHttp.清除 ()
     8 L' ^" \  E2 O8 x
185. 线程_取消COM库 ()
     1 @  ?9 B: B2 R$ O) \( o% U5 J( X
186. 返回 (局_网页数据)
       b" B8 Q' o, g+ U
187. 
     6 |; j$ j- [/ a! ^' `2 r
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     0 w4 [/ E1 }/ t% X4 Y
190. .局部变量 位置, 整数型
     + D  f8 c, p) K
191. .局部变量 结果, 文本型
     
192. 
     9 C! p9 k% H, l2 M$ j# Z: R; h) d
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     ) P: b4 A0 W& T' Z: d! `5 R) Q% X4 Q
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     8 e) t6 K* y- J) ~1 ^7 @4 i0 I( o
196. .如果真结束
     . N! d' d( f; ~! d% b1 j# i* g
197. 返回 (删首尾空 (结果))
     $ z) s% M0 X8 a8 l
198. 
     
199. .子程序 内部_协议头取值, 文本型
     - Q& l$ F4 @5 v) p/ C  Q. C+ g
200. .参数 协议头, 文本型
     2 K$ K; Y1 v* n$ ]# l7 I2 M( j
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     0 U. c) M9 v) z' M* [
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     9 `0 E* l/ _7 t1 |" b/ B3 o: q
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
     
208. 返回 (删首尾空 (结果))

复制代码

' E/ J. i. u! C6 x) z
  E' |4 @- B! d7 Q! N2 d& c7 u源码复制到易语言教程:

首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
- [; q* I' y+ S

/ x# P& j2 n$ x) z然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦
- [! o. f" O  X7 `) y
' c% n! M; i8 {8 uDLL源码复制到易语言教程：
* \) Y3 f, S6 L; f2 ~
$ d. s$ l) t, i2 Y

0 a$ A; i6 `) Z' o1 o0 ~. L* @
! Y" ^$ s2 q; }% I9 u

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
  E. M  g* R8 @

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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