在vb.net中使用webbrowser控件和mshtml以及流操作体会(vb.net内嵌IE,拆取 Web 页)

云广 — Fri, 25 Feb 2005 12:57:00 GMT

需求为:到某一网站抓取查询结果.环境为vb.net

从0开始,一开始具体需要用到.net里的具体什么东东都不清楚,于是就一顿瞎搜索.又是google,又是baidu,yisou......胡乱搜的内容有.net ie,拆分网页 .net,内嵌ie等等.没过多久能得知webbrowser这个控件.

其中对我有帮助比较大的文章是http://www.microsoft.com/china/msdn/Archives/workshop/scrape.asp

只是这里介绍的vb环境.到.net也没什么太大差别,别笑!我最开始找shdocvw.dll 和 mshtml.dll添加引用时候都费了半天劲.因为大家都说webbrowser.而.net里写的是microsoft web 浏览器..

先按照上面的文章练一练!

不说废话了.

先做一个输入框,和一个按钮,供输入信息,和提交信息.

在按纽的click事件中写:

            Dim postdata As String() = {"searchText=" + Me.searchText.Text}
            Dim strUrl As String = "http://"
            Dim SessionHtml As String = PostDate(strUrl, postdata)
            '产生临时文件
            Dim sw As StreamWriter = New StreamWriter("D:\1.htm", False, Encoding.GetEncoding("GB2312"))
            sw.WriteLine(SessionHtml)
            sw.Close()
            Me.AxWebBrowserFill.Navigate("D:\1.htm")

PostDate函数如下:

Public Function PostDate(ByVal url As String, ByVal PostData() As String) As String

Dim Post As String = ""
            '拼接成传递变量
            For Each s As String In PostData
                Post += s + "&"
            Next
            Post = Post.Substring(0, Post.Length - 1)
            Dim html As String = ""

            Dim encoding As Encoding = encoding.GetEncoding("GB2312")
            Dim data As Byte() = encoding.GetBytes(Post)
            Dim myRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
            myRequest.Method = "post"
            myRequest.ContentType = "application/x-www-form-urlencoded"
            'myRequest.ContentType = "text/asp"
            myRequest.ContentLength = data.Length
            Dim newStream As Stream = myRequest.GetRequestStream()
            newStream.Write(data, 0, data.Length)
            newStream.Close()
            Dim resp As HttpWebResponse = CType(myRequest.GetResponse(), HttpWebResponse)
            Dim sr As StreamReader = New StreamReader(resp.GetResponseStream(), System.Text.Encoding.GetEncoding("GB2312"))
            '返回html代码的字符串
            html = sr.ReadToEnd()
            sr.Close()
            Return html

End Function

这样就可以了.

至于直接把html显示在webbrowser控件中,而不通过临时文件,在网上搜到的都是delphi办法.而.net似乎没有完美的解决办法.

曾经试过:

'AxWebBrowserFill.Navigate(SessionHtml)
            'Me.AxWebBrowserFill.Document.write(SessionHtml + "<font size=5>haga</font>")
            'Me.axScriptLet.url = "about:blank" + SessionHtml
            'Me.AxWebBrowserFill.Document.write(SessionHtml)
            'doc = Me.AxWebBrowserFill.Document
            'doc.body.innerHTML = SessionHtml
            'doc.write(SessionHtml)

往往只是第一次成功,而且中间会涉及到html内双引号的问题.

也有网上说按如下方法:

            ''在WebBrowser中显示报告内容字段
            'Dim doc As IHTMLDocument2 = CType(AxWebBrowserFill.Document, IHTMLDocument2)
            'Dim bodyElement As IHTMLElement = CType(doc.body, IHTMLElement)
            ''bodyElement.innerHTML = SessionHtml + "<font size=5>haga</font>"

而这个方法我就没有奏效过!

使用TreeView实现无限级扩展节点

云广 — Sat, 18 Dec 2004 02:16:00 GMT

功能实现要求：

操作环境vb.net和oracle9i

由于数据量很大，所以不能利用rs结果集一次读出，在往treeview节点上填充。

需要填充树型节点的字段内数据形式为以"."分割

如：01 01.01 01.02 01.01.01 02 02.01 02.01 ............................

利用oracle自身instr函数，可以按"."数分割。并返回所需要的结果集，初始化加载读取不带"."字段，第一次读取带一个"."…………

至于sqlserver数据库与oracle的函数书写略有不同，可以到google，csdn等地方去查找。

sql语句的大致写法如下：

If pDotCount = 0 Then
                    sqlString = "select t.需要分割的字段,t.cname from 表名 t where Instr(t.icsn, '.', 1, 1)=0"
                Else
                    sqlString = "select t.需要分割的字段,t.cname from 表名 t where Instr(t.icsn, '.', 1," & pDotCount & ")>0 and Instr(t.icsn, '.', 1, " & (pDotCount + 1) & ")=0 and Instr(t.icsn,'" & pParent & "',1,1)=1"
                End If

pDotCount为需要读取的字段中"."的个数

然后通过双击事件获得父节点(即为选中节点)，sql语句中pParent，返回属于该父节点的子节点，这样一级一级双击即可实现无限扩展，直至走到数据最后一层为止

检索定位任一节点

主要是在于初始选择节点的定位。此处略去，如有兴趣，可以直接和我联系，互相学习。

MSN：yun15291li@hotmail.com

Email：ygyunguang@yahoo.com.cn

Vb.net

在vb.net中使用webbrowser控件和mshtml以及流操作体会(vb.net内嵌IE,拆取 Web 页)

使用TreeView实现无限级扩展节点