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

十万个为什么

易语言命令名称：
: l& u1 w7 ~  d8 f. X7 z网页_访问_对象
+ Q3 i+ o! T+ P' w! h
  O# r0 \4 h) C; ?2 l0 n命令功能介绍:

! x* c( a- v% p9 A8 s使用WinHttp的对象方式访问网页
* i2 a# m) C0 q命令类别:精易模块命令
& V5 v* r8 ?: h9 x, R
) R* {0 A9 o/ |& E5 D
命令使用说明:
7 z* v. N  O; R) t3 }7 O子程序名：网页_访问_对象
1 R" B& M! ~% Y% g/ c    使用WinHttp的对象方式访问网页
- R8 \' D2 s& Y0 F! U1 D    返回值类型：字节集
3 F. y. v5 D( S# f* E    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
7 M* |4 V, y* ?( M  l9 ?+ ~3 l    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
. D# e6 L$ t( i, G1 C+ _, U    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
0 \5 J# H4 r6 C    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
! u1 D% x' f* `% s    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
- A$ o* a8 k9 j& `/ U$ h    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
9 ~; W) j) f  p! p9 f6 c    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
' B9 n" P: ^8 e$ Q8 y5 Z! l    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
/ x: s" v7 B1 }2 S# s- n# a& d! m    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
* @7 U+ o/ z7 S# F/ A- g    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
# K/ Z" M2 {# W# P& h! C
. {( W9 Y% o; {  E
! s: {1 ?, l. q' B2 m; g# C

2 u. c# C+ J& _$ ]% {) E

命令源码:

$ i- A# }$ m4 X" f( i

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
   : ^# I& |- t1 w! m  p  ~+ {
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   4 l4 y: p5 D. e0 N7 _
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   ' p$ b5 I0 k) ^$ F2 }! m# Y
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    5 e0 H& B. w+ ^2 G" W5 S; Z5 B
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    - e! I  P0 S5 i$ \
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
      T. R1 v" V- |5 @
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    4 H5 s+ z  h5 T$ a% M2 R
16. .参数 代理用户名, 文本型, 可空, 用户名
    2 a+ E( N- k, V  D5 Y* }* n, w( O
17. .参数 代理密码, 文本型, 可空, 密码
    / P2 K* e0 W$ W- h" h
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    * D* p1 r$ y, ^! I' `6 ^1 O
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    6 V* j8 g9 Q4 `+ S  b
23. .局部变量 局_访问方式, 文本型
    
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    7 n1 p; F6 }$ L* v5 I
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    9 O/ B+ |  v6 _; u
29. .局部变量 局_变体提交, 变体型
    
30. 
    - {; Q$ x5 B6 d0 d. C; ^& W
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    
33. .如果真结束
    . I* c' w3 |# y" i& J
34. 
    , G( B# K1 P6 u0 @$ t1 J
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    7 j% i' O) R% y" B- W# B$ E
39. .如果真 (是否为空 (是否处理协议头大小写))
    " p  W4 Q. @$ }, G/ y+ p$ a7 s
40.     是否处理协议头大小写 ＝ 真
    " T5 N' R, q3 R' _" {9 H: u, e3 P
41. .如果真结束
    + c) P0 v' L0 X2 {8 Y" L7 }% w: z, O0 C
42. 
    6 q. g$ M* ?  P
43. 线程_初始化COM库 ()
    6 [+ p8 F5 W5 l, u, C! D: a' ]
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    8 `6 m; L; M1 i( ?3 F0 d+ a9 f
46.     访问方式 ＝ 0
    9 i5 H$ x! ?- @1 E% L
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    % X& Q# G# l7 m( k; D" k! A
49. 
      k2 j8 b0 S8 a5 O! i- Z9 f
50. .判断开始 (是否为空 (对象继承))
    
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
52.         返回 ({  })
    3 X. Z+ f" F. w' H) L8 j
53.     .如果真结束
    
54. 
    * ?* Y3 M* e/ c' j
55. .默认
    " f2 v& d9 S5 S1 a9 E& H/ a
56.     局_WinHttp ＝ 对象继承
    & @; v2 `( _2 q6 Q" k& A
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    0 S2 L" X: ^+ y: W
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    % H3 W  W9 V6 I
62.     .否则
    % L, M& A* e: E8 I" S  x) u
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    , }& r; ?3 H2 I/ s2 K* ]
66. .如果真结束
    ! `- E0 ?) m2 c" m+ d- S! o# H+ S
67. 
    , G  `% x, L; [. I. X
68. .如果真 (代理地址 ≠ “”)
    0 x; ~% w1 m7 m8 G
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    6 y& |6 q; x: a  o  {  D2 t
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
72. .如果真 (禁止重定向)
      x6 x# W, `5 F, Z1 z
73.     局_WinHttp.写属性 (“Option”, 6, 0)
      e3 j6 G9 X$ B
74. .如果真结束
    
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    - Z" P- Q  i( u* H  W$ c
77. 
    7 M5 S3 U: ^8 U9 `0 M
78. 
    & l# H) t3 |: `3 r6 [; q9 Z! u" H+ _4 ~- K
79. .如果真 (是否补全必要协议头)
    
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
82.     .如果真结束
    2 _9 }! j7 S. b
83. 
    7 F3 `* o6 _( I4 q7 \  g
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    
86.     .如果真结束
    8 T; W1 d9 H' k! i- e$ a
87. 
    
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    
90.     .如果真结束
    
91. 
    7 i( A) c+ v# `& T# W; d3 v
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    5 }. W$ C. B% J0 @
94.     .如果真结束
    / k$ |2 |" @* \' J9 t5 ~1 C/ T( p7 D
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    / D' U8 G& b( K- |; i* V
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    * c4 F3 Q* j- e) t) }
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     
102. 
     
