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

十万个为什么

易语言命令名称：
2 B8 G5 \' M" K网页_访问_对象

命令功能介绍:
- g* ^! F  L1 u
) K5 r) W& t0 v$ F/ e% m: k使用WinHttp的对象方式访问网页
6 A' D/ \9 c, O- u命令类别:精易模块命令


6 e' F5 P: K8 r$ \2 F& \2 w7 ^命令使用说明:
子程序名：网页_访问_对象
    使用WinHttp的对象方式访问网页
    返回值类型：字节集
6 K. F9 l: W( J, _4 H& }    参数<1>的名称为“网址”，类型为“文本型”。注明：完整的网页地址,必须包含http://或者https://。
# z7 t* }! }$ e, J. C    参数<2>的名称为“访问方式”，类型为“整数型”，允许接收空参数数据。注明：0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT。
' q2 ?8 ]6 V/ u* n! M2 }% Q    参数<3>的名称为“提交信息”，类型为“文本型”，允许接收空参数数据。注明："POST"专用   自动UTF8编码。
0 H# g0 ^# u( b0 {    参数<4>的名称为“提交Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：设置提交时的cookie。
7 ~( \: ~4 w, S4 S" B    参数<5>的名称为“返回Cookies”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的Cookie。
    参数<6>的名称为“附加协议头”，类型为“文本型”，允许接收空参数数据。注明：一行一个请用换行符隔开。
& M+ j" ?6 C  q1 o. g- m* b    参数<7>的名称为“返回协议头”，类型为“文本型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：返回的协议头。
3 t0 O# _4 {: |# z    参数<8>的名称为“返回状态代码”，类型为“整数型”，接收参数数据时采用参考传递方式，允许接收空参数数据。注明：网页返回的状态代码，例如：200；302；404等。
    参数<9>的名称为“禁止重定向”，类型为“逻辑型”，允许接收空参数数据。注明：默认不禁止网页重定向。
  ]: H3 t; G% V1 G6 d" h) p8 D    参数<10>的名称为“字节集提交”，类型为“字节集”，允许接收空参数数据。注明：提交字节集数据。
. b8 k3 E3 Y1 q1 n    参数<11>的名称为“代理地址”，类型为“文本型”，允许接收空参数数据。注明：代理地址，格式为 8.8.8.8:88。
    参数<12>的名称为“超时”，类型为“整数型”，允许接收空参数数据。注明：秒|默认为15秒,-1为无限等待。
    参数<13>的名称为“代理用户名”，类型为“文本型”，允许接收空参数数据。注明：用户名。
    参数<14>的名称为“代理密码”，类型为“文本型”，允许接收空参数数据。注明：密码。
& i/ P8 ]2 Z1 }- ~    参数<15>的名称为“代理标识”，类型为“整数型”，允许接收空参数数据。注明：代理标识，默认为1，0为路由器。
  i6 z8 S; s. s0 [0 z    参数<16>的名称为“对象继承”，类型为“对象”，允许接收空参数数据。注明：此处可自行提供对象，不再主动创建。
, c8 `4 c  `2 t& C; H    参数<17>的名称为“是否自动合并更新Cookie”，类型为“逻辑型”，允许接收空参数数据。注明：默认为真，自动合并更新。
$ c  r* k# D2 J) o3 b7 M    参数<18>的名称为“是否补全必要协议头”，类型为“逻辑型”，允许接收空参数数据。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。
    参数<19>的名称为“是否处理协议头大小写”，类型为“逻辑型”，允许接收空参数数据。注明：将协议头中的键名首字母处理为大写  默认为真。
5 v0 @) }4 ]  z





9 W: W7 u( i/ r3 I命令源码:
, g" b! Z& ^! t4 V; m0 N8 b' s

1. .版本 2
   
2. 
   5 O. q2 C8 L% E' y" o1 b  y% p+ \
3. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
4. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   . }8 v( r' B+ L+ B8 U' e! l
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
   
9. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
   & {7 B( I5 A7 D$ j
10. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
11. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    / u! \' p+ M' @
12. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    3 \: W/ c9 g  `0 H: N4 R0 \
13. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    & {) }6 e$ x2 C" f! r( P
14. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    7 @+ [! `$ j2 Z; t% ^: ]4 H
15. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    ) P: o4 y4 R/ t
16. .参数 代理用户名, 文本型, 可空, 用户名
    * j  y+ p; z5 o5 C' M8 j
17. .参数 代理密码, 文本型, 可空, 密码
    7 _, E# \# v- O# g7 w" }
18. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    - T  [1 i0 k# q
19. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
20. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    / K) Y4 C$ U4 ^5 m: g9 K
21. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
22. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    + L) J0 v& G; p
23. .局部变量 局_访问方式, 文本型
    : }) C5 z8 }+ \' _
