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

十万个为什么

易语言命令名称：
# m7 @1 L7 L" X5 v$ D) y- Z网页_访问_对象
- E; n  x, P( w1 K& j" u
! L# F0 T! c$ n- |# B3 n# K命令功能介绍:
: A& u7 s1 w4 J; s' `
" A# g4 R  _# D0 S使用WinHttp的对象方式访问网页
2 B/ \' ^, H' Y! U* l0 i命令类别:精易模块命令

* b4 Q! Y/ G# w4 n; K4 J
6 m" @* Y5 S4 t! K: a命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
; o7 x/ ^% Y" I; ]1 p8 M/ h    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
: }, z8 }0 ~7 w& J- Q    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
. l( j' o0 E+ u$ x6 G* G' |* w    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
' W. t; u# ?+ p/ f" K) q: K* w    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
5 P  O$ n% R. W4 U( o/ F5 j    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
' u1 s: e( N6 H& @% H/ M    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
7 L3 U. Z/ |' @4 w! M    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
  r9 Z0 ^" E, ]! T3 o. |# o    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。

3 f7 p# Y0 D6 B2 {/ s: W( {6 @


, _5 M: V+ x4 r2 s

9 r3 k; r6 L; I命令源码:

) a$ c: ?( B8 z9 l" L3 d1 C

1. .版本 2
   
2. 
   % ^( Z9 \' l( q* q
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   1 q" V) I% B7 A0 e  u+ O  ~' L) H
5. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   5 e# `5 V/ }  X9 d+ d
6. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   . ?" I3 ~+ m! l9 `9 Z5 y
7. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   # C/ G- a; B0 S6 d& s
8. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   # C& }3 K6 A# }. I4 \; K
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    + B7 g& T7 x& s3 a
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
16. .参数 代理用户名, 文本型, 可空, 用户名
    4 \  j4 z" j  Q1 z( E& y
17. .参数 代理密码, 文本型, 可空, 密码
    
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    6 c3 z- h7 }/ X, \
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    & s5 p/ ?( j! J6 Q6 W: r' i
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
23. .局部变量 局_访问方式, 文本型
    # r$ e' T2 M5 X1 ~2 Q! v- d$ L
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    # E' ~3 F( h/ J. u$ |4 d% y: Z" y
26. .局部变量 局_返回协议头, 文本型, , "0"
    
27. .局部变量 局_计次, 整数型
    : t% b' X* p) Y9 R; ^" x6 P
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    $ o8 _/ ~9 l# ^$ s8 U- P5 F# [
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    
32.     是否自动合并更新Cookie ＝ 真
    / w) o0 z! V5 n1 `/ ]8 |6 ~
33. .如果真结束
    " Q$ V9 R, ^! M* V6 I# B* E
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    & ~% K- o# g( r! }& n! l' m' b5 s& r% N
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    
38. 
    : `2 g. [$ q. f3 I; ~2 S# M
39. .如果真 (是否为空 (是否处理协议头大小写))
    
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    ; ^- c& O( L) K+ p" D
42. 
    ( I' Z7 c2 I  \4 F7 b
43. 线程_初始化COM库 ()
    
44. 
    ; k, Y; B8 Q# e  n+ B9 }" X
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    ( w5 c6 k! p3 D& b0 V
47. .如果真结束
    
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
49. 
    
50. .判断开始 (是否为空 (对象继承))
    $ ?, {3 i1 \3 v1 p
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    8 a* n0 b7 ]  y
52.         返回 ({  })
    
53.     .如果真结束
    . R2 J! ~: ]# M/ G+ Z
54. 
      j+ O& v: ~4 l7 B
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    
57. .判断结束
    0 j. k% a  F  x5 e( M3 n6 G8 {; ^
58. 
    6 W9 g5 Z* u" G
59. .如果真 (超时 ≠ -1)
    * `4 i3 n; O$ |  b* l$ ~
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    4 Z0 t# I$ k% x
62.     .否则
    
63.         超时 ＝ 超时 × 1000
      O9 e3 Q- ]% Q  t/ c- w+ e
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    ; N, O& J; f; e* j' L# i2 a
66. .如果真结束
    
67. 
    
68. .如果真 (代理地址 ≠ “”)
    
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    ' h' h( V4 m5 ^# K: t9 M* X
70. .如果真结束
    ) o7 y% t- F, i1 B0 A5 U, y, v
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    3 {& C0 f/ K9 {+ j/ V3 D! R
72. .如果真 (禁止重定向)
    
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    
75. 
    8 c* X3 f: s$ R; j& H6 t' L
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    ' r# W0 F$ r# B& v0 G# H
78. 
    ! B3 L* N1 i0 S0 p; e0 [, M$ m
79. .如果真 (是否补全必要协议头)
    * ?$ k6 ?0 E2 F9 ]/ u* C
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    % X5 z" x% x" X" `/ g) p: Q& O
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    1 I) U, `5 ?- f4 Y4 x& n
82.     .如果真结束
    
83. 
    " e" }: A3 v& _( ~$ j5 e. M
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    " |* N6 v8 C' N- `' q& r, T
86.     .如果真结束
      d5 {5 _! o: a
87. 
    , K. o* r4 P1 j. ]. |& E
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    4 T% s2 q* I1 `, L; d% M
90.     .如果真结束
    
91. 
    3 [# \7 S, R. |4 w. e
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    7 ^4 R, l) w. `
94.     .如果真结束
    0 U' _) v  @. _+ q  g& R
95. 
    , j# a9 L2 `0 v% ]2 y
96.     .如果真 (访问方式 ＝ 1)
    
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    " v4 t0 ?- Q0 R3 w
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    
99.         .如果真结束
    9 I0 k1 a1 ]6 M* f+ j8 E  n: q
100. 
     
101.     .如果真结束
     ) J* m4 x, M) ~
102. 
     ! y6 l0 u8 t, d! [! U
103. .如果真结束
     % N- H' P0 N7 r1 I/ F' e
104. 
     
105. .如果真 (是否处理协议头大小写)
     : r0 f1 x4 ?7 l; G6 ^  P3 m
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     2 x! p! j& U8 K7 D2 ]' b5 Z
107. .如果真结束
     ! H6 {4 b* V1 E* h  |" w4 `
108. 
     5 P5 V& O+ B. H; N
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
110.     .如果真 (是否为空 (代理标识))
     " O; S3 @+ n5 z3 {0 c: @
111.         代理标识 ＝ 1
     
112.     .如果真结束
     ! w$ y& M0 J3 q6 c6 Y
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     8 F2 G6 C! c1 ^$ [
116.     .如果真结束
     ! _0 `1 q& n' `7 h% y- {- Y8 R
117. 
     * ?0 p+ \* V' R3 S+ M+ o  L
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     9 s6 W  M% f; W6 N
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     + w) U* b/ n- `8 ^7 o' r6 a( {
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     6 ^% L- K/ |2 {# Z
124.         .如果真结束
     
125. 
     6 C$ U6 f" g  M: P0 N5 _
126.     .如果真结束
     ( R* |/ m5 ~* f; C. }* @
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
128. .如果真结束
     2 ]" L2 @& S+ }7 @
129. 
     . _6 @8 E/ g3 |9 Z5 O- @
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     - l& x4 s- ?( g6 l5 D7 j  I: t
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     
133. .默认
     
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     + A5 s% |2 q: r: W: E
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     0 g$ s3 g& y. C1 Z' u, L; ^
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     
141. 
     $ {, O4 @6 Z' F+ ~/ }+ K* [
142.             .如果真结束
     
143. 
     8 ]5 Z9 Q4 s  b# p! A/ T4 }
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
145.         .如果真结束
     6 [& G/ S- t! s4 N
146. 
     8 ?$ Q9 _- X4 |+ H/ z  t
147.     .计次循环尾 ()
     
148. .判断结束
     
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     6 S1 h; ^' q. z* p8 P* i. X
151.     局_WinHttp.方法 (“Send”, 提交信息)
     
152. .默认
     ' @1 p" P. g/ S. X
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     6 T; Q" {& U- R& `5 M2 }  |
155. .判断结束
     0 @- n( s6 K: u: z
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     ' T# I% h3 S7 X  ^" e, e' C
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     . A7 R" m# r2 q( A, ^+ `% }
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     : H" Y" F) v5 V; j/ Y/ I% J! O: g
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     0 Z; n# Y7 ]: O6 a0 h
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
168.         .判断结束
     . \$ o) x, t+ i  m5 X
169. 
     ! |: P) P+ O) A6 I6 a
