ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 21532|回复: 37

[讨论] 从零开始学网页控制与查询

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-5-18 06:21 | 显示全部楼层 |阅读模式
本帖最后由 jiminyanyan 于 2012-5-19 14:29 编辑

用类似的方法。把看的懂的帖子看一遍,看不懂的帖子也硬着头皮看一遍
------------------------------------------------------------------------------------------------
http://club.excelhome.net/thread-670889-1-1.html
在看xmyjk 大侠的帖子。
  1. Sub Gotochaxun()
  2. Dim intnum As Integer
  3. Dim i As Integer
  4. Dim strdaima As String
  5. Dim strhaoma As String

  6. intnum = Application.WorksheetFunction.CountA([A:A])
  7. With CreateObject("InternetExplorer.Application")
  8. .Visible = True
  9. .navigate "http://www.xm-n-tax.gov.cn/nsfw/fpcx/fpzwcx/"
  10. Do Until .ReadyState = 4
  11. DoEvents
  12. Loop
  13. For i = 1 To intnum - 1
  14. strdaima = Cells(i + 1, 1).Value
  15. strhaoma = Cells(i + 1, 2).Value
  16. .document.All("szsat.fpzw.fpdm").Value = strdaima
  17. .document.All("szsat.fpzw.fphm").Value = strhaoma
  18. .document.form1.submit
  19. Next i
  20. End With
  21. End Sub
复制代码
document.All("szsat.fpzw.fpdm").Value
.document.All("szsat.fpzw.fphm").Value
这两个还不知是哪里找来的,先放在这里吧。有朋友路过,请告知一下。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-18 06:27 | 显示全部楼层
document.All("szsat.fpzw.fpdm").Value
.document.All("szsat.fpzw.fphm").Value
--------------------------------------------------------
szsat.fpzw.fpdm,szsat.fpzw.fphm刚学了一下查看网页源代码的方法,网页源代码里有这两个。

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-18 13:44 | 显示全部楼层
http://club.excelhome.net/thread-861226-1-1.html
求助:如何找到“登录”键
  1. Sub Goto163()
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .navigate "http://mail.163.com"
  5.         Do Until .Readystate = 4
  6.             DoEvents
  7.         Loop
  8.         .Document.All("username").Value = "myusername"
  9.         .Document.All("password").Value = "mypassword"
  10.         .Document.All.tags("button")(0).Click
  11.     End With
  12. MsgBox "Ok"
  13. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2012-5-18 14:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
学习了,谢谢

TA的精华主题

TA的得分主题

发表于 2012-5-18 17:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有的网页登录键名不一样需要手动调整一下,邮件打开网页看代码即可

TA的精华主题

TA的得分主题

发表于 2012-5-19 13:58 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
你好,可以先看看w3school,html以及html dom的资料。

或者参考:网页分析不求人 附 分析工具 实例
http://club.excelhome.net/thread-377077-1-1.html

其次,可以辅助很多工具,例如FIREBUG,ie webdeveloper


QQ截图20120519135848.png

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-19 14:28 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
xmyjk 发表于 2012-5-19 13:58
你好,可以先看看w3school,html以及html dom的资料。

或者参考:网页分析不求人 附 分析工具 实例

谢谢指导......

TA的精华主题

TA的得分主题