24. .局部变量 局_WinHttp, 对象
    
25. .局部变量 局_发送协议头, 文本型, , "0"
    
26. .局部变量 局_返回协议头, 文本型, , "0"
    5 {/ D( U8 N5 I  B# s
27. .局部变量 局_计次, 整数型
    
28. .局部变量 局_网页数据, 字节集
    
29. .局部变量 局_变体提交, 变体型
    
30. 
    
31. .如果真 (是否为空 (是否自动合并更新Cookie))
    9 ]- _/ a7 f- m" X# S
32.     是否自动合并更新Cookie ＝ 真
    $ T( ]9 Q; ~- L1 d" o9 ?
33. .如果真结束
    
34. 
    
35. .如果真 (是否为空 (是否补全必要协议头))
    
36.     是否补全必要协议头 ＝ 真
    
37. .如果真结束
    0 S; _- |1 \3 Y; @6 h
38. 
    
39. .如果真 (是否为空 (是否处理协议头大小写))
    ( |1 t1 E* j; u! i, u
40.     是否处理协议头大小写 ＝ 真
    
41. .如果真结束
    
42. 
    0 ^! s  ^: w, D. V- t4 r' I) V8 K
43. 线程_初始化COM库 ()
    
44. 
    
45. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
46.     访问方式 ＝ 0
    
47. .如果真结束
    : S& `1 I( {6 U- t. A' h, o; _5 E
48. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    ) M% r* V4 ~4 s5 i
49. 
    
50. .判断开始 (是否为空 (对象继承))
    2 `# a# n: ~1 k1 i  {! A
51.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    ) P2 l% a8 [: V+ J4 o; P1 E- r
52.         返回 ({  })
    
53.     .如果真结束
    - p+ P/ t! ^9 B' w2 M+ k/ w. K
54. 
    2 X7 k5 F; f5 b+ ~
55. .默认
    
56.     局_WinHttp ＝ 对象继承
    ( c; j: d* |& z' t2 o% t
57. .判断结束
    
58. 
    
59. .如果真 (超时 ≠ -1)
    
60.     .如果 (超时 ＜ 1)
    
61.         超时 ＝ 15000
    
62.     .否则
    3 i/ @4 W+ r, r% m# Q- T
63.         超时 ＝ 超时 × 1000
    
64.     .如果结束
    
65.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    # ?! u: ^- O$ j: Z
66. .如果真结束
    / ]8 ]. K4 t0 B( S/ ]6 ?" V
67. 
    ; N3 ~' R1 K$ l4 F  p  ~) B
68. .如果真 (代理地址 ≠ “”)
    4 x" Q; q- B, u/ B- L
69.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    ! E: h6 W' D0 N2 X
70. .如果真结束
    
71. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    , I5 e% Z/ r3 L; G8 |% o- {
72. .如果真 (禁止重定向)
    ; i. [3 ?! S( Z
73.     局_WinHttp.写属性 (“Option”, 6, 0)
    
74. .如果真结束
    2 F. X  g# I: K" r0 `( O& }
75. 
    
76. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
77. 
    , J7 I! _% |" `
78. 
    . w1 z  @  Y; z+ L; _
79. .如果真 (是否补全必要协议头)
    0 w1 ~7 ]+ _: k( I
80.     .如果真 (寻找文本 (附加协议头, “Accept:”, , 真) ＝ -1)
    ) p  E) z+ a3 U
81.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”
    # H# u( o7 r7 Y9 R" u% @
82.     .如果真结束
    
83. 
    & O! W0 D7 Z; |/ x# R
84.     .如果真 (寻找文本 (附加协议头, “Referer:”, , 真) ＝ -1)
    ; F5 P5 E5 T6 k% a
85.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
    ( g2 U: q$ W5 ]2 L/ A$ A, w" H5 j8 Z
86.     .如果真结束
    5 L( e, m" }9 i
87. 
    0 r/ i$ O9 |9 U3 C2 C
88.     .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 真) ＝ -1)
    : f  G9 H+ k& B9 t) N