170.     .如果真结束
     
171. 
     0 h' j) f; \1 w4 M0 L6 ~8 g
172. .计次循环尾 ()
     ; H! i; {2 ?* h0 {0 v9 Q
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     ; _0 ~4 A4 X$ _5 z% h
175. .如果真结束
     
176. 
     + L3 d$ d5 m$ u1 L' k
177. 
       h7 J8 S2 o/ \% P+ B8 b5 l  u; [
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     4 f* S5 o# N+ Y8 n1 b* x  H
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     % t$ |* t: B- }4 f) T5 A
181.     .如果真结束
     # `; A- Q+ i3 ~" C
182. 
     
183. .如果真结束
     
184. 局_WinHttp.清除 ()
     
185. 线程_取消COM库 ()
     5 |) x$ @3 N7 D- m$ `
186. 返回 (局_网页数据)
     
187. 
     
188. .子程序 内部_协议头取名, 文本型
     6 J+ A' @* Z: C6 h" F( t; R
189. .参数 协议头, 文本型
     + l7 D# \1 j+ h2 ]
190. .局部变量 位置, 整数型
     3 q  _0 H! A8 B+ {% B2 O0 F$ f3 l
191. .局部变量 结果, 文本型
     
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
194. .如果真 (位置 ≠ -1)
     : Y6 S6 K2 P& P, J" O3 ]
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     
196. .如果真结束
     " S% A" v& S" x2 X9 i
197. 返回 (删首尾空 (结果))
     
198. 
     
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     , c4 S4 e  p  c1 r3 t
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     & y+ p' h8 |  Z3 R
203. 
     + T' {9 c7 }5 j! c5 B
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     , |0 c3 k  C+ g; K( m4 F3 [
207. .如果真结束
     / |, G8 t0 c. [. g! s% U
208. 返回 (删首尾空 (结果))

复制代码

) z; {9 Q& P0 u9 d
源码复制到易语言教程:
5 L: c$ V# ]% N+ I! _4 c$ e
* w+ M0 ]0 _5 T5 S8 y首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示
+ i% W- z% b9 a9 |
( a! j# k; a% g2 K# u
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
; A) g) |+ ?! c! ?9 ~8 v
4 V, |# B" z+ e2 O* @: j8 F; a即可插入易语言命令代码哦
/ E+ y  e6 V7 x% R, ~$ s5 y! f
DLL源码复制到易语言教程：
% {2 J- x, E" |/ g



0 z( n7 G' Y6 i% R

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·
3 n( t" j/ ?2 k: Z% Z

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

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