Question

vb webbrowser控件怎么取网页中以下控件（表格）的值？

（图文：
<td headers="yui-dt7-th-Code " class="yui-dt7-col-Code yui-dt-col-Code yui-dt-sortable yui-dt-resizeable" id="yui-gen51">..</td>
<div class="yui-dt-liner" id="yui-gen50"> C0000631419 </div> </td>

<td headers="yui-dt7-th-CustomerName " class="yui-dt7-col-CustomerName yui-dt-col-CustomerName yui-dt-sortable yui-dt-resizeable" id= "yui-gen49">
<div class="yui-dt-liner" id="yui-gen48"> 深圳XXXX公司 </div> </td>

即 如图片一其中表格的内容值如何获取，如 C0000631419 与 深圳xxx公司，这是变量，如何取这里面他们的值（字符）。

请不要用取网页源代码，再从中截取字符患的方法，这个易出错
（如WebBrowser1.Document.body.InnerText这种）

能不能像以下的这种方法？？？

Set IDoc = WebBrowser2.Document
' Dim Acollection As IHTMLElementCollection

Set Acollection = IDoc.All.tags("input")
Dim s3 As String
Dim s33 As String
For I = 0 To Acollection.length - 1
s3 = Acollection.Item(I).Type
s33 = Acollection.Item(I).Name
Debug.Print s33
If s33 = "Decisionmaker" Then Text1.Text = Acollection.Item(I).Value
头痛的是 id="yui-gen48"，这些ID，都不是 固定的

应该是说不要用取网页源代码，然后再从源代码中查找字符的方法，那种方法我用来取消息用过，很易出错，并终结程序，所以我后来还做了自动保存。

上面写错了，是不用text1.text=WebBrowser1.Document.body.Innerhtml 这种
不是WebBrowser1.Document.body.InnerText。





Answer 1

vb webbrowser控件取得网页中的控件的值的方法是：
set vDoc=webbrowser1.document
msgbox vdoc.all.yui-gen50.InnerText

msgbox vdoc.all.yui-gen48.InnerText

Answer 2

模拟鼠标移动选中，复制

Answer 3

这个可以帮你

http://bbs.csdn.net/topics/230017570

Answer 4

没办法，或者从服务考虑也许可以用api

追问

如何用呢？

这其实就是取之间的值，取不到吗？

追答

用正则表达式写个程序匹配，百度教程很多，实在不行就找人做