103. .如果真结束
       P6 s9 y# }9 Q& [% m5 x% o/ b% x- {
104. 
     
105. .如果真 (是否处理协议头大小写)
     ! {. k# O! k: M" ?- q/ x' {
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     3 W1 i/ R) R8 D2 N5 _9 y
111.         代理标识 ＝ 1
     : [8 s" |- X/ W- M, i2 O& M. a. S5 ^: U
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
116.     .如果真结束
     
117. 
     ! m# o$ F9 v7 ?( ?! Y( y* e
118. .如果真结束
     : @$ d! y: w- L2 z9 a" d! m5 k
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     ' i0 p6 W5 V: }3 [  |" x
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     + c8 [( _) q8 ~4 ]" }6 y
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     9 @2 o* U' H! y1 U: S- k
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     0 a9 o' M. u- w: x
124.         .如果真结束
     / o! y: ]' `/ i7 d. O4 |- ^7 D' m' {
125. 
     
126.     .如果真结束
     % Z6 E+ P7 {" F( L+ J: s
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     
129. 
     
130. 
     9 [! C8 k  P( i+ u$ |
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     # a& _+ j6 V+ a; s) ~+ @& w- K- ]( p
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     $ {3 C$ m+ w. ]0 U# O& c
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     : y% S7 ?! |! t. }! x( N
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
       s( G  U7 Y& L5 R$ ~$ v
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     1 H% f/ T; z9 {1 N5 f# |
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     9 S, b+ D2 p# }4 a0 l' |
140.                 .如果真结束
     # r% w: B& K2 X
141. 
     : Z# u- C0 l8 C! K' H% j& W
142.             .如果真结束
     
143. 
     
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     6 @# m& s0 l* O7 _! I
145.         .如果真结束
     
146. 
     7 O+ T9 g) A' w. V* R
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     / E& I  ?  E  H4 p& U# e
153.     局_变体提交.赋值 (字节集提交, )
     6 m# J! M/ f* x; q3 T+ {% G
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     0 H2 v7 f7 _8 _
155. .判断结束
     : Y. P# y0 A" r- X0 S
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     0 k! p' D! ^- k- W4 p. q4 Z
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     : X* `2 x, i* ^; F8 F9 P: d
159. 局_WinHttp.读文本属性 (“StatusText”, )
     ) e# X9 }. O/ D% K/ ~
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     ' V! c1 h2 `. F; C+ Y' |2 ~% t& V/ E
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     6 ?" W; V  O- i/ n- f. w
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     2 U5 M$ O( J1 B& b4 e
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     * H: G0 G$ A. F
169. 
     
170.     .如果真结束
     " V) Y; S7 A- A- A1 C1 v
171. 
     
172. .计次循环尾 ()
     + {6 ~+ L0 L& _5 {& r
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     4 g% o, X/ W4 ^, W! Z1 G
175. .如果真结束
     9 E; ]# u6 X$ l" X/ O& U& s
176. 
     1 }; \0 O: T+ \6 F3 O/ k
177. 
     2 j2 u1 T3 ]% J& \
178. .如果真 (是否自动合并更新Cookie)
     1 @, `* n: k$ s( ]; u. u$ i' q
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     & k+ ]+ K( h& H8 X, F8 A  f1 x+ A! Q
181.     .如果真结束
     % u" L7 P: A* @& u- B; c0 A3 s! x
182. 
     6 {( ]5 ?' Y% B3 j. t9 }
183. .如果真结束
     * c; t6 R* R! m- f) e, L
184. 局_WinHttp.清除 ()
     ) {7 m5 S4 @  I" C" k8 f. _4 W
185. 线程_取消COM库 ()
     , \  d9 s/ K7 [9 q- t
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     ; ~( m! Q1 [  P4 m: }& ~
189. .参数 协议头, 文本型
     
190. .局部变量 位置, 整数型
     8 Y7 s1 n" K5 Q$ S4 }
191. .局部变量 结果, 文本型
     / P' Y9 W  H2 d) [
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     / q+ X" g) X7 C5 D
194. .如果真 (位置 ≠ -1)
     
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     ! t& Z- E* G) Y8 `, e
197. 返回 (删首尾空 (结果))
     
198. 
     ( N! p  H0 L. ?" o
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     ( ?- ^7 t4 N) [! T! w, Z! }9 A, P
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     
207. .如果真结束
       m7 m3 O  t5 Z9 q3 u
208. 返回 (删首尾空 (结果))

复制代码

4 Z4 ]  p% [( ^6 o0 V' q/ F
源码复制到易语言教程:

( H+ D3 x. s& F$ d9 E首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
; w. O) _$ @0 Y, w9 b. x. T: r

: W' m& c1 ?$ j* t8 ~然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码

即可插入易语言命令代码哦
3 u/ ]% L' J* g& O2 u& }; r1 @3 M
DLL源码复制到易语言教程：

- ?/ C) J# b7 K

$ V( ?: z7 P7 m
) E/ H# g+ ]' C2 Z- j* v

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

( A! P; ~- P) {8 h+ }9 B' K这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。