巧用VB.net2005编写网络搜索工具_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

巧用VB.net2005编写网络搜索工具

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:工具搜索网络编写
黑客防线网安网讯:  随着网络搜索引擎行业的快速发展,有关网络搜索引擎的应用已经成为人们处理各种信息必不可少的了。网络搜索行业在未来将会是持续发展的,我们有必要了解网络搜索引擎的知识并掌握基本的...
  随着网络搜索引擎行业的快速发展有关网络搜索引擎的应用已经成为人们处理各种信息必不可少的了网络搜索行业在未来将会是持续发展的我们有必要了解网络搜索引擎的知识并掌握基本的网络搜索引擎方面的编程技术本文具备一定的基础性,适合于VB.net的初学者,通过实例让初学者们掌握有关WebBrowser、调用Url、控件跟随窗口的自动增大与缩小的运用方法。
  本文所使用的编程环境是Microsoft Visual Studio 2005,首先打开 Visual Studio。在文件 (File) 菜单上,单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中,单击 Windows 应用程序 (Windows Application)。单击确定 (OK)。
  首先在Form1的窗体上添加两个Label控件属性text分别设置为:需要搜索的内容,需要搜索的IT资讯。然后选择工具箱在窗体中添加一个WebBrowser控件、添加3个button控件其text属性分别为:页面向下滚动30像素、搜索1、搜索2。这个时候我们还需要搜索框,我们要为窗体添加两个Textbox控件。
 
  窗体基本上布局完成,接下来我们需要为程序输入代码了,双击页面向下滚动30像素(button1)按钮然后输入以下代码:
以下是引用片段:
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  WebBrowser1.Document.Window.ScrollTo(0, 30)
  End Sub
  双击搜索1(button2)按钮然后输入以下代码:
以下是引用片段:
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
  If TextBox1.Text = "" Then MsgBox("请先输入关键字") : Exit Sub’防止用户不输入关键字
  WebBrowser1.Navigate("http://www.google.cn/search?complete=1&hl=zh-CN&ie=GB2312&q=" + TextBox1.Text)’在这里我们选用google的搜索引擎
  End Sub
  双击搜索2(button3)按钮然后输入以下代码
以下是引用片段:
  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
  If TextBox2.Text = "" Then MsgBox("请先输入关键字") : Exit Sub WebBrowser1.Navigate("http://search.yesky.com/jsp/hint.jsp?type=2&wd="+TextBox2.Text)’在这里我们选择天极网的IT搜索。
  End Sub
 
  
  我们运行一下可以看一下效果,随便输入一些关键字,我们能够很快的与搜索引擎进行链接,马上我们就可以看到搜索的结果了。有网友会问:“我把窗口最大化后,但是这个WebBrowser1控件并没有自动增大,这时我该怎么办呢?”其实我们需要在Form1_Resize事件中输入一小段代码就可以了这段代码使用非常频繁也很简便,希望对大家在以后的控件编程中会带来一些帮助。接下来我们要选择在Form1_Resize事件中,输入如下代码:
 
以下是引用片段:
  Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
  With WebBrowser1
  .Width = (ClientRectangle.Width)
  .Height = (ClientRectangle.Height)
  End With
  End Sub
 
  我们可以测试一下程序,运行后我们可以将窗体最大化与最小化,这时候我们可以看到WebBrowser1控件跟随主窗体自动增大和缩小到合适的范围。
 
  程序测试成功,我们还可以进行许多方面的改进,其实VB.net还有许多方面的网络应用功能,有待大家的进一步发现,我们要编写一个搜索工具并不是难事。
  附带:WebBrowser1控件常用语法:
以下是引用片段:
  WebBrowser1.GoForward 前进
  WebBrowser1.GoBack后退
  WebBrowser1.Navigate("”)直接调用url地址
    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14824-1.html
网站维护教程更新时间:2012-04-03 01:15:04  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer