DIY集多引擎为一身的搜索器

　　搜索引擎给我们带来了莫大便捷，但众多搜索引擎各有特色，于是我们经常希望输入一个关键词就能得到多个搜索引擎提供的结果。这方面的工具蛮多，即使自制也并不困难，今天就和我们一起用VB 6.0自制一个具有自主产权且小巧玲珑的网络搜索器吧！

1.开发步骤

　　首先运行VB6.0建立一个“标准EXE“的工程文件，根据如图所示添加一个文本框和一个标签框，根据自己对搜索引擎的喜好添加若干个Command按钮控件。

 

　　接着在代码编辑框的声明部份添加“ShellExecute”函数声明，然后再添加Command按钮代码，代码如下:

Private Sub Command1_Click()
Dim url As String
'碰到错误后继续运行
On Error Resume Next

'提示在文本框中输入搜索关键字
If Text1.Text = "" Then
MsgBox "请先输入查找关键字！"， ， "错误!": Exit Sub
End If

'调用浏览器显示百度搜索的结果
ShellExecute hWnd， "open"， "http://www.baidu.com/baidu?wd=" + Text1.Text， ""， ""， 1
End Sub

　　如果你想添加更多的搜索引擎，只要添加Command按钮和相应代码，代码按照上面的格式添加即可，惟一要改动的是第四句代码的网址，比如添加Google的网址那么代码就是

 

　　最后，保存编译程序，具有自主产权的搜索器就完工了！

2.功能扩展

　　怎样获得搜索引擎的代码呢？其实有一个最简单的办法:首先通过IE打开搜索引擎，随便输入几个关键字，单击搜索。然后再看看IE地址栏，去掉我们随便输入的关键字，剩下的就是要的搜索引擎代码了。下表是我们经常用的搜索引擎代码表:

　　此外，还可以给这个程序加入系统热键即时呼出等功能，这样便可以随心所欲地搜索天下了。

　　本例在Windows 2000、VB6.0下调试通过。源代码以及可执行程序可以从 http://www.cfan.com.cn/11program/200506/netsearch.zip下载。