89.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
    * U3 ]5 h+ L6 u4 T8 N. `  q
90.     .如果真结束
    6 R: Z9 W+ r4 h$ T% K0 k
91. 
    ; q9 e1 Y+ a: b7 ]
92.     .如果真 (寻找文本 (附加协议头, “User-Agent:”, , 真) ＝ -1)
    
93.         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
    
94.     .如果真结束
    + ]+ V# T) h- w" ~3 g/ `
95. 
    
96.     .如果真 (访问方式 ＝ 1)
    ) H) t6 V/ c; D+ m" E+ X
97.         .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 真) ＝ -1)
    + Y/ t& x" |+ \* x; ^  Y4 B
98.             附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
    ' }, m, k! N1 v9 Z* Y# r# a
99.         .如果真结束
    
100. 
     
101.     .如果真结束
     ( N; |) F3 Q% X0 g
102. 
     ; P! Y) ^9 H# s! F( T% J- K' k
103. .如果真结束
     0 j, ]+ l  `! z1 ^4 c
104. 
     
105. .如果真 (是否处理协议头大小写)
     7 O! k& G5 j  q: l6 q
106.     附加协议头 ＝ 网页_处理协议头 (附加协议头)
     ' D1 E5 R. R) t4 v/ L/ l5 N" ?/ n6 F
107. .如果真结束
     
108. 
     
109. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     ( m( I% ?0 i$ ?
110.     .如果真 (是否为空 (代理标识))
     
111.         代理标识 ＝ 1
     1 ]1 T; s8 L9 F6 Q7 E
112.     .如果真结束
     
113.     ' 局_WinHttp.方法 (“SetProxyCredentials”, 代理用户名, 代理密码, 代理标识)
     
114.     .如果真 (代理标识 ＝ 1)
     
115.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     1 o' \" p0 M3 S
116.     .如果真结束
     ; `  Y7 D7 w$ w! u; ~. p" k9 d; {
117. 
     
118. .如果真结束
     
119. 
     
120. .如果真 (取反 (是否为空 (提交Cookies)))
     0 u6 k( ~$ }! T
121.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     3 \9 U1 p- @7 I9 M* Y1 {
122.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
123.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
124.         .如果真结束
     
125. 
     " y9 l: m+ }, m" I  P7 L6 f3 j% |
126.     .如果真结束
     
127.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     6 m5 \8 A; A9 \; I/ }/ o: k2 u
128. .如果真结束
     
129. 
     / v' N6 z' }; p# I( q
130. 
     
131. .判断开始 (寻找文本 (附加协议头, #换行符, , 假) ＝ -1)
     * o2 J: O* A+ E- ?, ?5 C
132.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (附加协议头), 内部_协议头取值 (附加协议头))
     2 S  g& t: G8 I6 b  \
133. .默认
     9 a: Q9 C" h. _& F) I6 [
134.     局_发送协议头 ＝ 分割文本 (附加协议头, #换行符, )
     
135.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
136.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     $ ~2 E$ B) W" g
137.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
138.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     7 P, ^5 F4 K# @2 B
139.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
140.                 .如果真结束
     
141. 
     , ^' e6 N$ f& C* I
142.             .如果真结束
     ! K4 E9 ~6 Y7 O7 J$ n
143. 
     2 i  W5 J9 g) `; I( X
144.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     4 D/ |$ G; G# T+ A& X! g( P
145.         .如果真结束
     
146. 
     
147.     .计次循环尾 ()
     : P; I+ h& T/ K8 t! |( h
148. .判断结束
     ( j+ y: q6 P" G0 o3 [" e8 `' L5 p
149. 
     
150. .判断开始 (字节集提交 ＝ {  })
     ) m  S1 E3 Y5 V) {4 {9 u
151.     局_WinHttp.方法 (“Send”, 提交信息)
     , y9 N4 C/ ]4 U0 F
152. .默认
     
153.     局_变体提交.赋值 (字节集提交, )
     
154.     局_WinHttp.方法 (“Send”, 局_变体提交)
     - |: G+ t& U& I
155. .判断结束
     6 @3 C3 l2 q  j0 C1 V7 ^
156. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     1 n- l3 p$ H6 h) @1 J  T# I
157. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     7 _4 ?7 \" q$ V/ J
158. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
159. 局_WinHttp.读文本属性 (“StatusText”, )
     
160. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
161. 返回Cookies ＝ “”
     
162. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     5 h2 @4 u; s! S' y6 S4 Y0 l
163.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
164.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     ; ^5 W8 c0 ?% w4 ]
165.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
166.         .默认
     
167.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     9 M- O9 v; p8 {- m, z9 V2 V
168.         .判断结束
     % E7 I1 [' z" _4 s0 h# B: }* Q
169. 
     
170.     .如果真结束
     & r; Q3 q3 V4 G3 A; [) U( Q6 J
171. 
     
172. .计次循环尾 ()
     
173. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     * d6 l. g6 G! @7 V" x' T
174.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     : n" z0 s5 e1 g. }
175. .如果真结束
     % h2 o5 [$ c6 _  Z
176. 
     
177. 
     
178. .如果真 (是否自动合并更新Cookie)
     
179.     .如果真 (取反 (是否为空 (提交Cookies)))
     $ j) O! ^; A. O
180.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     # F. Y  T; w. S9 M) [% {/ m
181.     .如果真结束
     # e( Q* i; E; y$ l
182. 
     % b0 D# t9 r8 z8 j" _; l) `
183. .如果真结束
     $ I% @/ z' r: _9 J2 E5 U$ |
184. 局_WinHttp.清除 ()
     7 I) b; i5 q( W
185. 线程_取消COM库 ()
     
186. 返回 (局_网页数据)
     
187. 
     8 K4 F4 y9 u1 t: ]3 x# B" I
188. .子程序 内部_协议头取名, 文本型
     
189. .参数 协议头, 文本型
     1 f1 T( n# W1 r2 O% Y: b+ X
190. .局部变量 位置, 整数型
     5 G. u- U7 o- q5 n
191. .局部变量 结果, 文本型
     1 t/ R* K2 b. v$ F# h: D
192. 
     
193. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     1 a  d# o0 [# J& [' c
194. .如果真 (位置 ≠ -1)
       D8 G8 q5 l1 ?- U
195.     结果 ＝ 取文本左边 (协议头, 位置 － 1)
     $ H' j9 Q9 ~! i% H
196. .如果真结束
     " _' ^; L# n7 s( a; @/ e
197. 返回 (删首尾空 (结果))
     - }5 R" k  G2 E+ w
198. 
     4 O  e- [" ^2 C) R: C) i( y! k
199. .子程序 内部_协议头取值, 文本型
     
200. .参数 协议头, 文本型
     
201. .局部变量 位置, 整数型
     
202. .局部变量 结果, 文本型
     
203. 
     
204. 位置 ＝ 寻找文本 (协议头, “:”, , 假)
     - X' l8 D2 ]1 S9 B& M( r. t
205. .如果真 (位置 ≠ -1)
     
206.     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
     5 D+ ~7 g2 Q2 ]& m2 ]- i: k2 X* v
207. .如果真结束
     7 D% `5 Z, r. k6 y( j3 U
208. 返回 (删首尾空 (结果))

复制代码

' i* {9 ]1 e$ N+ Q% e8 f: D源码复制到易语言教程:

% m% q1 G: H# }' J" `首先复制上面的命令源码.到剪辑板.然后来到易语言的程序集界面如下图所示

) f( W. Y/ h1 I" _* g
然后拖动鼠标把程序集名-窗口程序集.选中.然后粘贴上面的代码
; G% d  H" h7 A  }  P
即可插入易语言命令代码哦

DLL源码复制到易语言教程：


4 f! @; H- q0 c8 \
6 n/ t6 P* e  h# f' S: `, T
$ b5 o& D/ w- v! o6 K+ g" b; x

apgaj

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

qq1803354652

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

a406531859

好像很复杂的啊·

20010708

看的我头晕眼花。

chenyangph

太复杂了，有点搞不懂

15052556145

好像很复杂的啊·*

byy1314520

楼主辛苦了

byy1314520

会好好学习的

Acoyi

# e0 c3 m( r; S5 H+ G* g这个帖子不回对不起自己！我想我是一天也不能离开易语言吧。