发表于 2012-5-19 15:34 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
版块的置顶的收藏贴里有关于网页方面的知识

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-5-20 10:12 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
网上看到的资料.
  1. xmlHttpRequest的status的值的含义
  2. 虽然常写ajax方面的东西,但是很少去专门了解xmlHttpRequest的status各个值的含义,只是在用到时Google一下,下面将他人已总结过的转载一下,学习学习。
  3. xmlHttpRequest对象的status代表当前http请求的状态,是一个长整型数据,现在介绍一下它的含义。

  4. http请求状态及其含义表

  5. 1xx - 信息提示
  6. 100 - 初始的请求已经接受,客户应当继续发送请求的其余部分。(HTTP 1.1新)
  7. 101 - 服务器将遵从客户的请求转换到另外一种协议。(HTTP 1.1新)
  8. 2xx - 成功
  9. 200 - OK 一切正常,对GET和POST请求的应答文档跟在后面。
  10. 201 - Created 服务器已经创建了文档,Location头给出了它的URL。
  11. 202 - Accepted 已经接受请求,但处理尚未完成。
  12. 203 - Non-Authoritative Information 文档已经正常地返回,但一些应答头可能不正确,因为使用的是文档的拷贝,非权威性信息(HTTP 1.1新)。
  13. 204 - No Content 没有新文档,浏览器应该继续显示原来的文档。如果用户定期地刷新页面,而Servlet可以确定用户文档足够新,这个状态代码是很有用的。
  14. 205 - Reset Content 没有新的内容,但浏览器应该重置它所显示的内容。用来强制浏览器清除表单输入内容(HTTP 1.1新)。
  15. 206 - Partial Content 客户发送了一个带有Range头的GET请求,服务器完成了它(HTTP 1.1新)。
  16. 3xx - 重定向
  17. 300 - Multiple Choices 客户请求的文档可以在多个位置找到,这些位置已经在返回的文档内列出。如果服务器要提出优先选择,则应该在Location应答头指明。
  18. 301 - Moved Permanently 客户请求的文档在其他地方,新的URL在Location头中给出,浏览器应该自动地访问新的URL。
  19. 302 - Found 类似于301,但新的URL应该被视为临时性的替代,而不是永久性的。注意,在HTTP1.0中对应的状态信息是“Moved Temporatily”。出现该状态代码时,浏览器能够自动访问新的URL,因此它是一个很有用的状态代码。注意这个状态代码有时候可以和301替换使用。例如,如果浏览器错误地请求 http://host/~user (缺少了后面的斜杠),有的服务器返回301,有的则返回302。严格地说,我们只能假定只有当原来的请求是GET时浏览器才会自动重定向。请参见307。
  20. 303 - See Other 类似于301/302,不同之处在于,如果原来的请求是POST,Location头指定的重定向目标文档应该通过GET提取(HTTP 1.1新)。
  21. 304 - Not Modified 客户端有缓冲的文档并发出了一个条件性的请求(一般是提供If-Modified-Since头表示客户只想比指定日期更新的文档)。服务器告诉客户,原来缓冲的文档还可以继续使用。
  22. 305 - Use Proxy 客户请求的文档应该通过Location头所指明的代理服务器提取(HTTP 1.1新)。
  23. 307 - Temporary Redirect 和302(Found)相同。许多浏览器会错误地响应302应答进行重定向,即使原来的请求是POST,即使它实际上只能在POST请求的应答是303时才能重定向。由于这个原因,HTTP 1.1新增了307,以便更加清除地区分几个状态代码:当出现303应答时,浏览器可以跟随重定向的GET和POST请求;如果是307应答,则浏览器只能跟随对GET请求的重定向。(HTTP 1.1新)
  24. 4xx - 客户端错误
  25. 400 - Bad Request 请求出现语法错误。
  26. 401 - Unauthorized 访问被拒绝,客户试图未经授权访问受密码保护的页面。应答中会包含一个WWW-Authenticate头,浏览器据此显示用户名字/密码对话框,然后在填写合适的Authorization头后再次发出请求。
  27. 404 - Not Found 无法找到指定位置的资源。这也是一个常用的应答。
  28. 405 - Method Not Allowed 请求方法(GET、POST、HEAD、DELETE、PUT、TRACE等)对指定的资源不适用,用来访问本页面的 HTTP 谓词不被允许(方法不被允许)(HTTP 1.1新)
  29. 406 - Not Acceptable 指定的资源已经找到,但它的MIME类型和客户在Accpet头中所指定的不兼容,客户端浏览器不接受所请求页面的 MIME 类型(HTTP 1.1新)。
  30. 407 - Proxy Authentication Required 要求进行代理身份验证,类似于401,表示客户必须先经过代理服务器的授权。(HTTP 1.1新)
  31. 408 - Request Timeout 在服务器许可的等待时间内,客户一直没有发出任何请求。客户可以在以后重复同一请求。(HTTP 1.1新)
  32. 409 - Conflict 通常和PUT请求有关。由于请求和资源的当前状态相冲突,因此请求不能成功。(HTTP 1.1新)
  33. 410 - Gone 所请求的文档已经不再可用,而且服务器不知道应该重定向到哪一个地址。它和404的不同在于,返回407表示文档永久地离开了指定的位置,而404表示由于未知的原因文档不可用。(HTTP 1.1新)
  34. 411 - Length Required 服务器不能处理请求,除非客户发送一个Content-Length头。(HTTP 1.1新)
  35. 412 - Precondition Failed 请求头中指定的一些前提条件失败(HTTP 1.1新)。
  36. 413 – Request Entity Too Large 目标文档的大小超过服务器当前愿意处理的大小。如果服务器认为自己能够稍后再处理该请求,则应该提供一个Retry-After头(HTTP 1.1新)。
  37. 414 - Request URI Too Long URI太长(HTTP 1.1新)。
  38. 415 – 不支持的媒体类型。
  39. 416 – Requested Range Not Satisfiable 服务器不能满足客户在请求中指定的Range头。(HTTP 1.1新)
  40. 417 – 执行失败。
  41. 423 – 锁定的错误。
  42. 5xx - 服务器错误
  43. 500 - Internal Server Error 服务器遇到了意料不到的情况,不能完成客户的请求。
  44. 501 - Not Implemented 服务器不支持实现请求所需要的功能,页眉值指定了未实现的配置。
  45. 502 - Bad Gateway 服务器作为网关或者代理时,为了完成请求访问下一个服务器,但该服务器返回了非法的应答。 亦说Web 服务器用作网关或代理服务器时收到了无效响应。
  46. 503 - Service Unavailable 服务不可用,服务器由于维护或者负载过重未能应答。例如,Servlet可能在数据库连接池已满的情况下返回503。服务器返回503时可以提供一个Retry-After头。这个错误代码为 IIS 6.0 所专用。
  47. 504 - Gateway Timeout 网关超时,由作为代理或网关的服务器使用,表示不能及时地从远程服务器获得应答。(HTTP 1.1新) 。
  48. 505 - HTTP Version Not Supported 服务器不支持请求中所指明的HTTP版本。(HTTP 1.1新)。
  49. ----------------------------------------------------------------------------------------------------------------------------------------------
  50. Microsoft.XMLHttp组件的属性方法
  51. 一、使用步骤:
  52. 1、创建XMLHTTP对象 //需MSXML4.0支持
  53. 2、打开与服务端的连接,同时定义指令发送方式,服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普

  54. 通HTTP指令传送一样,可以用"GET"方法或"POST"方法指向服务端的服务网页。
  55. 3、发送指令。
  56. 4、等待并接收服务端返回的处理结果。
  57. 5、释放XMLHTTP对象

  58. 二、XMLHTTP方法:
  59. Open( bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword )
  60. bstrMethod:  数据传送方式,即GET或POST。
  61. bstrUrl:     服务网页的URL。
  62. varAsync:   是否同步执行。缺省为True,即同步执行,但只能在DOM中实施同步执行。用中一般将其置为False,即异步执行。
  63. bstrUser:    用户名,可省略。
  64. bstrPassword:用户口令,可省略。

  65. Send( varBody )
  66. varBody:指令集。可以是XML格式数据,也可以是字符串,流,或者一个无符号整数数组。也可以省略,让指令通过Open方法的URL参数代入。

  67. setRequestHeader( bstrHeader, bstrvalue )
  68. bstrHeader:HTTP 头(header)
  69. bstrvalue: HTTP 头(header)的值

  70. 如果Open方法定义为POST,可以定义表单方式上传:
  71. xmlhttp.setRequestHeader( "Content-Type", "application/x-www-form-urlencoded")

  72. 三、XMLHTTP属性:
  73. onreadystatechange:在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
  74. responseBody:    结果返回为无符号整数数组。
  75. responseStream:   结果返回为IStream流。
  76. responseText :    结果返回为字符串。
  77. responseXML:    结果返回为XML格式数据。
  78. 通过responseBody属性获得的内容需要下面这个函数转换为正常字符串,否则是乱码:
  79. Function bytes2BSTR(arrBytes)
  80. strReturn = ""
  81. arrBytes = CStr(arrBytes)
  82. For i = 1 To LenB(arrBytes)
  83. ThisCharCode = AscB(MidB(arrBytes, i, 1))
  84. If ThisCharCode < &H80 Then
  85. strReturn = strReturn & Chr(ThisCharCode)
  86. Else
  87. NextCharCode = AscB(MidB(arrBytes, i+1, 1))
  88. strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
  89. i = i + 1
  90. End If
  91. Next
  92. bytes2BSTR = strReturn
  93. End Function


  94. 四、示例:
  95. 以下是代码片段:
  96. < script language="javascript" >  
  97. function getDatal(url){  
  98.     var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP.4.0");//创建XMLHTTPRequest对象,需MSXML4.0支持  
  99. ["MSXML2.XMLHTTP.4.0","MSXML2.DOMDocument.4.0"] 
  100.     xmlhttp.open("GET",url,false,"","");   //使用HTTP GET初始化HTTP请求  
  101.     xmlhttp.send("");                   //发送HTTP请求并获取HTTP响应  
  102.     return xmlhttp.responseXML;         //获取XML文档  
  103. }  
  104.  

  105. 常见问题:
  106. msxml3.dll 错误 '80070005' 拒绝访问。 代码如下:
  107. PostUrl=http://www.exponow.cn/
  108. Server.ScriptTimeOut=20
  109. Set oXMLHttp = createObject("Microsoft.XMLHTTP")
  110. Call oXMLHttp.Open("get", PostUrl, false)
  111. Call oXMLHttp.Send("")
  112. sHtmlStr = oXMLHttp.responseBody
  113. Set oXMLHttp = nothing

  114. 初步判定可能是打开的页面有跳转的原因,解决办法是用
  115. MSXML2.ServerXMLHTTP
  116. 替换掉
  117. Microsoft.XMLHTTP
  118. 即可解决。

  119. 另外在CSDN上找到这么一段代码
  120. Private Sub Command1_Click()
  121. Dim PostUrl$, ServerURL
  122. Dim Mail1 As Object
  123. Dim AA$
  124. PostUrl = "http://www.exponow.cn/"
  125. Set Mail1 = CreateObject("CDO.Message")
  126. Mail1.CreateMHTMLBody PostUrl, 31
  127. AA = Mail1.HTMLBody
  128. Text1.Text = AA
  129. Set Mail1 = Nothing
  130. End Sub


  131. 试了一下,也可以用,拷过来收藏

  132. GET与POST方法的区别:

  133. 什么时候用get请求,什么时候用post方式请求呢? 在做回答前我们首先要了解get和post的区别.

  134.         1、 get是把参数数据队列加到提交表单的ACTION属性所指的URL中,值和表单内各个字段一一对应,在URL中可以看到。post是通过HTTP post机制,将表单内各个字段与其内容放置在HTML HEADER内一起传送到ACTION属性所指的URL地址。用户看不到这个过程。

  135.         2、 对于get方式,服务器端用Request.QueryString获取变量的值,对于post方式,服务器端用Request.Form获取提交的数据。两种方式的参数都可以用Request来获得。

  136.         3、get传送的数据量较小,不能大于256KB。post传送的数据量最大为4M,一般被默认为不受限制。但理论上,因服务器的不同而异.

  137.         4、get安全性非常低,post安全性较高。

  138.         5、 <form method="get" action="a.asp?b=b">跟<form method="get" action="a.asp">是一样的,也就是说,method为get时action页面后边带的参数列表会被忽视;而<form method="post" action="a.asp?b=b">跟<form method="post" action="a.asp">是不一样的。

  139.         另外
  140.         Get请求有如下特性:它会将数据添加到URL中,通过这种方式传递到服务器,通常利用一个问号?代表URL地址的结尾与数据参数的开端,后面的参数每一个数据参数以“名称=值”的形式出现,参数与参数之间利用一个连接符&来区分。
  141. Post请求有如下特性:数据是放在HTTP主体中的,其组织方式不只一种,有&连接方式,也有分割符方式,可隐藏参数,传递大批数据,比较方便。

  142.         通过以上的说明,现在我们大致了解了什么时候用get什么时候用post方式了吧,对!当我们在提交表单的时候我们通常用post方式,当我们要传送一个较大的数据文件时,需要用post。当传递的值只需用参数方式(这个值不大于256KB)的时候,用get方式即可。

  143.         现在我们再看看通过URL发送请求时,get方式和post方式的区别。用下面的例子可以很容易的看到同样的数据通过GET和POST来发送的区别, 发送的数据是 username=张三 :
  144. GET 方式, 浏览器键入 http://localhost?username=张三

  145. GET /?username=%E5%BC%A0%E4%B8%89 HTTP/1.1
  146. Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*
  147. Accept-Language: zh-cn
  148. Accept-Encoding: gzip, deflate
  149. User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)
  150. Host: localhost
  151. Connection: Keep-Alive

  152. POST 方式:

  153. POST / HTTP/1.1
  154. Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*
  155. Accept-Language: zh-cn
  156. Content-Type: application/x-www-form-urlencoded
  157. Accept-Encoding: gzip, deflate
  158. User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)
  159. Host: localhost
  160. Content-Length: 28
  161. Connection: Keep-Alive

  162. username=%E5%BC%A0%E4%B8%89

  163. 区别就是一个在 URL 请求里面附带了表单参数和值, 一个是在 HTTP 请求的消息实体中。

  164. 比较一下上面的两段文字, 我们会发现 GET 方式把表单内容放在前面的请求头中, 而 POST 则把这些内容放在请求的主体中了, 同时 POST 中把请求的 Content-Type 头设置为 application/x-www-form-urlencoded. 而发送的正文都是一样的, 可以这样来构造一个表单提交正文:
  165. encodeURIComponent(arg1)=encodeURIComponent(value1)&encodeURIComponent(arg2)=encodeURIComponent(value2)&.....

  166. 注: encodeURIComponent 返回一个包含了 charstring 内容的新的 String 对象(Unicode 格式), 所有空格、标点、重音符号以及其他非 ASCII 字符都用 %xx 编码代替,其中 xx 等于表示该字符的十六进制数。 例如,空格返回的是 "%20" 。 字符的值大于 255 的用 %uxxxx 格式存储。参见 JavaScript 的 encodeURIComponent() 方法.

  167. 在了解了上面的内容后我们现在用ajax的XMLHttpRequest对象向服务器分别用GET和POST方式发送一些数据。

  168. GET 方式
  169. var postContent ="name=" + encodeURIComponent("xiaocheng") + "&email=" + encodeURIComponent("xiaochengf_21@yahoo.com.cn");
  170. xmlhttp.open("GET", "somepage" + "?" + postContent, true);
  171. xmlhttp.send(null);


  172. POST 方式

  173. var postContent ="name=" + encodeURIComponent("xiaocheng") + "&email=" + encodeURIComponent("xiaochengf_21@yahoo.com.cn");
  174. xmlhttp.open("POST", "somepage", true);
  175. xmlhttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
  176. //xmlhttp.setRequestHeader("Content-Type", "text/xml"); //如果发送的是一个xml文件
  177. xmlhttp.send(postContent);
复制代码

评分

3

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-5-20 10:42 | 显示全部楼层
收藏学习之 Get Post
网页中的函数的教程有没啊
我每次都看得眼晕 Html语言每次想学但是下不下决心来
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-15 08:19 , Processed in 0.045567 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表